Voorraad scannen en gelijke producten tellen

[KristofL]

Hallo,

Kan ik met excel het volgende doen:

Ik heb een barcodescanner en wil al mijn voorraad van mijn winkel inscannen, en daarna zou ik graag een overzicht krijgen van alle barcodes met het aantal stuks er achter. Mijn voorraad is momenteel wat door elkaar, en wens snel een overzicht te hebben.

Stel ik scan enkele items, de scanner geeft automatisch een enter na elke scan:

001
003
001
002

Ik zou dan graag met een macro, zoekopdracht, of hoe dan ook dan dit herleiden naar

2 001
1 002
1 003

Zodat ik snel een overzicht heb van hoeveel stuks elke EAN code heeft.

 

[wampier]

Ja, dat kan. Het kan altijd met macro's. Afhankelijk van je excel versie kan het met wat handigheid ook met wat knip/plak werk en wat formule's

 

[cow18]

met een tabel en een draaitabel kan het ook zonder macro(zonder automatisch updaten)

 

[Morrice]

KristofL,

Bedoel je zoiets?

Stel, de ingescande itemnummers staan in kolom C.
De unieke items komen in B.
De aantallen er voor, in kolom A.

Bepaal eerst het aantal unieke items, als volgt.
Zet boven de kolom met itemnummers een label, bv. "Items"
selecteer deze kolom
Klik Gegevens - Filter Geavanceerd
Om de originele lijst te behouden, kies je in het popup scherm: Kopiëren naar andere locatie.
Lijstbereik wordt $C:$C
Vink aan: Alleen unieke records
Kies Kopiëren naar: $B$1
Nu wordt in kolom B een lijst geplaatst van de unieke items in kolom C.
Die kun je desgewenst sorteren.
Zet in kolom A de formule: aantal.als
In A2: = aantal.als(C:C; B2)
enz.

Je kunt dit automatiseren met de volgende macro, die je na elke aanpassing van de lijst in kolom C kunt aanroepen.

Sub unieke_items()
'
' unieke_items Macro
'
' Maakt in kolom B een lijst van de unieke items uit kolom C en sorteert deze.
' De aantallen worden aangegeven in kolom A.
'
' de originele (ingescande) items staan in kolom C
'
    Columns("A:B").Clear
'   unieke items naar kolom B
        Columns("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
        "B:B"), Unique:=True
    Range("B1") = "Uniek"
'   deze oplopend sorteren
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("B2:B1000000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("B2:B1000000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'   aantallen unieke items naar kolom A
    Range("A1") = "Aantal"
    i = 2
    While Cells(i, 2) <> ""
      Cells(i, 1) = WorksheetFunction.CountIf(Range("C2", Range("C" & Rows.Count).End(xlUp)), Cells(i, 2))
      i = i + 1
    Wend
End Sub

Zie ook het voorbeeld in de bijlage (Excel 2007).
Bekijk bijlage unieke items tellen.xlsm

Groet,
Morrice