Este fórum está sendo desativado

[EmersonLegatti]

Boa noite pessoal, tudo bem?
Acredito que seja algo simples, mas não consegui fazer sozinho....
Em uma planilha tenho uma tabela (Tb_itens) e uma tabela dinâmica que a usa como base de dados.
Gostaria que ao acrescentar itens na Tb_itens a tabela dinâmica fosse atualizada automaticamente.
Já achei códigos que fazem esta atualização ao trocar de planilhas, tentei adaptar para este modo que preciso e não consegui.
Existe essa possibilidade?

Obrigado, grande abraço a todos.

[AfonsoMira]

Boas fiz um pequeno exemplo aqui e funciona certo, cada vez que actualizo a folha ele me actualiza a tabela dinâmica.

Formatei a tabela como tabela e adicionei o nome Tb_Items, depois carreguei em cima da tabela cliquei ctrl+T e selecionou a tabela inteira, logo de seguida fiz inserir tabela dinãmica.

Deixo arquivo de exemplo em anexo.

Se necessitar atualizar a folha com VBA a macro é a seguinte:

Código: Selecionar todos

ActiveWorkbook.RefreshAll

Se necessitar de ajuda ou caso não seja este o resultado pretendido é so chamar.

[Kledison]

Boa noite!

outra sugestão, nesse caso ao alterar qualquer célula das colunas A e B a tabela dinâmica é atualizada.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <= 2 Then
        ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
    End If
End Sub

Att

[EmersonLegatti]

Boa tarde AfonsoMira tudo bem?
Obrigado pela força, mas não funcionou aqui comigo.
Acrescentei mais itens e na tabela normal e não atualizou automaticamente a tabela dinâmica .
(segue arquivo anexo)
Outra coisa, nenhuma das duas tabelas tem o nome Tb_itens.....mas acho que isso não tem nada a ver, certo??
O código eu tentei inserir, mas também não deu certo, posso ter inserido em local errado.
Poderia dar uma olhada por favor, valeu msm.
Abraços.

[Kledison]

Boa tarde!

apesar de não ter comentado a solução que eu mencionei, segue a planilha com a macro.

Verifica se é assim que precisa.

Att

[EmersonLegatti]

Boa tarde Kledison, tudo bem?
Primeiramente muito obrigado pela força também cara.
Não sei se estou colocando o código em lugar errado, mas não deu certo como vc mostrou.
(arquivo anexo)
Usei o arquivo do nosso colega que respondeu primeiro como exemplo.
Nomeei as tabelas e troquei o nome da tabela dinâmica no código, mas não deu.
Poderia dar uma olhada novamente por favor?
Muito obrigado de novo.
Abraços.

[Kledison]

Confere na mensagem acima que eu postei o anexo.

Att

[EmersonLegatti]

Boa tarde Kledison, tudo bem?
Cara, foi mal não ter respondido direto na sua msg, desculpa mesmo, mas te respondi e até enviei o arquivo com seu nome....
Testei aqui e deu certíssimo!!!
No código, o valor <= é em relação às colunas certo? Qualquer dado inserido da coluna 1 até a 6 irá atualizar a tabela dinâmica, certo?
Valeu mesmo pela força.
Muito obrigado novamente. Resolvido.

[Kledison]

Boa tarde!

tranquilo, isso mesmo, qualquer valor digitado até a coluna 6 irá atualizar os dados da tabela dinâmica.

Faça alguns testes aí, se surgir algum problema nos avise.

A macro está dentro do módulo da página/folha (1).

Att