Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizando Gráfico...
 
Notifications
Clear all

Atualizando Gráficos Dinâmicos Sem Botão

 
2024 - VBA & Macros
8 Posts
2 Usuários
0 Reactions
4,782 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, antes de mais nada, estou postando esse tópico por ter procurado e não ter encontrado uma solução.
Meu problema é o seguinte:
Tenho uma tabela (Plan4) e nessa tabela tenho vários gráficos dinâmicos que "puxam" informação de outras tabelas dentro da planilha, que estão em constante mudanças devido aos lançamento de informações. Dessa forma, sempre que mudo uma informação nestas tabelas, tenho que ir na tabela onde estão os gráficos, selecionar gráfico por gráfico e clicar em atualizar.
Oque preciso:
Preciso de uma macro/vb que atualize todos os gráficos quando eu clicar pra visualizar essa tabela (Plan4), sem que seja necessário clicar no botão de atualizar.

Desde já agradeço a ajuda de vocês!!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/05/2012 12:06 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

JerSoO,
Tem como você postar um exemplo???

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/05/2012 5:04 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Poste o arquivo compactado!!

Private Sub CommandButton1_Click()
Sheet2.Calculate
ChartObjects(1).Chart.Refresh
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/05/2012 6:17 am
 dlhunsil
(@dlhunsil)
Posts: 21
Eminent Member
 

Tenta isso
cria dentro da (plan 4)

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
End Sub

assim toda vez q ela ativar o grafico atualiza

 
Postado : 11/05/2012 6:20 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal estou postando um exemplo da planilha compactado.

Tenta isso
cria dentro da (plan 4)

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
End Sub

assim toda vez q ela ativar o grafico atualiza

Já tentei esse código porém ele atualiza os dados somente do primeiro e segundo gráfico.
Na Plan4 ou BI no exemplo da minha planilha, terão vários gráficos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/05/2012 7:29 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Seu arquivo pede senha para abrir, se possivel poste sem a senha.
Aparentemente vc tem mais de um pivot na planilha, se isso for procedente, tente alterando o codigo informado anteriormente para:

Private Sub Worksheet_Activate()

For i = 1 To Worksheets("Plan4").PivotTables.Count
    ActiveSheet.PivotTables(i).PivotCache.Refresh
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/05/2012 8:51 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal desculpe... esqueci de postar a senha.

A dica do Reinaldo resolveu meu problema.

Muito Obrigado!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/05/2012 10:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Então por favor marque seu tópico como resolvido!!
Veja como em:
viewtopic.php?f=7&t=3784
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/05/2012 11:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico