4
Gracias

Unas palabras de agradecimiento nunca están de más.

VBA: Última fila que contiene datos [Cualquier versión]

En las últimas versiones el número de líneas que puede tener una hoja de Excel ha aumentado considerablemente. En este artículo que enseñamos cómo mostrar la última fila que contiene datos para las versiones antiguas y las más recientes.

Código VBA

  • Versiones < 2007:
Dim UltLinea As Long UltLinea = Range("A65536").End(xlUp).Row
  • Versiones >= 2007:
Dim UltLinea As Long UltLinea = Range("A1048576").End(xlUp).Row

Estas impiden el paso de tu hoja Excel de una versión a otra. Se debe escribir:

Dim UltLinea As Long UltLinea = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

o también:

Dim UltLinea As Long UltLinea = Range("A" & Rows.Count).End(xlUp).Row

En el caso de que tengas problemas con las columnas puedes utilizar el siguiente código:

Dim UltCol As Integer UltCol = Cells(1,Cells.Columns.Count).End(xlToLeft).Column

Nota: Estos códigos conciernen a la última línea que contiene datos de la columna A: (Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row, Range("A" & Rows.Count).End(xlUp).Row) y la última columna cuya primera línea no está vacía: (Cells(1, Cells.Columns.Count).End(xlToLeft).Column). Puedes adaptarlos cambiando el elemento que aparece en negrita.

Foto: © Everypixel

4
Gracias

Unas palabras de agradecimiento nunca están de más.

Haz una pregunta
Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.
Consulta también
El documento « VBA: Última fila que contiene datos [Cualquier versión] » se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.

¡Suscríbete a nuestra Newsletter!

Recibe nuestros mejores artículos

¡Suscríbete a nuestra Newsletter!