Ga naar inhoud

Meerdere barcodes inlezen op 1 rij


Jorgm
 Delen

Aanbevolen berichten

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

Barcodevoorbeeld.PNG

Link naar reactie
Delen op andere sites


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

aangepast door dotchiejack
kleine aanpassing aan het voorbeeld
Link naar reactie
Delen op andere sites

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? 😬

Link naar reactie
Delen op andere sites


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.

 

image.thumb.png.d8696da14aa99e8279cff96d903e1695.png

 

en dan krijg je dit.

 

image.thumb.png.e0e42cb9c2d18cc04b355204482cd001.png

 

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.

Link naar reactie
Delen op andere sites


Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

  • Welkom op PC Helpforum

  • Leden statistieken

    • Aantal leden
      40.252
    • Meeste online
      1.765

    Nieuwste lid
    Markata
    Registratiedatum
  • Gerelateerde inhoud

    • Door Niels_F
      Beste iedereen,
       
      Ik ben bezig om een voorraadbeheer systeem in excel te maken voor ons bedrijf (ecotap). 
      Hierbij wil ik gebruik gaan maken van een app (lomag) om barcodes te scannen wanneer iemand iets uit het rek pakt.
       
      In excel heb ik een database, op een ander tabblad genereer ik barcodes door een getal in te voeren. excel maakt 24 barcodes aan en haalt de gegevens op uit de database.
      De pagina kan meteen geprint worden op een stickervel, en de stickers kunnen op de stelling in het magazijn worden geplakt.
       
      als ik een onderdeel uit de stelling pak, kan ik de barcode scannen met mijn telefoon (APP lomag)
      De lijst op mijn telefoon mail ik naar de computer waar mijn excel bestand staat.
       
      Op de computer open ik de mail, en kopieer ik de gegevens. In mijn excel bestand plak ik de gegevens in het tabblad [gegevens van scanner] in cell A7
      De gegevens worden nog niet meteen opgenomen omdat er een draaitabel tussen zit. die eerst vernieuwd moet worden.
      Dan hier mijn eerste vraag:
      Kan een draaitabel ook vervangen worden door een formule? of de draaitabel automatisch vernieuwen?
       
      Wanneer de draaitabel handmatig wordt vernieuwd, door onder de waarschuwing: VERNIEUWEN met rechtermuisknop te klikken > vernieuwen, verdwijnt de melding.
      Nu moeten de gegevens van het scannen in de database worden verwerkt. de aantallen op het tabblad [Gegevens van scanner] moeten in de database worden afgetrokken. 
      Het probleem hier is dat er geen formule voor is. omdat er dan een kringverwijzing ontstaat.
      Hoe kan ik gemakkelijk de aantallen van het scannen van de aantallen in de database aftrekken? 
       
       
       
      Ik ben dyslectisch, dus mocht u spelfouten tegenkomen, graag verbeteren.
      Meer informatie staat in het bijlagen excel bestand zelf.
      De onderdelen zijn vervangen door smartphones. die verkopen we helaas niet 
       
      Vriendelijke groet, Niels Frickel
      voorbeeld VOORRAAD BEHEEER SYSTEEM.xlsx
×
×
  • Nieuwe aanmaken...