Compartilhe!

Para listar todas as tabelas dinâmicas de uma sheet basta usar o seguinte código:

Sub ListaTabelas()
  Dim tabela As PivotTable
  i = 1
  For Each tabela In ActiveSheet.PivotTables
  Range("A" & i) = tabela.Name
  i = i + 1
  Next tabela
End Sub

Caso queira que também atualize consulte aqui como fazer.

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

Compartilhe!

Excel – Listar todas tabelas dinâmicas via VBA

Obrigado pela visita!

One thought on “Excel – Listar todas tabelas dinâmicas via VBA”

Deixe uma resposta Cancelar resposta