alguien experto en macros?

Hola byrpa,

1) Suponiendo que...

- la hoja importada se encuentra en el mismo libro que el codigo
- la hoja importada se llama Hoja1
- la hoja a donde se pegarian los datos copiados se llama Hoja2
- los registros no pueden tener celdas vacias en la columna [A]

prueba el siguiente codigo:

Sub test()
With Sheets("Hoja1")
.Cells(.Rows.Count, "A").End(xlUp) _
.Resize(7).Offset(-6).EntireRow.Copy _
Sheets("Hoja2").Range("A2")
End With
End Sub

2) Suponiendo que...

- la hoja importada se encuentra en el mismo libro que el codigo
- la hoja importada se llama Hoja1
- la hoja a donde se pegarian los datos copiados se llama Hoja2
- la hoja Hoja1 no contiene ningunos formatos fuera del rango de la tabla

prueba el siguiente codigo:

Sub test()
With Sheets("Hoja1").UsedRange
.Resize(7).Offset(.Rows.Count - 7).EntireRow.Copy _
Sheets("Hoja2").Range("A2")
End With
End Sub

Saludos,
KL


"byrpa" wrote in message news:

Estimados amigos figurense que tengo una hoja de excel, que me exporta un
programa, del cual siempre cambia el numero de filas que contiene, y debo de
copiar las ultimas 7 filas a otra hoja, he probado varias cosas y nada,
primero creo la macro le doy fin+flecha abajo y me llega hasta al final,
pero despues le doy siete flecha arriba y todo bien, pero cuando reviso el
codigo, me marca la direccion de las celdas, por lo tanto si aplico esta
macro a otro archivo que tiene diferente numero de filas, nada que ver,
alguien tiene alguna sugerencia?

ya probe con
SendKeys "{UP}", pero es como teclear fin+tecla arriba

Gracias por sus comentarios.