twee draaitabellen op één werkblad

[carloteu]

Beste,

Ik heb twee draaitabellen gemaakt op dezelfde brongegevens. Nu zou ik de tweede draaitabel op hetzelfde werkblad plaatsen als van de eerste draaitabel en op zodanige wijze dat ze onder elkaar komen te staan zonder veel lege rijen tussen de twee draaitabellen.
Ik werk ook met slicrs om de draaitabellen te filteren. Dit betekent dat het bereik van de draaitabel dynamisch wordt.
Dus in plaats van een vaste locatie van de tweede draaitabel zou ik die dynamisch wiillenmaken afhankelijk van het bereik van de eerte draaitabel.
Ieman een oplossing ?

Carlo Teuns

 

[VenA]

Voldoende ruimte reserveren voor de eerste draaitabel en vervolgens rijen verbergen.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
With Application
    .ScreenUpdating = False
    Rows.EntireRow.Hidden = False
    Range(Rows(.Match("Grand Total", Columns(1), 0) + 2), Rows(28)).EntireRow.Hidden = True
    'of Range(Rows(.Match("Eindtotaal", Columns(1), 0) + 2), Rows(28)).EntireRow.Hidden = True
    End With
End Sub

Het is beter als je zelf een voorbeeldje plaatst dus nu maar deze. (werkt met de slicers. Maar als je de gewone filterknoppen gebruikt loopt het vast?)

 

[pixcel]

Zelfde idee maar iets andere uitvoering:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim rPivot1 As Excel.Range
    Dim rPivot2 As Excel.Range
    With Me
        Set rPivot1 = .PivotTables("PivotTable1").TableRange2
        Set rPivot2 = .PivotTables("PivotTable2").TableRange2
        .Rows(rPivot1(1).Row & ":" & rPivot2(1).Row - 1).EntireRow.Hidden = True
    End With
    With rPivot1
        .Resize(.Rows.Count + 2).EntireRow.Hidden = False
    End With
End Sub

Tip: voeg een rij in zodat de pivot niet op de eerste rij staat.
Noot: het event wordt twee keer uitgevoerd.

Met dank aan VenA voor het voorbeeld.

 

[VenA]

@pixcel,

In ieder geval een betere uitvoering.:thumb:

Ik was eigenlijk een beetje met die slicers aan het 'pielen' om te kijken wat deze dingen doen.

Vanwaar de tip "Voeg een rij ........" ?