Macro que inserta fechas al modificar datos

Buenos días,
En primer lugar, agradecer de antemano, tu tiempo.
Tengo una cuestión que no consigo solucionar. Tengo dos columnas C y F, que necesito que, mediante una macro, que se ejecute de forma automática, para las que cualquier cambio, inserte la fecha en la que se realiza dicho cambio en las columnas AB y POR, respectivamente.
Actualmente, tengo una macro, que me hace lo comentado parcialmente, es decir, para aquellas modificaciones en F, me da una fecha en X:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RangCtrl As String
Dim fila As Integer
Dim EnRango As Variant
RangCtrl = "(F5:F65536)"
Set EnRango = Application.Intersect(Range(RangCtrl), Target)
If Not EnRango Is Nothing Then
fila = EnRango.Row
Cells(fila, 24).Value = Format(Now(), "mm/dd/yyyy")
End If
Set EnRango = Nothing
End Sub
Podrías darme la solución, para las modificaciones en ambas columnas.
Espero tu respuesta.
Un saludo.

1 Respuesta

Respuesta
1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C1:C65536]) Is Nothing Then
Range("AB" & Target.Row) = Date
End If
If Not Intersect(Target, [F1:F65536]) Is Nothing Then
Range("X" & Target.Row) = Date
End If
End Sub
Abraham

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas