Meerdere barcodes inlezen op 1 rij

[Jorgm]

Dag iedereen die me wil/kan helpen.

 

Ik heb een excel file waar barcodes moeten worden ingescand.

Op zich is dit geen enkel probleem, maar omdat er meerdere items op quasi hetzelfde moment achter elkaar worden ingescand, heb ik een macro gemaakt dat automatisch een extra lijn in excel aanmaakt en daar de barcode invuld + datum en uur van de gescande barcode.

Als extra optie heb ik tevens ingebouwd dat, wanneer men per ongeluk dezelfde barcode heeft ingescand, in een aparte kolom de datum en tijd van de 2e scanning komt.

 

Dit alles werkt zoals het moet, MAAR ... en hier kom ik er helemaal niet uit. 🤔☹️

 

Telkens ik een barcode moet inscannen, moet ik ook ineens de badge van 2 medewerkers inscannen (ook barcodes) - nl 1 die het product afgeeft en 1 die het product in ontvangst neemt.

Het lukt me niet om deze 2 badge op dezelfde lijn te krijgen als het ingescande item.

 

Hierbij de macro die ik nu gebruik + printscreen van de lay-out

===============================================

Sub inout()
Dim barcode As String
Dim rng As Range
Dim rownumber As Long

barcode = Worksheets("Blad1").Cells(2, 2)

    Set rng = Blad1.Columns("a:a").Find(What:=barcode, _
    LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If rng Is Nothing Then
        ActiveSheet.Columns("a:a").Find("").Select
        ActiveCell.Value = barcode
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = Date & "  " & Time
        ActiveCell.NumberFormat = "d/m/yyyy h:mm"
        Worksheets("Blad1").Cells(2, 2) = ""
    Else
        rownumber = rng.Row
        Worksheets("Blad1").Cells(rownumber, 1).Select
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = Date & "  " & Time
        ActiveCell.NumberFormat = "d/m/yyyy h:mm"
        Worksheets("Blad1").Cells(2, 2) = ""
            
    End If
    
Worksheets("Blad1").Cells(2, 2).Select

End Sub

==============================================

Alvast bedankt om mee naar een oplossing te zoeken.

Mvg

Jorg

[Jorgm]

Op 21/8/2020 om 11:07, dotchiejack zei:

Beste Jorgm,

Welkom op PC helpmform.🙂

Als eerste,voeg in het vervolg een excel bestandje (met wat fictieve gegevens) toe  in plaats van een plaatje.

Omdat je nieuw bent heb ik dit keer zelf een voorbeeldje gemaakt.

Als tweede, probeer in het vervolg select en activate te vermijden in je code, het vertraagt je code big time en dat heen en weer gehuppel is zelden nodig.

Als derde, ik snap "het zelfde nog eens gescand" verhaal niet echt, je kan toch makkelijk inbouwen dat dubbel scannen niet mogelijk is.

Ik hoop dat mijn voorbeeld doet wat je in gedachten hebt.

 

 

Test Jorgm.xlsm 23 kB · 2 downloads

Dank U voor al het werk Dotchiejack!!

In 1ste instantie ga ik zeker proberen om in de toekomst met al je positieve raad rekening te houden! 👍

Nu ik heb je file getest en het werkt.

Enkel zou ik nog graag hebben dat, wanneer je de barcode hebt ingescand (B2 - groen) en op tab of enter klikt, je automatisch naar het volgende veld gaat (D2 - oranje), dan naar het laatste gekleurde veld (E2 - blauw) en alles automatisch laten invullen op de 1st volgende vrije rij  om dan finaal terug te keren naar de lege basis B2.

Is dat mogelijk of is dit teveel van het goede? 😬

[kweezie wabbit]

Beste Jorgm.

Je hoeft niet steeds het bericht waarop je regeert te quoten.

 

Je kan onderaan, na het laatste bericht, klikken in de met zwart omrandde kader.

 

 

en dan krijg je dit.

 

 

Je kan nu je reactie intikken en als je klaar bent, klik je op reactie toevoegen.

 

Je kan hier ook een afbeelding of een ander bestand toevoegen aan je bericht.

Hoe je hiervoor te werk gaat, kan je lezen in deze handleiding.

[Jorgm]

Oh bedankt!! 

Dit is het gewoon!!

Toppie 👍

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit topic kunnen afsluiten.

[Jorgm]

Beste,

 

Dit mag afgesloten worden.

Heel goede en snelle hulp/oplossing, top !!

[kweezie wabbit]

OK, dan zetten we er een op.

Succes nog.