Opgelost Gegevens sorteren als een draaitabel maar dan in een VBA code

[Johande]

Beste,

Ik zou graag de gegevens in de bovenste regels samengevoegd hebben zoals in de onderste regels.
Dus met diversen gegevens uitsorteren en samengevoegd met de juiste aantallen.

Wie zou mij daarmee kunnen helpen?

 

[JEC.]

Maak eerst je tabel in orde, verwijder die onnodige regels bovenaan en gebruik de kolomtitels op de juiste manier.

Sub jec()
 Dim ar, k, j As Long
 ar = Sheets(1).ListObjects(1).Range
 With CreateObject("scripting.dictionary")
   For j = 1 To UBound(ar)
     k = Join(Array(ar(j, 1), ar(j, 2), ar(j, 3), ar(j, 4), ar(j, 5), ar(j, 6), ar(j, 7), ar(j, 8), ar(j, 9)), "^")
     If Not .exists(k) Then
       .Item(k) = Split(k, "^")
     Else
       .Item(k) = Split(Replace(k, ar(j, 1) & "^", .Item(k)(0) + 1 & "^"), "^")
     End If
   Next
   Sheets(1).Range("K41").Resize(.Count, 9) = Application.Index(.items, 0, 0)
 End With
End Sub

 

[Johande]

Hallo Jec,

Dank je.
Zal je advies opvolgen.

Gr. Johan

 

[HSV]

Kan ook met 1 formule voor MO365.

=KIES.KOLOMMEN(GROEPEREN.PER(Tabel1[[Breedte]:[Stekkerzijde]];Tabel1[Aantal];SOM);9;1;2;3;4;5;6;7;8)

 

[JEC.]

Helaas alleen in bèta

 

[HSV]

Ja, helaas wel.