Barcode scanning - serial numbers

Hi there,

I have in a row more that 700 serial numbers.
I have also a barcode scanner.

If i'm scanning the serial number (barcode area) is it possible the result jump to one of these 700 numbers in the sheet where is it match?

Thank you in advance!

Regards,
Nick

Hi NPen,

Assuming Your Serial Number in Col A
Try Below Code and also Find attached file

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    
      Dim s As String
  Dim MyRange As Range, r As Range

  Set MyRange = Sheet1.Range("A2:A100000")
    
    
    If KeyCode = 13 Then
        s = frm77.TextBox1.Value
        
        
                  Set r = MyRange.Find(s)
                 
                    If Not r Is Nothing Then
                       r.Select
                       Set r = Nothing
                       frm77.TextBox1.Value = ""
                       
                    Else
                       MsgBox "Not Found"
                       Set r = Nothing
                       frm77.TextBox1.Value = ""
                       
                    End If
                    
                 
         
          
       

    End If
    
    
End Sub