Bekijk bijlage PIVOT SUBS.zipHoi,
Twee vragen:
1. betreft een betere oplossing voor de Do-Loop die ik nu gebruik.
2. hoe ik in de rijen van een draaitabel de subtotal en Grand total rijen een kleur kan geven (zoals in het sheet BASIS)
Re: 1
Ik heb een bestand (sheet : BASIS) met een draaitabel (sheet: PIVOT) en in die draaitabel wil ik alle kolommen met het TOTAL verbergen. Op zich lukt me dat wel, met de code die in het voorbeeld bestand staat, maar ik weet zeker dat het niet de schoonheidsprijs krijgt.
Waar ik in de Do-Loop code nu
gebruik
Zou ik eigenlijk liever iets willen hebben die zegt Loop Until (en dan de cel waarde “Grand Total”)
Dus vraag 1. Hoe kan ik in de VBA het Loop Until aanpassen met een Cell waarde.
Re: 2
Hoe kan ik middels VBA de Rijen met TOTALS vinden een een kleur geven (zoals in het voorbeeld in de sheet BASIS)
Voor wie met 1 of beide antwoorden komt alvast heel erg bedenkt voor het meedenken.
Grtnx
Humadgen
Twee vragen:
1. betreft een betere oplossing voor de Do-Loop die ik nu gebruik.
2. hoe ik in de rijen van een draaitabel de subtotal en Grand total rijen een kleur kan geven (zoals in het sheet BASIS)
Re: 1
Ik heb een bestand (sheet : BASIS) met een draaitabel (sheet: PIVOT) en in die draaitabel wil ik alle kolommen met het TOTAL verbergen. Op zich lukt me dat wel, met de code die in het voorbeeld bestand staat, maar ik weet zeker dat het niet de schoonheidsprijs krijgt.
Waar ik in de Do-Loop code nu
Code:
Loop Until IsEmpty(ActiveCell.Offset(3, 0))
Zou ik eigenlijk liever iets willen hebben die zegt Loop Until (en dan de cel waarde “Grand Total”)
Dus vraag 1. Hoe kan ik in de VBA het Loop Until aanpassen met een Cell waarde.
Re: 2
Hoe kan ik middels VBA de Rijen met TOTALS vinden een een kleur geven (zoals in het voorbeeld in de sheet BASIS)
Voor wie met 1 of beide antwoorden komt alvast heel erg bedenkt voor het meedenken.
Grtnx
Humadgen