Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

VBA Excel - Atualize todas as Tabelas Dinâmicas - Refresh All Pivot Tables



Como efetuar o refresh para todas as pivot tables da minha planilha com VBA?

Inline image 2

Simples assim:

Function RefreshPT dim w as worksheet, p as pivottable
ThisWorkbook.RefreshAll

Dim w as worksheet, p as pivottable

For each w in thisworkbook.worksheets 
For each p in w.pivottables 
p.refreshtable 
p.update 
Next 
Next
End Function

Ou:
ThisWorkbook.RefreshAll

Dim w as worksheet, p as pivottable

For each w in thisworkbook.worksheets
  For each p in w.pivottables
    p.refreshtable
    p.update
  Next
Next


Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Pivot Table, Tabela, Dinâmica, Refresh, 


Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias