Tomás Vásquez Fórum

Boa tarde,

Presciso de um help, presciso que quando eu clique numa segmentação de dados ele atualize a tabela dinamica. Alguém pode me ajudar?

Michel de Oliveira escreveu: ↑Sex Jun 26, 2020 12:11 pm Boa tarde,

Presciso de um help, presciso que quando eu clique numa segmentação de dados ele atualize a tabela dinamica. Alguém pode me ajudar?

Michel, boa tarde!

Normalmente uma tabela dinâmica linkada à segmentação de dados deveria filtrar automaticamente, pelo que entendi, você tem mais de uma tabela dinâmica no seu Excel, uma filtra e outra não, provavelmente igual a imagem abaixo, correto?


Se for essa a situação, para resolver, siga os seguintes passos:

Jahezer,
Boa tarde,

Aqui não funciona pois tem 2 tabelas diferentes, e a segmentação são funciona em uma a segunda tabela pega dados da primeira então para os valores virem corretos tenho que atualizar tudo. Sugestão mas não sei se da para fazer ou como fazer:

A) quando alterar o valor da Segmentação de Dados atualize todas as tabelas;
B) quando tiver click do mouse atualize todas as tabelas;
C) quando o valor da célula x mudar ( por que quando clicar na segmentação muda o valor da tabela dinamica dai eu deixo sentado a célula x com =y, atualize todas as tabelas


Espero que tenha ficado claro não sei me expressar muito bem por texto.

Oi Consegui ficou assim;
Private Sub Worksheet_Calculate()
If Range("v1").Value <> PrevVal Then
PDINAQUA.PivotTables("Tabela dinâmica19").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica20").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica21").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica22").RefreshTable
PrevVal = Range("v1").Value
End If
If Range("v2").Value <> PrevVal Then
PDINAQUA.PivotTables("Tabela dinâmica19").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica20").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica21").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica22").RefreshTable
PrevVal = Range("v2").Value
End If
If Range("v3").Value <> PrevVal Then
PDINAQUA.PivotTables("Tabela dinâmica19").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica20").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica21").RefreshTable
PDINAQUA.PivotTables("Tabela dinâmica22").RefreshTable
PrevVal = Range("v3").Value
End If
End Sub

Michel, boa noite!

Pena que minha sugestão não te ajudou, mas fico feliz que tenha conseguido de outra forma.
Obrigado pelo retorno (: