AdminExcel - Listar todas tabelas dinâmicas via VBA, , , ,
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.

Você também vai gostar:
Protegido: Excel Avançado – Como desproteger planilha

Para desproteger uma planilha no excel rode o código abaixo: Sub Deproteger() Dim i As Integer, j As Integer, k Leia mais...

Excel – Cálculo Automático ou Manual via VBA

Para alternar entre cálculo automático ou manual via VBA, basta usar os seguintes comandos: Para automático: Application.Calculation  = xlCalculationAutomatic Para manual: Leia mais...

Excel Avançado – Macro que executa ao abrir a planilha

Se você deseja rodar um comando quando abre a sua planilha, coloque o código dentro da macro chamada  "Workbook_Open". Segue Leia mais...

Excel e Access – Gravando Dados do Excel no Access via VBA (macro)

Excel e Access – Gravando Dados do Excel no Access via VBA (macro) 1 – Primeiro você deve criar uma Leia mais...

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com


Compartilhe!

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

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *