Macro Excel para copiar un valor y pegar en un rango de celdas si la fecha es igual a la de hoy
Con el archivo que adjunto, quiero crear un histórico de datos por fecha, necesito que la macro haga lo siguiente:
Si la fecha de la celda B3 de la hoja de "indicadores" es igual a la fecha del rango de la fila 2 de la pestaña "histórico" que copie y pegue el valor D6 de la hoja de "indicadores" en la fila 3 (donde corresponda) de la pestaña "histórico", el valor D7 de la hoja de "indicadores" en la fila 4 (donde corresponda) de la pestaña "histórico", y el resto de valores coloreados, pero con que se hagan esos ejemplos me quedará claro. La idea es generar un registro de cada día automáticamente.
Muchas gracias!
1 respuesta
Pon el siguiente código en los eventos de la hoja "Historico"
Private Sub Worksheet_Activate()
Dim f As Range
With Sheets("Indicadores")
Set f = Rows(2).Find(.Range("B3"), , xlFormulas, xlWhole)
If Not f Is Nothing Then
Cells(3, f.Column).Value = .Range("D6")
Cells(4, f.Column).Value = .Range("D7")
End If
End With
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(Historico)
- En el panel del lado derecho copia la macro
- Regresa a excel, selecciona la hoja "Indicadores"
- Ahora selecciona la hoja "Historico"
- Listo los valores se actualizan.
