(ayuda)macro que pegue en primera celda vacia

[karrakilla]

Buenas a todos, estoy intentando hacer algo pero no doy con ello.

La cosa es que tengo un listado con cuentas y hago una macro que en un listado cada vez que lo pulse me ponga fecha y el total de las cuentas y la siguiente vez justo debajo al estar vacía la nueva fecha y el nuevo total para que vaya guardando el registro.

Solo me sale la primera vez, luego no sigue la lista...

¿Me podríais orientar un poco?

Muchas gracias.

PD: dejo archivo de lo que tengo hasta ahora

Dropbox - CUENTAS 2014.xls

Saludos

[joshua]

Saludos.

Prueba con la siguiente macro.

Sub Prueba_Resumen()
Rem declaramos variables
Dim uc As Integer, fecha As Date _
, total As String
Rem trabajamos en la hoja CUENTAS
With Hoja2
    Rem ultima celda disponible
    uc = .Range("A65536").End(xlUp).Row + 1
    Rem cargamos las variables a utilizar
    fecha = Format(Now, "dd/mm/yyyy")
    total = Format(.Range("C16"), "#,##0.00€")
    Rem cargamos los datos
    .Range("A" & uc).Resize(, 2) = Array(fecha, total)
End With
End Sub
[/HTML]

Atte.

Joshua

[karrakilla]

Saludos.

Prueba con la siguiente macro.

Sub Prueba_Resumen()
Rem declaramos variables
Dim uc As Integer, fecha As Date _
, total As String
Rem trabajamos en la hoja CUENTAS
With Hoja2
    Rem ultima celda disponible
    uc = .Range("A65536").End(xlUp).Row + 1
    Rem cargamos las variables a utilizar
    fecha = Format(Now, "dd/mm/yyyy")
    total = Format(.Range("C16"), "#,##0.00€")
    Rem cargamos los datos
    .Range("A" & uc).Resize(, 2) = Array(fecha, total)
End With
End Sub
[/HTML]

Atte.

Joshua

Que eficacia así va perfecto.

Muchas Gracias Joshua