Audio Engineering & Live Production

Sub ProcessBarcodeInput()
    ' Handles barcode scanner input and updates inventory database
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim barcode As String
    Dim itemFound As Boolean
    
    Set ws = ThisWorkbook.Sheets("Inventory")
    barcode = Application.InputBox("Scan Barcode:", "Equipment Check-Out", Type:=2)
    
    If barcode = "False" Then Exit Sub
    
    ' Search inventory for matching barcode
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    itemFound = False
    
    For i = 2 To lastRow
        If ws.Cells(i, 1).Value = barcode Then
            itemFound = True
            ' Update status and timestamp
            ws.Cells(i, 5).Value = "Checked Out"
            ws.Cells(i, 6).Value = Now()
            ws.Cells(i, 7).Value = Environ("USERNAME")
            
            MsgBox "Equipment: " & ws.Cells(i, 2).Value & vbNewLine & _
                   "Status: Checked Out" & vbNewLine & _
                   "Time: " & Now(), vbInformation, "Success"
            Exit For
        End If
    Next i
    
    If Not itemFound Then
        MsgBox "Equipment not found in inventory!", vbExclamation, "Error"
    End If
End Sub