¿En qué nos ayudaría identificar la última fila en uso?
Usualmente las bases de datos en Excel tienen mucha información; por eso, perderíamos tiempo buscando el último dato con la barra de desplazamiento.
Sin embargo, esto se puede solucionar, haciendo uso de las macros.
¿Qué código podemos usar para buscar la última fila?
Sub BuscarUltimaFila()
Dim ult As Integer
ult = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox ult
End Sub
Ahora entendamos el código:
Cells(Rows.Count,1) = Al usar Rows.Count estamos contando todas las filas disponibles en excel cuyo valor seria 1048576. Como lo usamos en un Cells, estaremos seleccionando la fila 1048576. El "1" indica la columna en la cuál se esta trabajando ("A") .
End(xlUp) = Estamos indicando que desde la fila indicada (1048576), "suba" hasta que encuentre un valor.
Row = Indicamos que grabe el número de la fila ocupada encontrada.
MsgBox ult = Mostramos ese valor en un cuadro de texto.
Seleccionar la última fila en VBA
Ahora, si queremos seleccionar esa celda podemos agregar el siguiente código:
Sub BuscarUltimaFila()
Dim n As Long
countult = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox countult
Cells(Rows.Count, 1).End(xlUp).Select
End Sub
Como podemos observar, en vez de .Row , le ponemos .Select
Última fila libre en VBA
Alternativamente, si queremos buscar la última fila libre, haremos uso del Offset:
Sub BuscarUltimaFila()
Dim n As Long
countult = Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Row
MsgBox countult
Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Select
End Sub
Con Offset(1,0) , al encontrar la última fila en uso, saltamos 1 fila más la cual sería la última fila libre.
Descargar ejemplos de identificación de última fila
------------------
Elaborado por: Daniel Eduardo Espinoza Rodriguez
49 comentarios
Escriba un comentario →