Como recorrer columna hasta el final de la columna anterior
Estoy iniciando en esto de las Macros espero me puedan ayudar por favor.
Necesito recorrer una columna hasta que llegue al último dato pero hay que tener en cuenta que hay campos vacíos me refiero a que de 100 filas 80 están vacías y necesito copiarlas y pegarlas en otro libro. Cuando pongo End(xlDown) yo suponía que iría hasta el ultimo valor pero se va demasiado lejos.
1 Respuesta
Respuesta de James Bond
1
Esta macro copia unicamente las celdas que tengan datos, como ves el error esta en que estas usando xldown en vez de xlup, para hacer más eficiente la amcro y no entrar en instrucciones especiales o ciclos for o do use un autofiltro y el resultado lo envíe a la hoja2, adapta la macro cambiado las referencias a a las referencias de la columna donde tengas los datos.
Sub TEST()
filas = Range("a" & Rows.Count).End(xlUp).Row
With Range("a2:a" & filas)
.AutoFilter 1, "<>" & Empty
. Copy
Sheets("hoja2"). Range("a2"). PasteSpecial
. AutoFilter
End With
End Sub
