Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 »

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