Seleccionar ultima fila con datos
Hola por favor necesito que me ayuden con lo siguiente he visto que muchos ausuarios han resuelto sus dudas aquí así que voy a tratar de explicarme bien:
Grabé una macro que primero busca si existe el título "Modificado" luego de encontrarlo se desplaza una celda hacia a abajo y de allí debo seleccionar hasta la última fila que contenga datos para lo cual traté de utilizar la siguiente macro:
Windows("Libro1.xlsx").Activate
Sheets("Hoja1").Select
Cells.Find(What:="Modificado", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
El problema es que hay celdas vacías en dicha columna por lo que esta macro no me sirve ya que al llegar a una celda vacía se detiene la selección y omite las siguientes.
Yo necesito que seleccione hasta la última fila que contenga datos incluso si hay celdas vacías en dicho rango.
Espero haberme explicado bien y que me puedan ayudar...
1 Respuesta
Así quedaría el código
Windows("Libro1.xlsx").Activate
Sheets("Hoja1").Select
Cells.Find(What:="Modificado", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
u = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Range(Selection, Cells(u, ActiveCell. Column)). Copy Saludos. Dante Amor
Si es lo que necesitas.
Muchas gracias es exactamente lo que buscaba y lo mejor es que a pesar de mi básico conocimiento en vba entendí lo que hiciste y espero me sirva para futuros proyectos vba. Un saludo y una vez más muchas gracias por tu ayuda y tiempo.
