Macro en excel para copiar el ultimo registro de una lista

[Francovich]

Hola:

Seguramente para alguno de uds. este problema que tengo debe ser muy facil pero yo no logro solucionarlo.
Tengo una planilla en excel 97-2000 con una lista de 30 filas y 5 columnas (hoja1) en donde figuran ciertos datos, esta lista se va actulizando o sea que se van agregando nuevas filas con nuevos datos, lo que quiero es lograr una macro que me tome -cuando yo ejecute la misma- el ultimo registro de la lista y me lo copie en por ejemplo en la celda AZ52 de la hoja2, y cada vez que ejecute la macro siempre me copie el utlimo registro que haya agregado a la celda anteriormente sitada...

[Pistemas]

Me parece, por lo que veo, que esto lo puedes solucionar con el VBA.

se me ocurre, hacerlo con un contador, el cual se incremente cada ves que se agrega una nueva fila, y de esta forma puedas mandar los datos a la celda mencionada.

SALU2 y esperemos mas respuestas.

[judoka]

te habia escrito en tu otro post , pero si no lo leiste te lo repito aqui

tambien puedes hacer que la macro recorra la columna ( en lel ejemplo la columna a) hasta encontrar la ultima celda con valor y rescatar este para copiarlo donde tu quieras.
en el ejemplo los datos empiezan desde la celda a2

Sub Macro1()
Sheets("Hoja1").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Hoja2").Select
Range("az52").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

[WalterP]

Hay una forma mas simple.
Solo te ubicas en una celda del rango (lo comun seria la primera) y usas el metodo End con el parametro Direccion correcto. Por ejemplo, si los valores comienzan en la primer fila, podes usar:

dim UltimaFila as Integer
ultimaFila = Range("A1").End(xlDown).Row

y luego

Range("A" & Cstr(UltimaFila)).Copy