Como criar Tabela Dinâmica (VBA)

Ir em baixo

Como criar Tabela Dinâmica (VBA)

Mensagem por alexandrevba em Sab Abr 26, 2014 8:44 pm

Boa noite!!

Construindo uma tabela dinâmica via VBA.

Código:
Option Explicit
'Como criar uma Tabela Dinâmica via VBA
'Autor: AlexandreVBA
'Data: 26/04/2014
Sub CriarTD()
    Dim pt As PivotTable
    Dim cacheOfpt As PivotCache
    Dim pf As PivotField
    Dim pi As PivotItem
   
    On Error Resume Next
    Worksheets("TD").Select
    ActiveSheet.pivotebles("MyPT").TableRange2.Clear
    'Montar o cache da TD
    Worksheets("Base").Select
    Set cacheOfpt = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("A1:D1621"))
    'Criar a TD
    Worksheets("TD").Select
    Set pt = ActiveSheet.PivotTables.Add(cacheOfpt, Range("A1"), "MyPT")
        'Inserir campos
        With pt
            .PivotFields("Material").Orientation = xlRowField 'Arrasta o campo Material para Área de linha na Tabela Dinâmica
            .PivotFields("Qtd").Orientation = xlDataField 'Arrasta o campo Qtd para Área de valores e calucula soma
            .PivotFields("Lote").Orientation = xlPageField
        End With
    Set pf = pt.PivotFields("Lote")
        With pf
            For Each pi In pf.PivotItems
                If pi.Name = "XXXXXX" Then ' ou use uma célula -> Range("D1").Value
                  pi.Visible = True
                Else
                  pi.Visible = False
                End If
            Next pi
        End With
       
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum