Notifications

Clear all

Caixa de texto para filtrar em tabela dinâmica

2024 - VBA & Macros

Post Recente por g.pinho 12 anos atrás

7 Posts

2 Usuários

0 Reactions

1,642 Visualizações

RSS

g.pinho

(@g-pinho)

Posts: 5

Active Member

Topic starter

Pessoal, boa noite,

Estou precisando de uma ajuda: possuo uma tabela dinâmica com uma base de dados bastante extensa. Assim, quando os usuários têm que filtrar um determinado item, devem buscar na lista do filtro da tabela dinâmica, demandando bastante tempo. Gostaria que a inserção do item ocorresse via uma caixa de texto, onde o usuário digitaria o item desejado e este foste filtrado na tabela dinâmica.

Em anexo, coloco um exemplo para ilustrar a necessidade.

Se puderem me ajudar, agradeço enormemente.

Gustavo

Os arquivos devem ser compactados, é regra do fórum!!!!!

Postado : 10/04/2013 6:43 pm

g.pinho

(@g-pinho)

Posts: 5

Active Member

Topic starter

Desculpem a falha, segue o arquivo compactado.

Exemplo.rar

Postado : 11/04/2013 9:08 am

Alminen

(@alminen)

Posts: 77

Trusted Member

Vai no Editor do VBA (Alt+F11), seleciona a planilha que contém a tabela dinãmica e adiciona o seguinte código:

Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.PivotTables(1).PivotFields("Item").ClearAllFilters
    ActiveSheet.PivotTables(1).PivotFields("Item").CurrentPage = TextBox1.Value
End Sub

Aqui funcionou!

Postado : 11/04/2013 9:30 am

g.pinho

(@g-pinho)

Posts: 5

Active Member

Topic starter

Funcionou! Obrigado!!!

Postado : 11/04/2013 9:59 am

g.pinho

(@g-pinho)

Posts: 5

Active Member

Topic starter

Amigos, mais uma dúvida:

É possível definir que a inserção dos dados da textbox só seja feita após clicar em um botão?

Desde já, obrigado!

Gustavo

Postado : 11/04/2013 12:52 pm

Alminen

(@alminen)

Posts: 77

Trusted Member

Claro! Adicione um botão (ActiveX) e insira no código:

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.PivotTables(1).PivotFields("Item").ClearAllFilters
    ActiveSheet.PivotTables(1).PivotFields("Item").CurrentPage = TextBox1.Value
End Sub

Postado : 11/04/2013 2:35 pm