How to create pivot table using vba code

Publicado em: 20 Maio 2020
no canal de: VBA Learning tutorials

186

How to create pivot table using vba code

Sub CreatePivotTable()

Dim pc As PivotCache
Dim pt As PivotTable
Dim pf As PivotField

Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, SourceData:=Sheet1.Name & "!" & Sheet1.Range("A1").CurrentRegion.Address, Version:=xlPivotTableVersion15)

Worksheets.Add

Range("A1").Select

Set pt = pc.CreatePivotTable(TableDestination:=ActiveCell, TableName:="Emp Report")

Set pf = pt.PivotFields("Product")
pf.Orientation = xlRowField

Set pf = pt.PivotFields("Region")
pf.Orientation = xlColumnField

Set pf = pt.PivotFields("Name")
pf.Orientation = xlDataField

ActiveSheet.PivotTables("Emp Report").NullString = 0

End Sub

Nesta página do site você pode assistir ao vídeo on-line How to create pivot table using vba code duração hora minuto segundo em boa qualidade , que foi baixado pelo usuário VBA Learning tutorials 20 Maio 2020, compartilhe o link com seus amigos e conhecidos, no youtube este vídeo já foi visto 186 vezes e gostou 4 espectadores. Boa visualização!

550