Ook meerder draaitabellen op 1 pagina

[Twet]

Hallo,

Ik heb ook meerdere draaitabellen op 1 pagina. Ik heb weinig verstand van visual basics, maar na het doorzoeken van enkele discussies op dit forum heb ik de volgende gegevens op mijn worksheet geplaatst in Visual basics:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Dim Pt As PivotTable, choice As String
For Each Pt In ActiveSheet.PivotTables
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Verslagdatum").CurrentPage
Pt.PivotFields("Verslagdatum").CurrentPage = choice
End If
Next Pt
Application.EnableEvents = True
End Sub

In mijn werkblad gebeurt nu echter helemaal niets. Moet ik vba op de één of andere manier eerst activeren? Macro's zijn ingeschakeld. Als ik naar Extra-Macro's ga zie ik echter ook geen macro staan.

Volgens mij mis ik iets ofzo.

Twet

 

[Roncancio]

Hallo,

Ik heb ook meerdere draaitabellen op 1 pagina. Ik heb weinig verstand van visual basics, maar na het doorzoeken van enkele discussies op dit forum heb ik de volgende gegevens op mijn worksheet geplaatst in Visual basics:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Dim Pt As PivotTable, choice As String
For Each Pt In ActiveSheet.PivotTables
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Verslagdatum").CurrentPage
Pt.PivotFields("Verslagdatum").CurrentPage = choice
End If
Next Pt
Application.EnableEvents = True
End Sub

In mijn werkblad gebeurt nu echter helemaal niets. Moet ik vba op de één of andere manier eerst activeren? Macro's zijn ingeschakeld. Als ik naar Extra-Macro's ga zie ik echter ook geen macro staan.

Volgens mij mis ik iets ofzo.

Twet

De code staat als het goed is bij het werkblad is géén macro (vandaar dat het ook niet bij de macro's staat) maar een Event.
Een Event is een gebeurtenis van een besturingselement, worksheets oid.

Een voorbeeld van een Event is het klikken op een knop, wijzigen van een werkblad etc.

De code wordt geactiveerd als er een update plaatsvindt van een draaitabel.

Wat wil je eigenlijk automatiseren?

Met vriendelijke groet,


Roncancio

 

[Twet]

Aha een Event.........dat maakt het weer iets duidelijker voor mij. Dank je.

Er staan twee draaitabellen op mijn werkblad die bepaalde gegevens weergeven per verslagdatum. Als ik in de ene tabel de verslagdatum wijzig wil ik graag dat de andere tabel automatisch ook wijzigt.

Twet

 

[Roncancio]

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
ActiveSheet.RefreshAll
End Sub

Met vriendelijke groet,


Roncancio

 

[Twet]

Ik snap de bedoeling hiervan wel. Het blad verversen na de actie.

Ik heb dit onder de reeds bestaande gegevens geplakt, maar er gebeurt nog steeds niets. Zit er soms nog een fout in de formules?

Twet

 

[Roncancio]

Ik heb de code aangepast en een simpel voorbeeldbestand bijgestuurd.
Zodra je iets verandert in de blauwe cel worden beide draaitabellen bijgewerkt.

Met vriendelijke groet,


Roncancio

 

[Twet]

Dit is niet helemaal wat ik bedoel geloof ik.

Ik heb even een verkort voorbeeldje bijgevoegd. Als ik nu van draaitabel 1 de verslagdatum wijzig wil ik dus dat die van tabel 2 ook mee gaat.