Thankyou.
That means that we can use the change event Macro.
Right Click on the Sheet Name at the bottom of excel and Select View Code
Delete Everything in the module that opens
Paste this in the module and close it.
Good Luck
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set Z = Columns(3).Find(Target.Value, LookIn:=xlValues, Lookat:=xlPart)
If Z.Value = Target.Value Then
Cells(Z.Row, 4).Value = Cells(Z.Row, 4).Value - 1
Target.Value = ""
Else
MsgBox "Scanned Item Not Found", vbOKOnly
End If
On Error Resume Next
Application.EnableEvents = True
End Sub
Bookmarks