nummers tegen elkaar wegstrepen

[peterrv]

Hallo,

Ik heb eeb vraag hoe ik waarden tegen elkaar kan wegstrepen. Situatie is als volgt:

Ik heb een pickbon. op deze pickbon heb ik eannummers staan en aantallen. Is het mogelijk om dan de producten te scannen en dat ze dan op de (digitale) pickbon verminderen?

Hopenlijk let ik het voldoende uit en dat iemand hier een idee over heeft.

 

[JanBG]

Hallo Peter,

Nee, ik heb geen idee, maar met een voorbeeld bestandje krijg ik dat misschien wel.

 

[peterrv]

Bekijk bijlage pakbon check.xlsx

in de bijlage een klin opzetje. In cel F4 scan je de barcode en dan wordt dit ean in vermindering gebracht in het lijstje.

De bdoeling is om te controleren of alle artiklen zijn georderpicked

 

[JanBG]

Is dit wat je bedoelt?

Bekijk bijlage pakbon check.xlsx

 

[JanBG]

Sorry, verkeerde bijlage:

Bekijk bijlage pakbon check.xlsx

 

[edmoor]

Of deze? Vul in F4 een EAN nummer in en druk op Enter:
Bekijk bijlage Kopie van pakbon check-2.xlsm

 

[peterrv]

Dankjewel! De versie van Edmoor is wat ik bedoel! Ik loop nog tegen 2 dingen aan.

Is er ook een mogelijkheid dat als ik een ean intyp/scan dat deze automatisch weer in cel F4 komt. Ik had een macro gevonden dat altijd naar 1 cel verwijst en op zich is dat goed, maar de rijen waar de ean en aantallen in komen moet wel gevuld worden dmv copy paste.

Misschien komt het een beetje warrig over ...

Op dit moment kan ik picklijsten via access exporteren naar excel. met deze excel wil ik controleren op juiste artikelen en aantallen.

 

[edmoor]

Dat is simpel:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "F4" Then
        Set ant = Range("A3:A13").Find(Target.Value, , , xlWhole, xlByRows)
        If Not ant Is Nothing Then
            ant.Offset(, 1).Value = ant.Offset(, 1) - 1
            [COLOR="#FF0000"]Target.Activate[/COLOR]
        End If
    End If
End Sub

 

[peterrv]

dankjewel ... dit is wat ik nodig heb

 

[edmoor]

Graag gedaan.
Het is dan ook eenvoudig om een bericht te geven als een aantal op 0 komt te staan bijvoorbeeld.

 

[peterrv]

ohw? ... bedoel je dat je een soort van popup krijgt oid?

 

[edmoor]

Ja, precies. Op deze manier:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "F4" Then
        Set ant = Range("A3:A13").Find(Target.Value, , , xlWhole, xlByRows)
        If Not ant Is Nothing Then
            If ant.Offset(, 1).Value > 0 Then
                ant.Offset(, 1).Value = ant.Offset(, 1) - 1
                If ant.Offset(, 1) = 0 Then
                    MsgBox "Artikel " & ant.Value & " is nu compleet", vbInformation
                End If
            End If
            Target.Activate
        End If
    End If
End Sub

 

[peterrv]

Tof! is het dan ook mogelijk om zo'n melding te krijgen als alles compleet is? Dus als alles op nul staat een melding van; pickbon compleet? #DTV

 

[edmoor]

Tuurlijk:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "F4" Then
        Set ant = Range("A3:A13").Find(Target.Value, , , xlWhole, xlByRows)
        If Not ant Is Nothing Then
            If ant.Offset(, 1).Value > 0 Then
                ant.Offset(, 1).Value = ant.Offset(, 1) - 1
                If ant.Offset(, 1) = 0 Then
                    MsgBox "Artikel " & ant.Value & " is nu compleet", vbInformation
                End If
            End If
            
[COLOR="#FF0000"]            If WorksheetFunction.Sum(Range("B3:B" & Range("B3").CurrentRegion.Rows.Count + 2)) = 0 Then
                MsgBox "Pickbon is compleet", vbInformation
            End If[/COLOR]
        
            Target.Activate
        End If
    End If
End Sub

 

[peterrv]

Dankjewel voor je hulp Edmoor Dit is wat ik bedoel! Het enige wat nu nog niet werkt is als en een eannummer gescant wordt die niet in de lijst voor komt gebeurt er niets..... is zo'n popup ook mogelijk als er een "verkeerde" eannummer tussen zit?

 

[edmoor]

Uiteraard kan dat:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "F4" Then
        Set ant = Range("A3:A13").Find(Target.Value, , , xlWhole, xlByRows)
        If Not ant Is Nothing Then
            If ant.Offset(, 1).Value > 0 Then
                ant.Offset(, 1).Value = ant.Offset(, 1) - 1
                If ant.Offset(, 1) = 0 Then
                    MsgBox "Artikel " & ant.Value & " is nu compleet", vbInformation
                End If
            End If
            
            If WorksheetFunction.Sum(Range("B3:B" & Range("B3").CurrentRegion.Rows.Count + 2)) = 0 Then
                MsgBox "Pickbon is compleet", vbInformation
            End If
[COLOR="#FF0000"]        Else
            MsgBox "EAN nummer " & Target.Value & " niet gevonden", vbCritical[/COLOR]
        End If
        Target.Activate
    End If
End Sub