group by product met som totaal

[Interface]

Hi,

Ik heb een query bestand met daarin dubbele producten en wil hier eigenlijk een distinct in waarbij ik alleen enkele productnamen heb, nu is er per product een totaal aantal liters en dit moet ondanks die distinct dan wel opgeteld worden als een totaal van dat product. Normaal zou ik dit in de query oplossen met een group by clause maar heb geen toegang tot de database anders dan alleen tot de excel output.

Nu zou me dit uiteindelijk wel lukken maar dat zou dan met een for loop zijn en dan alles optellen met een match en dan de uiteindelijke regels verwijderen.

Vraag eigenlijk of dit eenvoudiger is met de filter en dan met de evaluate. Nu gebruik ik die optie eigenlijk nooit maar zie die functie hier weleens voorbijkomen.

Voordat ik het wiel helemaal opnieuw uit moet vinden, misschien iemand die dit zo uit de mouw schud en mij een dag uitzoeken/uitvogelen bespaart....

Voorbeeld bestand aanwezig.

 

[OctaFish]

Maak een draaitabel, zet de weergave op Tabel en gebruik het veld Liters om te totaliseren.

 

[OctaFish]

En hierbij de uitwerking. Overigens heb je er dus geen macro's bij nodig... Dit is gewoon een Excel vraag en staat dus in het verkeerde forum .

 

[Interface]

dank je wel

Octafish dank je wel maar dit is een klein onderdeel van andere code dus ik wil dit dan eigenlijk wel graag in vba hebben.

 

[JEC.]

Kun je hier mee verder?

Sub j()
jv = Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
     For i = 1 To UBound(jv)
       .Item(jv(i, 1)) = .Item(jv(i, 1)) + jv(i, 2)
     Next
    Cells(1, 12).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
  End With
End Sub

 

[VenA]

Nog steeds hetzelfde zonder VBA en zonder draaitabel. Kost waarschijnlijk wel even een paar minuten om uit te vogelen/zoeken hoe het werkt. Maar dan heb je ook een nieuw wiel.

 

[Interface]

Thanks de oplossing van JVeer was wat ik zocht.