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
1 Respuesta
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
