Hoe vernieuw ik alle draaitabellen?

Geloof me, als je alle draaitabellen tegelijkertijd kunt vernieuwen, kun je veel tijd besparen. Ja het is waar. Denk zo. Je hebt 10 draaitabellen en het verversen van één draaitabel duurt een seconde.

10 draaipunten = 10 seconden

Net zoals u het maken van een draaitabel kunt automatiseren, zijn er verschillende manieren waarop u deze kunt gebruiken om deze automatisch te vernieuwen. In dit artikel zal ik 3 eenvoudige methoden met u delen die u kunt gebruiken om alle draaitabellen en uw tijd te vernieuwen.

Gebruik de knop “Alles vernieuwen” om alle draaitabellen in de werkmap bij te werken

De knop “Alles vernieuwen” is een eenvoudige en gemakkelijke manier om alle draaitabellen in een werkmap met één klik te vernieuwen.

Het enige wat u hoeft te doen is naar het tabblad Gegevens ➜ Verbindingen ➜ Alles vernieuwen te gaan.

Vernieuw automatisch alle draaipunten wanneer u een werkmap opent

Als u alle draaitabellen wilt vernieuwen bij het openen van een werkmap, kunt u de volgende stappen gebruiken om hiervoor een eenmalige configuratie uit te voeren.

Hieronder vindt u de stappen die u kunt gebruiken om alle draaitabellen automatisch te vernieuwen wanneer u een werkmap opent.

1. Selecteer een van de draaitabellen in uw werkmap.
2. Klik er met de rechtermuisknop op en selecteer ‘Opties voor draaitabel’.
3. Ga naar het tabblad Gegevens ➜ Vink “Gegevens vernieuwen bij het openen van een bestand” aan.
4. Klik OK.

VBA-code om alle draaitabellen met één klik bij te werken

Ja, u kunt VBA ook gebruiken om alle draaitabellen te vernieuwen. Het enige dat u hoeft te doen, is simpelweg de onderstaande code gebruiken.

 Sub RefreshCustomPivotTable() With ActiveSheet .PivotTables.RefreshTable End With End Sub

De bovenstaande code vernieuwt alle draaitabellen in uw actieve werkblad en u kunt deze macro ook toewijzen aan een knop die u met een enkele klik kunt gebruiken.

Vernieuw alleen specifieke draaitabellen met VBA

Als u specifieke draaitabellen heeft die u wilt bijwerken, kunt u de onderstaande VBA-code gebruiken.

 Sub RefreshCustomPivotTable() With ActiveSheet .PivotTables("PivotTable1").RefreshTable .PivotTables("PivotTable2").RefreshTable .PivotTables("PivotTable3").RefreshTable .PivotTables("PivotTable4").RefreshTable .PivotTables("PivotTable5").RefreshTable End With End Sub

Wijzig de naam van de draaitabellen volgens uw werkmap. En als u deze aangepaste draaitabellen elke keer wilt bijwerken wanneer u een werkmap opent, wijzigt u de macronaam in auto_open .

 Sub auto_open() With ActiveSheet .PivotTables("PivotTable1").RefreshTable .PivotTables("PivotTable2").RefreshTable .PivotTables("PivotTable3").RefreshTable .PivotTables("PivotTable4").RefreshTable .PivotTables("PivotTable5").RefreshTable End With End Sub

Meer informatie over draaitabellen

1. Verbind een enkel segment met meerdere draaitabellen
2. Automatisch een draaitabelbereik bijwerken
3. Groepeer datums in een draaitabel
4. Draaitabeltijdlijn
5. Draaitabel met meerdere bestanden