Ga naar inhoud

Jorg


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

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

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

Link naar reactie
Delen op andere sites


Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...