Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtro Tabela Dinam...
 
Notifications
Clear all

Filtro Tabela Dinamica VBA

 
2024 - VBA & Macros
Post Recente por MPrudencio 8 anos atrás
4 Posts
3 Usuários
0 Reactions
2,154 Visualizações
RSS
 artzn
(@artzn)
Posts: 32
Eminent Member
Topic starter
 

Como seleciono apenas um item no filtro da tabela dinamica via macro?

Sei que existe a possibilidade de fazer assim:

.PivotItems("lalal").Visible = False -> Preciso de algo que desmarque tudo
.PivotItems("89").Visible = True

Mas preciso desmarcar todas e selecionar apenas uma ( existem varios e todo dia muda e so preciso de uma das categorias.)

 
Postado : 05/07/2016 1:07 pm
 vbajr10
(@vbajr10)
Posts: 34
Eminent Member
 

Coloque abaixo, lembrando que caption deve ser correspondência exata ou dara erro. 

Sub Filtros()
Dim Pi As PivotItem
 
    S = InputBox("Qual filtro deseja?", "Filtros")
 
    With ActiveSheet.PivotTables("Sua Tabela").PivotFields("Seu Filtro")
     
    For Each Pi In .PivotItems
        If Pi.Caption <> S Then Pi.Visible = False
    Next Pi
 
    End With
 
End Sub
 
Postado : 05/07/2016 4:48 pm
 artzn
(@artzn)
Posts: 32
Eminent Member
Topic starter
 

Certo,

Sou iniciante ainda com as macros, nao tem uma maneira de fazer tipo:

.PivotItems("(Todos)").Visible = False --> uma das caixinhas pra marcar e desmarcar, a primeira que marca e desmarca tudo

 
Postado : 07/07/2016 3:17 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Cara nao é mais simples fazer isso manualmente???

Complicar o simples pra que?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/07/2016 3:36 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico