Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim c As Range, Code As Range
If Target.Address = [scan].Address And Target.Value <> "" Then
Set c = Columns(1).Find(Target.Value, , xlValues, xlWhole)
If Not c Is Nothing Then
Application.EnableEvents = False
c.Offset(, 2) = "OK"
Application.EnableEvents = True
End If
End If
If Not Application.Intersect(Target, Range("G4")) Is Nothing And Range("G4").Value <> "" Then
Set Code = Columns(1).Find(Target.Value, , xlValues, xlWhole)
If Not Code Is Nothing Then
Application.EnableEvents = False
Code.Offset(, 3) = "OK"
Application.EnableEvents = True
End If
End If
End Sub