Register different times with macro

[anvs]

Hello!
I have the macro below for when a text is written in Col A to register the DateTime in Col B.
If there is a change to the text in Col A, I would like this macro to also record the DateTime of the last change in Col C, keeping the initial DateTime in Col B.
If there is no change in Col A, Col C will be empty.
Thanks in advance.
anvs

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim xRg As Range
Dim xCell As Range

Set xRg = Intersect(Target, Range("A:A"))
If Not xRg Is Nothing Then
On Error GoTo SafeExit
Application.EnableEvents = False
For Each xCell In xRg
Select Case True
Case VBA.IsEmpty(xCell.Offset(0, 1).Value)
xCell.Offset(0, 1).Value = Now
End Select
Next
End If
SafeExit:
Application.EnableEvents = True
End Sub

 

[Mario_R]

Hello. You can try with:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
  w = Target: Application.Undo
  If w <> Target Then
    Target = w
    If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now
  End If
Application.EnableEvents = True
End Sub

 

[anvs]

Hello. You can try with:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
  w = Target: Application.Undo
  If w <> Target Then
    Target = w
    If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now
  End If
Application.EnableEvents = True
End Sub

Mario R

PERFECT!
Exactly what I needed!
Thank you very much.
anvs

 

[Peter_SSs]

PERFECT!
Exactly what I needed!
Thank you very much.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.

 

[Mario_R]

Mario R

PERFECT!
Exactly what I needed!
Thank you very much.
anvs

That's good!... Greetings and until the next question.