Way To sync barcode scanner to excel

[MarkusMD]

Hello There!

I'm looking for a solution to my problem and have not found anything online, so I'm coming to you.

So, this is what I'm looking for:

The barcode scanner I have is a keyboard type and works well with Excel, but...
1. When scanning a barcode, I want ActiveSheet to automatically open a Userform
2. The Userform should show the scanned barcode in a Locked Textbox
3. I want the sub to look through a list of existing barcodes to see if it exists.

It's a lot but the crusial part is no. 1, The rest I think I can figure out but would not say no to some help.


Best Regards
MarkusMD

 

[L. Howard]

For no. 1 this might work for you.

In the ThisWorkbook code module try this change event macro.

Assumes the barcode is scanned into cell M5 of the active sheet AND the scanned barcode entry into M5 is the same as if you typed a value/text into M5 and hit enter.

Howard

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Intersect(Target, Range("$M$5")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
  UserForm1.Show '// your userform name here
End Sub