Hi, I have a problem, I would like to create a pivot table in sheet papers, from the selected data range. However, I get an error:
This is my code i know that its wrong but i dont know how to write correctly , maybe can someone help ?Object dosent support this property method
VBA Code:
wbMe.Sheets("papiery").Range ("D1:L1")
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"papiery!R1C4:R30C12", Version:=6).CreatePivotTable TableDestination:= _
"papiery!R28C16", TableName:="Tabela przestawna3", DefaultVersion:=6
wbMe.Sheets("papiery").Select
Cells(28, 16).Select
With ActiveSheet.PivotTables("Tabela przestawna3").PivotFields("RES_MAT")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela przestawna3").AddDataField ActiveSheet. _
PivotTables("Tabela przestawna3").PivotFields("WYCENA_PLN"), _
"Suma z WYCENA_PLN", xlSum