Hoi,
Ik heb een ingewikkelde vraag ivm draaitabellen in excel :
Ik heb een werkblad in excel met 4 verschillende draaitabellen.
Ze zijn met elkaar verbonen via filters : op Klantnaam, Productcategorie en Waarde. Als ik dus een andere klant kies in de filter van de eerste draaitabel veranderen de andere filters ook automatisch mee naar die andere klant.
Het probleem is dat de 4e draaitabel ook moet meeveranderen als de klantnaam of de productcategorie veranderen MAAR niet als de waarde wordt veranderd.
Dit komt omdat ik 2 velden met waarden heb : waarde 1 = Volume / Omzet, waarde 2 = GP % / GP (€).
De code die ik tot nu toe heb loopt echter nog steeds vast :
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("Client").CurrentPage
Pt.PivotFields("Client").CurrentPage = choice
End If
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Category").CurrentPage
Pt.PivotFields("Category").CurrentPage = choice
End If
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Value").CurrentPage
Pt.PivotFields("Value").CurrentPage = choice
End If
Pt.Update
Next Pt
Application.EnableEvents = True
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub
Iemand een idee hoe ik dit kan oplossen ?
Ik heb een ingewikkelde vraag ivm draaitabellen in excel :
Ik heb een werkblad in excel met 4 verschillende draaitabellen.
Ze zijn met elkaar verbonen via filters : op Klantnaam, Productcategorie en Waarde. Als ik dus een andere klant kies in de filter van de eerste draaitabel veranderen de andere filters ook automatisch mee naar die andere klant.
Het probleem is dat de 4e draaitabel ook moet meeveranderen als de klantnaam of de productcategorie veranderen MAAR niet als de waarde wordt veranderd.
Dit komt omdat ik 2 velden met waarden heb : waarde 1 = Volume / Omzet, waarde 2 = GP % / GP (€).
De code die ik tot nu toe heb loopt echter nog steeds vast :
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("Client").CurrentPage
Pt.PivotFields("Client").CurrentPage = choice
End If
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Category").CurrentPage
Pt.PivotFields("Category").CurrentPage = choice
End If
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Value").CurrentPage
Pt.PivotFields("Value").CurrentPage = choice
End If
Pt.Update
Next Pt
Application.EnableEvents = True
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub
Iemand een idee hoe ik dit kan oplossen ?
