Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
vsouza



Mensagens : 3
Data de inscrição : 16/12/2011

MensagemAssunto: Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)   Sex Dez 16, 2011 1:12 am

Olá,

Estou montando vários gráficos dinâmicos a partir de uma tabela excel. Como os gráficos são diferentes, para cada um eu preciso fazer uma tabela dinâmica diferente, mas todas com o mesmo filtro de relatório. O problema é que quando eu altero o filtro em um dos gráficos, tenho que sair alterando manualmente todos os outros. Há alguma forma de vincular esses filtros para que eles se alterem automaticamente quando eu alterar o primeiro?

Estou trabalhando no excel 2007.


Última edição por vsouza em Sex Dez 16, 2011 6:13 pm, editado 1 vez(es)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)   Sex Dez 16, 2011 2:56 am

Boa noite!!

Seria ótimo postar seu arquivo ...





mas o comando -> Refresheall

Citação :
Private Sub Worksheet_Activate()

‘Lembrando que este código deve estar no Plan2
‘PivotTable1, é o nome da tabela dinâmica

Sheets(“Plan2″).PivotTables(“PivotTable1″).RefreshTable

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
vsouza



Mensagens : 3
Data de inscrição : 16/12/2011

MensagemAssunto: Re: Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)   Sex Dez 16, 2011 3:21 pm

Sou novo aqui no forum e não encontrei um campo para postar a planilha, alguém pode me ajudar?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
vsouza



Mensagens : 3
Data de inscrição : 16/12/2011

MensagemAssunto: Solução   Sex Dez 16, 2011 6:19 pm

Pessoal,

Resolvi da seguinte forma:

Sub Amarra_filtros()

Dim iGerente
iGerente = Range("B1")

ActiveSheet.PivotTables("tabela1").PivotFields("Gerente").ClearAllFilters
ActiveSheet.PivotTables("tabela1").PivotFields("Gerente").CurrentPage = iGerente

ActiveSheet.PivotTables("tabela2").PivotFields("Gerente").ClearAllFilters
ActiveSheet.PivotTables("tabela2").PivotFields("Gerente").CurrentPage = iGerente

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [RESOLVIDO] Dinâmica de água
» Imagens Dinâmica
» [TRFN]Tutorial de Atualização Dinâmica
» [Tutorial]Água dinâmica para Plataforma (2D)
» [525, 533, 723, S8500][BADA][GRATUITO] Tabela Periodica

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: