unieke items sorteren

Status
Niet open voor verdere reacties.

meijerg56

Gebruiker
Lid geworden
19 jan 2016
Berichten
25
Hallo

ik probeer in excel 2016 via een makro een optelling te maken van aantal stuks produkten
ik heb een makro geleend van het forum waar zoiets al gedaan is maar dan met cijfers in plaats van letters
ik krijg echter een foutmelding
de bedoeling is om in kolom b unieke items te maken die in kolom a opgeteld worden en/ of in kolom e het totaal aantal stuks weergeeft
de unieke aantallen werkt wel met deze makro ,alleen het optellen in a werkt niet
optellen in a kan ook overgeslagen worden als totaal in kolom e maar klopt

wie zou mij hier mee kunnen helpen

Gert
 

Bijlagen

  • test makro.xlsm
    34,8 KB · Weergaven: 49
Laatst bewerkt:
Kun je van de titel van de draad svp begrijpelijk Nederlands maken ?
 
Hoofdletters en leestekens helpen ook.
Je zegt een foutmelding te krijgen. Vertel er ook bij welke dat exact is.
 
Is toch iets voor een draaitabel?

Met code kan ook. Om het gelijk binnen een collection te sorteren kan je vinden op de site van snb. De code kan wel eenvoudiger maar nu kan je het vergelijken met de draaitabel.

Code:
Sub VenA()
  ar = Sheets("blad 1").ListObjects(1).DataBodyRange
  With CreateObject("Scripting.Dictionary")
    For j = 1 To UBound(ar)
      If Not .Exists(ar(j, 1)) Then .Item(ar(j, 1)) = ar(j, 2) Else .Item(ar(j, 1)) = .Item(ar(j, 1)) + ar(j, 2)
    Next j
    Sheets("blad 1").Cells(3, 1).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
    Sheets("blad 1").Cells(3, 1).Resize(.Count, 2).Sort Sheets("blad 1").Cells(3, 1), , , , , , , xlNo
  End With
End Sub
 

Bijlagen

  • test makro.xlsb
    31,5 KB · Weergaven: 39
De code kan inderdaad wel zonder:
Code:
If Not .Exists(ar(j, 1)) Then .Item(ar(j, 1)) = ar(j, 2) Else
 
Bedankt allen
een draaitabel was inderdaad de eenvoudigste oplossing

Gert
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan