Macro seleccionar última celda con datos
Nuevamente recurro a sus conocimiento y apoyo, para resolver esta macro. En mi libro necesito que me encuentre la última celda con datos de la columna A (lo cual ya lo resolví), lo que no eh podido resolver es que después de que encuentra la última celda con datos, me seleccione la fila hasta el último dato, entre celdas de la fila existen celdas en blanco.
Sub BuscarUltimaFilaColumna()
Dim Fila As Long
Fila = Range("A" & Rows.Count).End(xlUp).Select
End sub
2 respuestas
Gracias por tu ayuda Dante, esa parte la tengo identificada. Lo que necesito es que me detecte la última celda con datos de la columna A y de ahí seleccione las celdas hacía la derecha encontrando el último valor.
Anexo imagen para ver si queda un poco más claro.
En mi ejemplo: la última celda con datos sería A8 y la macro seleccionaría A8 hasta E8 que es la fila con datos.
Gracias por tu tiempo.
Prueba lo siguiente:
Sub prueba()
Dim lr As Long, lc As Long
lr = Range("A" & Rows.Count).End(3).Row
lc = Cells(lr, Columns.Count).End(1).Column
Range("A" & lr, Cells(lr, lc)).Select
End Sub
Este ejemplo
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & uf).Select
https://www.youtube.com/watch?v=_XegDeHiORc&list=PLdK9H5dMIfQhn9waYbEdu3DYAuBdSCIBx
https://www.youtube.com/watch?v=UuyFcJnv5MM&list=PLdK9H5dMIfQhn9waYbEdu3DYAuBdSCIBx