Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Macro que filtar Tabela Dinâmica

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
tsabechara
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Fev 07, 2019 4:31 pm

Macro que filtar Tabela Dinâmica

Mensagem por tsabechara » Qui Fev 07, 2019 4:41 pm

Olá, boa tarde

Estou tentando fazer uma macro que a pessoa clica num botão, que vai para a Plan 2 e que copia um dado da célula e filtre já na tabela dinâmica
Como faço isso?
Pq não dá certo.
Ele não filtra.
Alguém consegue me ajudar?
Obrigada

Sub Macro3()
'
' Macro3 Macro
'

'
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
Selection.Copy
With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields( _
"Pistas_Ajustadas2")
.PivotItems("ff-CORE i7").Visible = False
.PivotItems("fh-COMPUTADOR").Visible = True
End With
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


daavmendonca
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Abr 12, 2019 4:08 pm

Re: Macro que filtar Tabela Dinâmica

Mensagem por daavmendonca » Sex Abr 12, 2019 4:32 pm

Boa tarde Tsabechara,
voce pode adaptar esse código altere os dados em vermelho de acordo com a sua planilha:


Cel = Range("A8") 'Celula que vai ser utilizada como parametro para o filtro
    
     With Sheets("Planilha2").PivotTables("Tabela dinâmica2")
        .ClearAllFilters
        For Each PvtItm In .PivotFields("User").PivotItems
            If PvtItm.Name Like "*" & Cel & "*" Then
                PvtItm.Visible = True
            Else
                PvtItm.Visible = False
                End If
            Next PvtItm
        End With




Responder