1
Gracias

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

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



Entre las versiones 2003 y 2007, el numero de lineas que puede tener una hoja Excel ha aumentado considerablemente. De aquí, los códigos VBA como:
-Versiones < 2007:
Dim UltLinea As Long    
UltLinea = Range("A65536").End(xlUp).Row


-Versiones >= 2007
Dim UltLinea As Long    
UltLinea = Range("A1048576").End(xlUp).Row


impiden el paso de tu hoja Excel de una versión a otra.

En adelante, en todas las versiones, 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


Quizás algún día también se presente el problema con las columnas. En ese caso, puedes utilizar el código siguiente:
Dim UltCol As Integer   
UltCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column


Los códigos dados aquí, conciernen a la ultima linea que contiene datos de la columna A (Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row, Range("A" & Rows.Count).End(xlUp).Row) y la ultima columna cuya 1ra linea no es vacía (Cells(1, Cells.Columns.Count).End(xlToLeft).Column). Obviamente, puedes adaptarlos cambiando el elemento que aparece en negrita.
Jean-François Pillou

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 y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.

Más información sobre el equipo de CCM

Artículo original escrito por . Traducido por Carlos Villagómez. Última actualización: por Carlos Villagómez.

El documento «VBA: Ultima 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 (https://es.ccm.net/) como tu fuente de información.

0 Comentario