vsouza
Mensagens : 3 Data de inscrição : 16/12/2011
| Assunto: 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) | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
vsouza
Mensagens : 3 Data de inscrição : 16/12/2011
| Assunto: 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? | |
|
vsouza
Mensagens : 3 Data de inscrição : 16/12/2011
| Assunto: 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 | |
|
Conteúdo patrocinado
| Assunto: Re: Vincular filtros de relatorio em tabela dinâmica (RESOVLIDO) | |
| |
|