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

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

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

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,