date stamp for specific text change

[gaztr1x]

Hi, I have the macro below to put a date stamp in a cell ("U") when the text in another cell ("I") is changed. This works fine. However the original cell "I" automatically populates with "open" when a new row is created within the spreadsheet and A date stamp is created at this point. Therefore I would actually like it to only date stamp if the text specifically changes from "open" to "closed". I am not sure how to alter this macro to do that for me. Any help is appreciated.

Private Sub Worksheet_Change(ByVal Target As Range) Dim U As Range, AC As Range, t As Range Set U = Range("U:U") Set AC = Range("I:I") Set t = Target If Intersect(t, AC) Is Nothing Then Exit Sub Application.EnableEvents = False Range("U" & t.Row).Value = Now Application.EnableEvents = True End Sub

<tbody>
</tbody>

 

[Redwolfx]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Range, AC As Range, t As Range

Set U = Range("U:U")
Set AC = Range("I:I")
Set t = Target

If Intersect(t, AC) Is Nothing Then Exit Sub
     Application.EnableEvents = False
     IF Range("A" & t.row).Value = "Cancel" Then
          Range("U" & t.Row).Value = Now
     End If
     Application.EnableEvents = True
End Sub

 

[gaztr1x]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Range, AC As Range, t As Range

Set U = Range("U:U")
Set AC = Range("I:I")
Set t = Target

If Intersect(t, AC) Is Nothing Then Exit Sub
     Application.EnableEvents = False
     IF Range("A" & t.row).Value = "Cancel" Then
          Range("U" & t.Row).Value = Now
     End If
     Application.EnableEvents = True
End Sub

Excellent. Thanks Redwolfx. Works a treat.

 

[Redwolfx]

Glad to help. Thanks for the feedback!