Como criar Tabela Dinâmica (VBA)
Página 1 de 1
Como criar Tabela Dinâmica (VBA)
Boa noite!!
Construindo uma tabela dinâmica via VBA.
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Como criar Tabela Dinâmica 2 (VBA)
» Filtrar campo de Tabela Dinamica (VBA)
» Filtrar conteúdo de Tabela Dinâmica
» Tabela Dinâmica - Contar rótulos de linha
» Fixar intervalo de tabela dinâmica em fórmula
» Filtrar campo de Tabela Dinamica (VBA)
» Filtrar conteúdo de Tabela Dinâmica
» Tabela Dinâmica - Contar rótulos de linha
» Fixar intervalo de tabela dinâmica em fórmula
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos