Saltar al contenido

(ayuda)macro que pegue en primera celda vacia


Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.