Notifications
Clear all

Macro em caixa de combinação.

2 Posts
1 Usuários
0 Reactions
1,625 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal,
Tenho um painel com 6 tabelas dinâmicas que possuem variáveis comuns, mas toda vez que quero ver um dado tenho selecionar a variável em todas as tabelas. Já criei uma macro com vários botões, um p/ cada variável, mas gostaria de ter uma caixa de combinação ao invés de vários botões.
Alguém pode me ajudar??

Grata.

 
Postado : 28/02/2011 9:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Carioca, voce tem que fazer o seguinte ...

Voce deve uma lista com essas variaveis em uma local na planilha (Ex. E1:D100)
Vincular essa lista à caixa de combinação.
Deve vincular o celula de seleção da caixa (Ex. A1)

Ao selecionar um item na lista, o seu indice será exibido na celula A1.

Na celula, B1, incluia a formula =INDICE(E1:D100,A1,2)

Na macro atribuida a caixa de combinação, incluia um código como esse (Adapte para sua tabela)


Todas as tabelas receberam o valor que está na celula B1

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Campo1").CurrentPage = Range("B1")

ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Campo1").CurrentPage = Range("B1")

ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("Campo1").CurrentPage = Range("B1")

 
Postado : 31/03/2011 2:57 pm