automatisch selecteren in reportfilter van een draaitabel

[Sushike]

Allen,

Is het mogelijk, via een macro, automatisch een veld te selecteren in de reportfilter van je pivottable? Bijvoorbeeld met een link naar een ander cel die aangeeft welke keuze moet gemaakt worden?

Ik vind dit maar niet, kan probeer me te baseren op basis van een macro die ik opneem, maar ik kom geen stap verder.

Groeten

Surinja

 

[Wigi]

Doe er eens een voorbeeldbestandje bij aub, afgemeten aan de reacties (geen!) is de vraag niet erg duidelijk

 

[Sushike]

Hallo,

Ja waarschijnlijk niet zeer duidelijk geformuleerd.
In bijlage een voorbeeldje. Het gaat eigenlijk om 2 draaitabelgrafieken, met dezelfde report filter. Ik zou willen, dat wanneer je in tabel1 een keuze maakt(in voorbeeldje hoog,laag,middel) je automatisch ook deze keuze krijgt voor tabel2.

maar met voorbeeldje misschien wat duidelijker.

Sushike.

 

[Sushike]

Ik heb nog wat geprobeerd en gepuzzeld, ik denk dat het in deze aard moet zijn:

Echt niemand die mij hierbij kan helpen? Ik wou deze macro in een voorbeeldje opslaan, maar dat lukt me niet, in bijlage wel het voorbeeldje waarop deze macro slaat. Ik maakte deze code in een module.

Sub Macro2()
'
' Macro2 Macro
'
Dim pvtItem As PivotItem

For Each pvtItem In Worksheets("Chart_tables").PivotTables("PivotTable1").PivotFields("Type").PivotItems

If pvtItem = Worksheets("Chart_tables").Range("E3").Value Then

pvtItem.Visible = True

Else

pvtItem.Visible = False

End If

Next pvtItem

End Sub

 

[Sushike]

Gevonden op internet

Doe er eens een voorbeeldbestandje bij aub, afgemeten aan de reacties (geen!) is de vraag niet erg duidelijk

Hallo allen,

ik heb dit gevonden op internet, met een werkend voorbeeldje bij en alles. Nu echter(ik ben nieuw met VBA) wil het maar niet werken op mijn document. Ik neem identiek over wat ik op heb voorbeeldje kan vinden, pas de veldnamen aan en toch krijg ik steeds een foutmelding, en ik weet echt niet wat ik verkeerd doe.
(op een ander werkblad, het voorbeeldje eerder toegevoegd wil het wel werken.

foutmelding: Compile error: ByRef argument type mismatch, wat wil dit zeggen, ik begrijp van helpfunctie, het is een soort van datatype fout?

Kan ik een link zetten op dit forum naar de gevonden website?

 

[Wigi]

Kan ik een link zetten op dit forum naar de gevonden website?

Ja, en ook de file waarin jij het toegepast hebt.