Dear all,
Below event doesn't trigger at when i make any changes in column 17.
I checked immediate window, Application.EnableEvents is true.
The gets updated after i double click on any cell.
Actually below code runs correctly, but it wont trigger as soon i change the cell value in column 17.
Any suggestions how i can fix this..?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 Then
On Error Resume Next
If Target.Value = "REVIEW" Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date & " " & Time & " " & Application.UserName
Application.EnableEvents = True
ElseIf Target.Value = "OK" Or Target.Value = "NOT OK" Or Target.Value = "DONE" Then
If Target.Offset(0, 6).Value = "NOT CLEAR" Or Target.Offset(0, 6).Value = "" Then
Application.EnableEvents = False
Target.Offset(0, 6).Value = "CLEAR"
Target.Offset(0, 7).Value = Date
Application.EnableEvents = True
ElseIf Target.Offset(0, 6).Value = "CLEAR" Then
Application.EnableEvents = False
Target.Offset(0, 7).Value = Date
Application.EnableEvents = True
End If
End If
End If
End Sub
Bookmarks