Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro que limpa tod...
 
Notifications
Clear all

Macro que limpa todos filtros da segmentação de dados

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
4,847 Visualizações
RSS
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Boa tarde Senhores,

Feliz 2017 para todos!

Preciso de uma ajuda para melhorar um projeto que estou fazendo.

Eu tenho uma planilha, onde há uma tabela dinâmica e varias segmentações de dados pra ajudar nas minhas analises.

A dúvida é?

Existe uma macro que eu desmarque todos os filtros das segmentações tudo de uma vez?
Gostaria de clicar num botão e tirar todos os filtros das segmentações, pois eu tenho que tirar o filtro um a um.

No exemplo anexo resumi, são poucos filtros, mas tenho outras tabelas que são muitas segmentações e tenho que desfiltrar um a um.

Vocês podem me ajudar?

Obrigado.

 
Postado : 03/01/2017 3:02 pm
fabio.cmaa
 fabio.cmaa
(@fabio-cmaa)
Posts: 0
Estimable Member
 

Bom dia TutoElizeu,

utiliza essa linha de programação que fica melhor,

Sub Filtros()
    ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Material").ClearManualFilter
    ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_UF").ClearManualFilter
    ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Nome_Corretor_Representante").ClearManualFilter
    ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Cidade").ClearManualFilter
    ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Mês").ClearManualFilter
    Range("A1").Select
End Sub
 
Postado : 04/01/2017 8:18 am
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Muito obrigado!

Deu certo!

 
Postado : 04/01/2017 10:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

TutoElizeu

Você não tem clicado na mãozinha, para agradecer aos colaboradores.

Veja a diferença entre agradecer clicando na mãozinha e marcar o tópico como Resolvido.

viewtopic.php?f=7&t=16757

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/01/2017 2:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico