Marco/VBA code voor updaten van draaitabellen

[Clipstra]

Beste,

Kan ik een macro maken, welke al mijn draaitabellen in 1x kan updaten?

Alvast bedankt!

 

[Roncancio]

Dat kan.

Sub Draaitabellen()
Dim DT As PivotTable

    For Each DT In ActiveSheet.PivotTables
        DT.RefreshTable
    Next
    
End Sub

Met vriendelijke groet,


Roncancio

 

[Clipstra]

Beste Ron,

Dit is dan voor alle sheet in mijn werkblad?

 

[Roncancio]

Beste Ron,

Dit is dan voor alle sheet in mijn werkblad?

Nee, alleen voor het actieve werkblad.
Maar dat is wel aan te passen als je dat wilt.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Beste Ron,

Dit is dan voor alle sheet in mijn werkblad?

Onderstaande code werkt voor alle sheets in het bestand.

Sub Draaitabellen()
Dim DT As PivotTable
Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Worksheets
        For Each DT In WS.PivotTables
            DT.RefreshTable
        Next
    Next
    
End Sub

Met vriendelijke groet,


Roncancio

 

[Clipstra]

Beste Ron,

Ik wil namelijk een knop maken op/in mijn inhoudsopgave waarmee ik alle draaitabellen in mijn gehele werkblak kan updaten..Of moet dat dan per sheet? Dus bij voor 3 sheet, 3x deze code maar dan aangepast op naam van de sheet?

 

[Roncancio]

Beste Ron,

Ik wil namelijk een knop maken op/in mijn inhoudsopgave waarmee ik alle draaitabellen in mijn gehele werkblak kan updaten..Of moet dat dan per sheet? Dus bij voor 3 sheet, 3x deze code maar dan aangepast op naam van de sheet?

Nee. Ik verwijs gaarne naar mijn vorige reactie.
De code kan je aan de knop toevoegen.

Met vriendelijke groet,


Roncancio

 

[Clipstra]

Beste Ron,

Op het moment van vragen, had je al antwoord geven. En het werkt perfect. Al heeft hij er wel moeite mee, duurt een seconde of 30..

Maar bedankt!!