Cuando estamos trabajando sobre una hoja de cálculo en excel, queremos saber como encontrar la ultima fila con datos, ya que es necesario para alguna macro que estemos realizando.
Para esto voy a mostrar unos ejemplos de como obtenerlo.
Cuando los datos NO son continuos y existe alguna fila vacia
A veces cuando existe una fila vacia es necesario que el cursor se dirija a la ultima fila que en este caso es la fila 9. Estas funciones son aptas para estos casos.
Usando el objeto Range
Sub Contar_ultima_Celda()
R = Range("A" & Rows.Count).End(xlUp).Row
End Sub
Usando el objeto Cells
Sub Contar_ultima_Celda2()
R = Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Cuando los datos son continuos y no hay espacios en blanco en una fila
En el caso que no hayan espacios en blanco que pueda cortar el recorrido del cursor fácilmente se puede utilizar las siguientes funciones. También se puede hacer uso del código anterior
Sub UltimaFila3()
j = Range("A1").End(xlDown).Row
End Sub
Sub Contar_ultimaFila4()
r = Cells(1, 1).End(xlDown).Row
End Sub
OBTENER LA ULTIMA POSICION DE COLUMNA CON DATOS
Con ambas funciones se puede saber la posicion de la ultima columna con datos.
Sub UltimaColumna()
r = Cells(1 & Columns.Column).End(xlToLeft).Column
End Sub
Sub UltimaColumna2()
r = Cells(1, 1).End(xlToRight).Column
End Sub
Para que puedan ver la posicion de la ultima fila o columna con datos se puede incluir dentro de cada subrutina un mensaje con la variable que almacena la posicion:
MsgBox "Posicion de la columna " & r
Espero que les haya sido de mucha utilidad, y ala espera de sus comentarios.
