Como filtrar uma Tabela Dinâmica com base em um valor de célula específico no Excel?

A filtragem de dados em uma Tabela Dinâmica geralmente é feita selecionando itens de uma lista suspensa. No entanto, pode haver situações em que você deseja que a Tabela Dinâmica filtre dinamicamente com base no valor de uma célula específica. Este tutorial fornece uma solução VBA simples para automatizar esse processo, facilitando o gerenciamento e análise eficiente dos seus dados.

Filtrar Tabela Dinâmica com base em um valor de célula específico com código VBA

Filtrar Tabela Dinâmica com base em um valor de célula específico com código VBA

O seguinte código VBA pode ajudá-lo a filtrar uma Tabela Dinâmica dinamicamente com base em um valor de célula específico no Excel. Por favor, siga os passos abaixo.

1. Insira antecipadamente um valor no qual você deseja filtrar a Tabela Dinâmica em uma célula (aqui eu selecionei a célula H6).

2. Abra a planilha que contém a Tabela Dinâmica que você deseja filtrar por valor de célula. Em seguida, clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto. Veja a captura de tela:

3. Na janela aberta do Microsoft Visual Basic for Applications, copie o código VBA abaixo na janela de Código.

Código VBA: Filtrar Tabela Dinâmica com base no valor da célula

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

Observações: No código,

4. Pressione as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.

Agora, a Tabela Dinâmica filtrará dinamicamente com base no valor na célula H6, como mostrado na captura de tela abaixo:

Você pode atualizar o valor da célula para aplicar um filtro diferente conforme necessário.

Nota: Os valores digitados na célula H6 devem corresponder exatamente aos valores na lista suspensa Categoria da Tabela Dinâmica.

Artigos relacionados:

• Como combinar várias planilhas em uma tabela dinâmica no Excel?
• Como criar uma Tabela Dinâmica a partir de um arquivo de Texto no Excel?
• Como vincular o filtro da Tabela Dinâmica a uma determinada célula no Excel?