4x Pivot laten autofilteren op waarde – Macro?

[Vincexcel]

L.S.
Graag advies m.b.t. de volgende Excel uitdaging.

Ik ben bezig om statistieken te standaardiseren echter valt het nog niet mee.
4 draaitabellen op 4 werkbladen zorgen ervoor dat er informatie wordt weergegeven over orders. In de eerste kolom op een werkblad gebruik ik de autofilter om de informatie te filteren op de klant.

In de huidige situatie ga ik handmatig naar ieder blad om de autofilter te selecteren. Aangezien de gegevens worden opgevraagd uit een enorme dataset duurt het vrij lang voordat alle gegevens boven water zijn.

In de ideale situatie zou het super zijn wanneer ik d.m.v. data validatie de klant selecteer in een drop-down menu op het eerste (extra blad) en d.m.v. een button/macro alle 4 de draaitabellen laat autofilteren.

Is dit mogelijk? Lijkt me een vrij lastige opgave.

Reeds doorgenomen:
http://www.helpmij.nl/forum/showthread.php/367264-Excel-Filter-m-b-v-Macro
http://www.helpmij.nl/forum/showthread.php/312926-macro-en-autofilter
http://www.helpmij.nl/forum/showthread.php/312635-macro-als-filter

Vriendelijk bedankt!

Gr
Vince

 

[Niels28]

Inderdaad vrij lastig.....zonder voorbeeld.

Het is zo lastig dat je dit vrij simpel zelf zou moeten kunnen.
klik op macro opnemen en stel de filter in, klik op macro stoppen en met een paar aanpassingen heb je wat je wilt.

Niels

 

[Niels28]

simpel voorbeeldje, ga er vanuit dat je draaitabellen dezelfde naam hebben.

Sub Macro1()

Application.ScreenUpdating = False
    For i = 1 To 4
        With Sheets(i + 1).PivotTables("Draaitabel1").PivotFields("wat") 'draaitabel1 veranderen in de naam van jouw tabel, "wat" veranderen in de kolom waarop gefilterd moet worden.

            For x = 1 To .PivotItems.Count
                If .PivotItems(x).Value <> Sheets(1).Range("B3").Value Then .PivotItems(x).Visible = False 'sheets(1).range("b3") veranderen in de cel waar de validatie staat.
            Next
     
        End With
        Next
        ThisWorkbook.RefreshAll
        
End Sub

Niels