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