Atualizando um filtro em uma tabela toda vez que as slicers atualizam

Question

Eu tenho uma planilha com segmentações que se referem a um pivô em outra planilha. Na minha folha com fatiadores eles atualizam uma tabela que faz referência ao dito pivô.

A pergunta é que, quando eu mudo os pivôs para novas informações, ele filtra todas as linhas em branco dentro de um intervalo. Eu preciso que ele seja reaplicado toda vez que eu alternar algo nos pivots para ter certeza de que estou sempre exibindo dados atualizados.

Isso é o que eu tentei em vários formatos, mas nada parece fazer o truque:

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 5 Then
    ActiveSheet.AutoFilter.ApplyFilter
End If 
End Sub

    

Answer 1

O código de amostra a seguir ajudará você a filtrar a tabela dinâmica quando o Slicer estiver sendo atualizado.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

 Dim Sheet as WorkSheet, Pivot as PivotTable

 If ActiveWorkbook.SlicerCaches("Region").SlicerItems("East").Selected = True Then

   For Each Sheet in ThisWorkbook.WorkSheets
     For Each Pivot in Sheet.PivotTables
     Pivot.RefreshTable
     Pivot.Update
     Next
   Next

End Sub

NB: Eu presumi que o Cache do Slicer & Nome do item, você precisa modificar os dois de acordo com seus valores.

Espero que isso ajude você.