Barcode

[corania17]

Beste leden van helpmij,

Bij het opzetten van een bestand om data in te lezen via Barcode liep ik tegen een probleem.
Als in een bepaalde cel de Barcode wordt ingelezen gaat de selectie naar de onderliggende cel.
Dus als in cel C15 de barcode is gelezen wordt de volgende cel C16 actief en zo voort.
Is het mogelijk om bij het scannen telkens cel C15 te overschrijven en dat de selectie dus niet verder gaat?
Als dit al mogelijk is moet dit alleen op één blad gebeuren en niet ook over de andere bladen.
Er staat ook nog een combobox op hetzelfde blad waar de scans worden gedaan in cel G15.
Heeft iemand daar ervaring mee?

Met vriendelijke groet, corania17.

 

[edmoor]

Zonder dat je een voorbeeld plaatst, zet dit eens achter het betreffende werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static PrevCel As Range
    If Not PrevCel Is Nothing Then
        If Target.Address(0, 0) = "C16" And PrevCel.Address(0, 0) = "C15" Then
            Application.Goto Range("C15")
        End If
    End If
    Set PrevCel = Target
End Sub

 

[corania17]

Hallo Edmoor,

Bedankt allereerst voor de reactie.
Ik heb uw script geprobeerd, maar deze werkt alleen voor de eerste twee codes.
Dit is te testen door het nummer te verhogen van 20301975 t/m 20301983 en telkens een Return te geven.
De eerste twee doen het goed en daarna wordt toch weer cel C15 actief.
Als het nummer niet bestaat klinkt er een sound wat staat bij mij in C:\Windows\Media\Alarm01.wav
Probeert u het maar eens uit.

Met vriendelijke groet, corania17

 

[emields]

Probeer het zo eens

 

[edmoor]

Maar C15 moet toch actief worden na een scan?

 

[corania17]

Beste Edmoor en Emield,

Bedankt voor jullie bijdrage, het werkt nu perfect.
Edmoor cel C15 moet actief zijn voor de scan en ook nadat de scan is geweest.
En dat gebeurd nu ook.

Nogmaal mijn dank, corania17