Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Listar o nome de todas as Tabelas Dinâmicas do arquivo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Listar o nome de todas as Tabelas Dinâmicas do arquivo   Qua Abr 16, 2014 11:32 pm

Boa tarde!!
Como listar o nome de todas as Tabelas Dinâmicas de arquivo ativo.
Código:
Sub Nomes_TD()
'Listar o nome de todas as TD do arquivo
    Dim wks As Worksheet
    Dim pt As PivotTable
    
    For Each wks In Worksheets
        For Each pt In wks.PivotTables
            MsgBox pt.Name
        Next pt
    Next wks
    
    Set pt = Nothing
    Set wks = Nothing

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Listar o nome de todas as Tabelas Dinâmicas do arquivo
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [RESOLVIDO] Dinâmica de água
» Imagens Dinâmica
» Janelas Dinâmicas com perguntas e respostas
» [Tutorial] Janelas Dinâmicas II
» Tutorial de Janelas Dinâmicas por Fuzenrad

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: