Como manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha no Excel?

Ao trabalhar com uma Tabela Dinâmica, você pode inserir filtros para filtrar visualmente os dados da tabela. Este artigo aborda como manter o filtro da Tabela Dinâmica sempre visível enquanto rola a planilha.

Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha usando código VBA

Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha usando código VBA

O seguinte script VBA pode ajudá-lo a manter o filtro da Tabela Dinâmica se movendo com a planilha. Por favor, siga os passos abaixo.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda e, em seguida, copie e cole o código VBA abaixo na janela ThisWorkbook (Code). Veja a captura de tela:

Código VBA: Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Notas:

1). No código, Coluna1 e Coluna2 são os nomes dos filtros.

2). Você pode especificar a posição dos filtros enquanto rola a planilha no código.

3). E você pode adicionar mais filtros ao código ou remover filtros dele conforme necessário.

3. Pressione as teclas Alt + Q para fechar a caixa de diálogo da janela do Microsoft Visual Basic for Applications.

A partir de agora, os filtros especificados serão movidos com a célula ativa enquanto você rola a planilha. Veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Artigos relacionados:

• Como manter a tabela expansível inserindo linha de tabela em uma planilha protegida no Excel?
• Como combinar células e manter a formatação da célula no Excel?
• Como remover duplicatas, mas manter a primeira instância no Excel?