Jorgm

Beste, Dit mag afgesloten worden. Heel goede en snelle hulp/oplossing, top !!

Oh bedankt!! Dit is het gewoon!! Toppie 👍

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

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

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 =============================================== 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