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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro que filtar Tabela Dinâmica
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qui Fev 07, 2019 4:31 pm
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Sex Abr 12, 2019 4:08 pm
Re: Macro que filtar Tabela Dinâmica
Boa tarde Tsabechara,
voce pode adaptar esse código altere os dados em vermelho de acordo com a sua planilha:
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