Witam,
Mam pewną tabelkę, i chcę pokazać z niej pewne dane dynamicznie, czyli zmieniające się od aktualnych potrzeb. Excel wyrzuca mi błąd, mimo że kod jest napisany tak aby działało to niezależnie od nazwy Sheets. Błąd znajduje się polu rozpoczynającym się od 'Active Sheet'. Table Destination powinno działać dynamicznie, być może błąd tkwi w Table Name. Nazwa błędu: 'Invalid procedure call or argument'.
Sub test2()
'
' test2 Macro
'
' Application.CutCopyMode = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
dataWS = ActiveSheet.Name
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'" & dataWS & "'!A2:P" & lr, Version:=8).CreatePivotTable TableDestination:=pivotWS & "'!R3C1'", TableName:="PivotTable2", DefaultVersion:=8
Sheets(pivotWS).Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2")