¿Cómo puedo crear una macro que guarde un grupo de datos tomando la fecha actual?
¿Cómo puedo crear una macro que guarde un grupo de datos tomando la fecha actual?, es decir los datos se generan en automático en celdas especificas y quiero que la macro las pase al reglón donde se encuentra la fecha actual manteniendo los datos históricos sin cambio.
Respuesta de Luis Mondelo
1
Te he mandado la solución por mail pero igualmente la pongo aquí:
Las celdas con los datos a copiar están en el rango D1:L1 (podemos ponerlas en cualquier otro sitio)
Y la tabla original está en el rango A1:B...
La columna A son las fechas y la columna B o sucesivas son valores
Sub busca_fecha()
Range("a1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = Date Then
ubica = ActiveCell.Address
Range("d1:l1").Copy
Range(ubica).Offset(0, 1).PasteSpecial xlPasteValues
Range(ubica).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar y puntuar
