Macro
Tengo información por filas en excel y quisiera una macro que me escribiera la fecha de hoy en la celda inicial de la fila cuando hago alguna modificación en alguna celda de dicha fila.
Gracias
Gracias
Respuesta de Elsa Matilde
1
La rutina que te adjunto deberás copiarla en el Editor (Alt+F11) en la hoja donde se hará el control.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rango As String
Dim lista As Variant
'ajusta el rango de control
rango = "B2:D20"
Set lista = Application.Intersect(Range(rango), Target)
If Not lista Is Nothing Then
Cells(Target.Row, 1).Value = Date
End If
Set lista = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rango As String
Dim lista As Variant
'ajusta el rango de control
rango = "B2:D20"
Set lista = Application.Intersect(Range(rango), Target)
If Not lista Is Nothing Then
Cells(Target.Row, 1).Value = Date
End If
Set lista = Nothing
End Sub
