VBA i tabela przestawna

Question

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")

 

Answer 1

Sprawdź czy Twoja składnia Sheets.Add jest prawidłowa.