I need to add "enter" after each scan

[Marwan22]

Hi, I need to automatically move down after each time I use the barcode scanner, I need to do this by VBA.
IT department has nothing to do with the device.

For example, my selected cell is A1, I need to automatically move to A2 after scanning the item.

Thanks you

 

[PeteWright]

I wonder how a scanner can access Excel on your device.
If it is an Android device, you won't have VBA in Excel for Android.

How do you get a value from barcode scanner to a cell in Excel?

 

[Marwan22]

I wonder how a scanner can access Excel on your device.
If it is an Android device, you won't have VBA in Excel for Android.

How do you get a value from barcode scanner to a cell in Excel?

It's not android, it's windows, and I just plug an usb scanner to my laptop with opened excel file to use it.

 

[Skyybot]

Usually that setting has to be programmed into the scanner itself. Most barcode scanners will come with a sheet of barcodes to scan for programming. Check your users manual.

 

[Marwan22]

Usually that setting has to be programmed into the scanner itself. Most barcode scanners will come with a sheet of barcodes to scan for programming. Check your users manual.

ok, Is it possible to write a VBA code that works as follow: if any change happend in column A select to first empty cell in column A. is this possible?

 

[Trixterz]

ok, Is it possible to write a VBA code that works as follow: if any change happend in column A select to first empty cell in column A. is this possible?

Try this code on your worksheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ActiveBarCodeScan As Boolean, BarCodeColumn As String
    
    ActiveBarCodeScanEvents = True   '<-- Change to false to disable feature.
    BarCodeColumn = "A"              '<-- Change this to you barcode column.
    
    If Split(ActiveCell.Address, "$")(1) = BarCodeColumn Then
        If Trim(ActiveCell.Value) <> "" And ActiveBarCodeScanEvents = True Then
            Range(Split(ActiveCell.Address, "$")(1) & Split(ActiveCell.Address, "$")(2) + 1).Select
        End If
    End If
End Sub

 

[Marwan22]

Try this code on your worksheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ActiveBarCodeScan As Boolean, BarCodeColumn As String
   
    ActiveBarCodeScanEvents = True   '<-- Change to false to disable feature.
    BarCodeColumn = "A"              '<-- Change this to you barcode column.
   
    If Split(ActiveCell.Address, "$")(1) = BarCodeColumn Then
        If Trim(ActiveCell.Value) <> "" And ActiveBarCodeScanEvents = True Then
            Range(Split(ActiveCell.Address, "$")(1) & Split(ActiveCell.Address, "$")(2) + 1).Select
        End If
    End If
End Sub

This seemed fine, Thank you Trixterz and everybody for your help.