IF text is specific THEN result is date/time

[Dicko]

​I have the following code which gives a result of the current date/time in column "C" if any text/number is entered in column "G".

col = Left(Target.Address, 2)
If col = "$G" Then Target.Offset(0, -4) = Now()

I need to edit this so column "C" only displays the time/date if text in column "G" is specifically "YES".
If any other text/number is entered in column "G" then column "C" is to remain empty.

I would appreciate any suggestions or advice .

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "YES" Then
    Application.EnableEvents = False
    Target.Offset(, -4).Value = Now
    Application.EnableEvents = True
End If
End Sub

 

[Dicko]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "YES" Then
    Application.EnableEvents = False
    Target.Offset(, -4).Value = Now
    Application.EnableEvents = True
End If
End Sub

Many thanks for your assistance...just tested and exactly what I required...appreciate your fast post . Vba rocks!