if the result of scanning is put in cell A1 and the value of this research is to be found in column B
i suggest you add a formula on the sheet to activate the event "Calculate"
and then copy the following macro on this VBAProject activesheet
Private Sub Worksheet_Calculate()
oRow = Application.Match(Range("A1"), Range("B:B"), 0)
If Not IsError(oRow) Then
Range("C1") = Range("C1").Value + 1
MsgBox " The value was not found"
Le 2012-06-08 10:54, Alexis a ?crit :
The plan is to have a VBA input box which upon input checks a column of barcodes for a match and adds +1
to the value of a cell to the right of the barcode and automatically restart the script. If no match - play a sound and error message.