Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Como criar Tabela Dinâmica (VBA)

Ir para baixo

Como criar Tabela Dinâmica (VBA) Empty Como criar Tabela Dinâmica (VBA)

Mensagem por alexandrevba Sáb 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos