Scanning data into excel

[jturn]

My apologies if I'm not doing this correctly. I am looking for a practical, systematic solution to an operational need. We produce labels for our perishable products that contain all types of information. The software that produces these labels can generate a QR code. On a daily basis, we record which lots of these products are used by entering them into a cloud based manager's log (which is date stamped). For the 10 items or so that we record daily, we're just reentering certain information from the printed labels. My search is for the most efficient way to scan these labels (QR code) and have what information I need dropped into an Excel form that I could upload into this manager's log. I want to have this process as simplified as possibly so I can properly delegate this duty out without having to teach multiple steps on how to get this data entry. Any suggestions are much appreciated.

Joe Turner

 

[ranman256]

yes, a form could have a listbox and text box,
scan the barcode, it goes from the textbox into the listbox,
when done, click a button to add the data to your dataset.

 

[Logit]

There are cell phone apps that you can download for free that scan QR codes and Bar Codes, then drop the data into an Excel Spreadsheet. Any online source ("The Store", etc)

There are commercial software packages you can purchase that will accomplish the goal. Google ...

Stock management using barcode scanner, Excel, and VBA

Example project (this portion only adds data to the spreadsheet) :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim item   As Variant
    Dim srch   As String
    
    If Target.Cells.Count > 1 Or Not Target.Address = "$B$1" And Not Target.Address = "$B$2" Then Exit Sub
    If Target.Value <> "" Then
        Application.EnableEvents = False
        srch = Target.Address
        Set item = Range("A6", Range("A" & Rows.Count).End(xlUp)).Find(Range(srch).Value, LookAt:=xlWhole)
        If item Is Nothing Then
            MsgBox Target & " is not inventoried."
            GoTo exitcode
        Else
            Select Case srch
                Case "$B$1"
                    item.Offset(0, 8).Value = item.Offset(0, 8).Value + 1
                Case "$B$2"
                    item.Offset(0, 8).Value = item.Offset(0, 8).Value - 1
            End Select
        End If
exitcode:
        Set item = Nothing
        Range(srch) = ""
        Range(srch).Select
        Application.EnableEvents = True
    End If
 
End Sub

Download workbook : Scanner Inventory.xlsm


A very indepth discussion of scanning with example code and resources : Counting Inventory with Barcode Scanner


You can also search this and other Forums for "scanner", "bar code", "QR code", etc. Don't overlook Google as well.