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  Conectar-se  

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

avatar

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
» Boas Praticas na Programação/Montagem de Bases de Dados Access
» Atualizar todas as tabelas ao mesmo tempo - em tempo real
» Tutorial de Janelas Dinâmicas por Fuzenrad
» [Resolvido] Voltar para mesma tela - Formulários Dinâmicas usando OpenArgs - Ajuda

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: