draaitabel kolom uitvouwen

[Friend]

Beste forummers,

In het bestand probeer ik te verwezenlijken dat als in cel N3 "samengevoegd" staat dat in de draaitabel
kolom veld naam (H3) wordt uitgevouwen.

Maar ik kom er niet uit.

Wat die ik verkeerd?

Friend

 

[VenA]

Wat wil je ermee dan? Al eens een macro opgenomen?

Sub VenA()
  Sheets("Blad1").PivotTables("Draaitabel1").PivotFields("naam ").PivotItems("jan").ShowDetail = Sheets("Blad1").Range("N3") = "samengevoegd"
End Sub

 

[Friend]

VenA,

Hartelijk dank voor je reactie:thumb:

Ja ik neem wel eens macro's op. Maar in dit geval kwam ik er niet uit vanwege de voorwaarde in cel N3 "samengevoegd".

Het overzicht wat ik verstuur moet soms gedetailleerd zijn en soms geconsolideerd op naam/onderwerp.
Doormiddel van een msg box ja/nee wil ik het uitvouwen/samenvoegen voordat de PDF opgemaakt wordt.

Door jouw code zie ik hoe het opgebouwd kan worden

In het overzicht moeten alle namen worden uitgevouwen.

Code aangepast naar :

Sheets("Blad1").PivotTables("Draaitabel1").PivotFields("naam ").ShowDetail = Sheets("Blad1").Range("N3") = "samengevoegd"

Was mij niet gelukt zonder jouw code/oplossing.

Thanks

Friend