• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

3 draaitabel grafieken onder elkaar filter automatisch wijzigen in alle 3?

Status
Niet open voor verdere reacties.

Iejoor

Gebruiker
Lid geworden
25 feb 2007
Berichten
83
Hallo

ik heb een vraag over draaitabel grafieken. Ik maak uit een access database 3 grafieken onder elkaar in excel middels draaitabel grafiek
Ik krijg dan uiteraard de mogelijkheid te filteren in de grafiek (en dat wil ik ook).
Alleen moet ik vervolgens dan in de 3 grafieken 3x de filter aanpassen. Kan dat ook in 1x? kortom ik wijzig het in de bovenste grafiek en de onderste grafieken lopen mee?
vraag ESN.PNG

bedankt alvast voor het meedenken!
 
Een voorbeeldbestandje was wel makkelijk geweest , nu moest ik het zelf reproduceren:(




Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Range("G3"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        With ActiveSheet
            i = .PivotTables("Draaitabel1").PivotFields("jaar").CurrentPage
            .PivotTables("Draaitabel2").PivotFields("jaar").ClearAllFilters
            .PivotTables("Draaitabel2").PivotFields("jaar").CurrentPage = i
            .PivotTables("Draaitabel3").PivotFields("jaar").ClearAllFilters
            .PivotTables("Draaitabel3").PivotFields("jaar").CurrentPage = i
        End With
    End If
    
    Application.EnableEvents = True
End Sub


Niels
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan