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")
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 31/03/2011 2:57 pm