Views

Important:

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

...

16 de setembro de 2013

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, 


Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine