Subtotalen toevoegen middels macro

[AxeldeVries]

Hallo,

Zie onderstaand ter illustratie een voorbeeld, waarbij ik opzoek ben om een makkelijke manier te vinden om bij een wijziging in administratienummer een sub totaal voor code 15 onder de Waarde huidige periode en waarde vorige periode te krijgen.
Dit dan tevens als geel gearceerd en vetgedrukt te laten zien.
Op dit moment voeg ik steeds een lege regel toe onder elke wijziging van Administratienummer en voeg ik middels formules = som.als en hier de kolom Code selectie en 15 en waarde huidige periode invullen. Zelfde voor Waarde vorige periode.

Dit is te doen bij een relatief klein bestand, maar is veel werk bij een document waarbij meer dan 2500 regels zijn iedere periode en 25 verschillende administratienummers zijn.

Kan iemand mij helpen, tips geven?

Administratienummer	Naam	Code	Waarde Huidige periode	Waarde vorige periode	Verschil
99651​	Willems	11​	€ 12,50	€ 10,00	€ 2,50
99651​	Willems	13​	€ 15,00	€ 12,00	€ 3,00
99651​	Willems	15​	€ 36,00	€ 25,00	€ 11,00
99651​	Engels	11​	€ 8,00	€ 2,00	€ 6,00
99651​	Engels	13​	€ 10,00	€ 8,00	€ 2,00
99651​	Engels	15​	€ 11,00	€ 3,00	€ 8,00
99651​	Dam, van	11​	€ 26,00	€ 16,00	€ 10,00
99651​	Dam, van	13​	€ 27,00	€ 25,00	€ 2,00
99651​	Dam, van	15​	€ 28,00	€ 29,00	€ -1,00
99700​	Dorp, van	11​	€ 9,00	€ 10,00	€ -1,00
99700​	Dorp, van	13​	€ 15,00	€ 17,00	€ -2,00
99700​	Dorp, van	15​	€ 26,00	€ 28,00	€ -2,00
99700​	Peekel	11​	€ 65,00	€ 65,00	€ -
99700​	Peekel	13​	€ 125,00	€ 125,00	€ -
99700​	Peekel	15​	€ 75,00	€ 75,00	€ -
99700​	Touw	11​	€ 33,00	€ 33,00	€ -
99700​	Touw	13​	€ 25,00	€ 25,00	€ -
99700​	Touw	15​	€ 21,00	€ 21,00	€ -
99825​	Bent	11​	€ 36,00	€ 36,00	€ -
99825​	Bent	13​	€ 21,00	€ 21,00	€ -
99825​	Bent	15​	€ 25,00	€ 25,00	€ -
99825​	Kwaak	11​	€ 1,00	€ 2,50	€ -1,50
99825​	Kwaak	13​	€ 6,00	€ 6,75	€ -0,75
99825​	Kwaak	15​	€ 7,00	€ 7,50	€ -0,50
99825​	Lopez	11​	€ 11,00	€ 14,00	€ -3,00
99825​	Lopez	13​	€ 25,00	€ 20,00	€ 5,00
99825​	Lopez	15​	€ 36,00	€ 36,00	€ -
99850​	Gerards	11​	€ 25,00	€ 25,00	€ -
99850​	Gerards	13​	€ 25,00	€ 25,00	€ -
99850​	Gerards	15​	€ 25,00	€ 25,00	€ -
99850​	Poel	11​	€ 125,00	€ 125,00	€ -
99850​	Poel	13​	€ 125,00	€ 125,00	€ -
99850​	Poel	15​	€ 125,00	€ 145,00	€ -20,00
99850​	Wijnstekers	11​	€ 325,00	€ 325,00	€ -
99850​	Wijnstekers	13​	€ 214,00	€ 250,00	€ -36,00
99850​	Wijnstekers	15​	€ 365,00	€ 300,00	€ 65,00

 

[popipipo]

Een draaitabel zal volgens mij je enorm helpen.
Voor meer hulp is een excel bestandje nodig.

 

[AxeldeVries]

Hallo,

Dank voor je snelle reactie.

Draaitabel snap ik, echter is het de bedoeling dat de lijst intact blijft en deze gepubliceerd wordt aan directie.
Ik zal een excel voorbeeld maken.

 

[popipipo]

Door een draaitabel veranderd de oorspronkelijke lijst niet.
De lijst veranderd wel als je overal een subtotaal wilt tussen zetten.

 

[AxeldeVries]

Bijgaand een voorbeeld bestand, waarbij op regel 11 handmatig de benodigde regel is toegevoegd.
Dit moet dus bij elke wijziging in administratienummer.

 

[AxeldeVries]

Door een draaitabel veranderd de oorspronkelijke lijst niet.
De lijst veranderd wel als je overal een subtotaal wilt tussen zetten.

Scherp.
De bedoeling is dat de lijst blijft zoals die is met de regels met subtotalen erin verwerkt.

 

[emields]

bedoel je zoiets?

 

[AxeldeVries]

bedoel je zoiets?

Hi,
Nee geen draaitabel toepassing.

Lijst moet zelfde zijn qua opbouw.
In mijn voorbeeld document de gele regel, die moet bij iedere wijziging in administratienummer worden toegevoegd. Hoe dit op een makkelijke manier kan zonder handmatig bij elke wijziging in administratienummer dit handmatig te moeten toevoegen.

 

[popipipo]

Dat zal dan via VBA moeten gebeuren.
Dat laat ik dan aan anderen over.

Waarom moeilijk doen als het makkelijk kan.
Waarom makkelijk doen als het moeilijk kan

 

[AHulpje]

Bedoel je zoiets:
Gegevens, Overzicht, Subtotaal.

 

[AxeldeVries]

Bedoel je zoiets:
Gegevens, Overzicht, Subtotaal.

Hi,

Dank voor je bericht.
Dit is 'm ook niet helemaal. Opzet wel, maar de subtotaal tellingen moeten alleen van de waardes van code 1240 zijn.

 

[AxeldeVries]

Dat zal dan via VBA moeten gebeuren.
Dat laat ik dan aan anderen over.

Waarom moeilijk doen als het makkelijk kan.
Waarom makkelijk doen als het moeilijk kan

Dat denk ik ook, maar dat lukt me niet

 

[JEC.]

Ik snap ook niet waarom je het in deze opzet moet houden. Je maakt het je onnodig moeilijk.
Als je office 365 hebt geeft deze je de samenvatting.

=LET(t;A2:F65;z;TAKE(t;;1);u;UNIQUE(TAKE(t;;1));DROP(REDUCE("";u;LAMBDA(a;b;VSTACK(a;HSTACK(b;BYCOL(FILTER(TAKE(t;;-2);(z=b)*(INDEX(t;;3)=1240));LAMBDA(x;SUM(x)))))));1))

 

[AHulpje]

Eerst filteren op Code=1240, dan subtotalen toevoegen?

 

[AxeldeVries]

Eerst filteren op Code=1240, dan subtotalen toevoegen?

Nee gaat erom dat de lijst intact blijft alleen met regels ertussen waar de subtotalen op zichtbaar zijn.

 

[AxeldeVries]

Ik snap ook niet waarom je het in deze opzet moet houden. Je maakt het je onnodig moeilijk.
Als je office 365 hebt geeft deze je de samenvatting.

=LET(t;A2:F65;z;TAKE(t;;1);u;UNIQUE(TAKE(t;;1));DROP(REDUCE("";u;LAMBDA(a;b;VSTACK(a;HSTACK(b;BYCOL(FILTER(TAKE(t;;-2);(z=b)*(INDEX(t;;3)=1240));LAMBDA(x;SUM(x)))))));1))

Ik ben het met je eens, maar directie wil deze lijst zo houden en daar moeten dan de subtotalen in verwerkt worden.

 

[AHulpje]

Volg de cursus "Hoe overtuig ik de directie", maar als dat niet helpt kun je dit gebruiken:

 

[HSV]

Sub hsv()
  Cells(1).CurrentRegion.Subtotal 1, xlSum, Array(5, 6)
End Sub


Sub hsv_2()
  Cells(1).CurrentRegion.RemoveSubtotal
End Sub

 

[Haije]

Komt dit in de buurt van wat je wilt (is op basis van je openingspost)?
LET OP: macro's toestaan

 

[Haije]

en hier met jij eigen voorbeeldbestand