VBA - Tworzenie tabeli przestawnej

Tworzenie tabeli przestawnej VBA

Link do fajnego artykułu odnośnie tworzenia tabeli przestawnej w VBA:

https://www.wallstreetmojo.com/vba-pi...

--------------
Kod VBA
--------------

Sub Create_PT()

Dim ws As Worksheet
Set ws = ActiveSheet
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim PivotTableCache As PivotCache
Dim PivotTable As PivotTable

Worksheets("2020").Activate

'Definiujemy pamięć podręczną tabeli
Set PivotTableCache = wb.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Range("Sales_2020[#All]"), Version:=xlPivotTableVersion15)

'Utwórz tabelę
Set PivotTable = ws.PivotTables.Add(PivotCache:=PivotTableCache, _
TableDestination:=Range("S1"), TableName:="Analiza Sprzedaży")
With PivotTable
.PivotFields("Segment").Orientation = xlRowField
.PivotFields("Country").Orientation = xlColumnField
.PivotFields("Sales").Orientation = xlDataField
.PivotFields("Suma z Sales").NumberFormat = "# ##0,00"
End With

End Sub