Goedemiddag,
Ik wil een functie waarmee ik alle filters in alle Sheets en Pivot Tables (1 per sheet) ongedaan kan maken.
Waarom wil ik dit: de Pivot Tables halen hun informatie dmv Power Query uit een map met bestanden. Wanneer daar bestanden aan worden toegevoegd wordt de data geüpdated dmv 'Refresh All'.
Deze nieuwe data staat dan nog niet zichtbaar in de draaitabellen De nieuwe data wordt pas zichtbaar als de filters gewist worden.
Daarom wil ik graag:
1: ActiveWorkbook.RefreshAll
2: En daarna ClearAllFilters op alle draaitabellen in alle Sheets doet (max 1 draaitabel per sheet).
De reden dat ik dit wil is dat de functie RefreshAll niet de draaitabellen zelf ververst.
De regel
geeft een foutmelding:
Met vriendelijke groet,
Visara
Ik wil een functie waarmee ik alle filters in alle Sheets en Pivot Tables (1 per sheet) ongedaan kan maken.
Waarom wil ik dit: de Pivot Tables halen hun informatie dmv Power Query uit een map met bestanden. Wanneer daar bestanden aan worden toegevoegd wordt de data geüpdated dmv 'Refresh All'.
Deze nieuwe data staat dan nog niet zichtbaar in de draaitabellen De nieuwe data wordt pas zichtbaar als de filters gewist worden.
Daarom wil ik graag:
1: ActiveWorkbook.RefreshAll
2: En daarna ClearAllFilters op alle draaitabellen in alle Sheets doet (max 1 draaitabel per sheet).
De reden dat ik dit wil is dat de functie RefreshAll niet de draaitabellen zelf ververst.
Code:
Sub Workbook_RefreshAll()
ActiveWorkbook.RefreshAll
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Activate
ws.PivotTables.ClearAllFilters
Next ws
End Sub
De regel
Code:
ws.PivotTables.ClearAllFilters
Met vriendelijke groet,
Visara