Hi Dear

Please, I need your help.

I'm trying to create a PivotTable based in another PivotTable in the same
Workbook.

This is the code:

Sub Teste()
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim rng As Range
Dim rng1 As Range
Dim pvt As PivotTable
Dim pvt1 As PivotTable

Set wks = wksReport
Set wks1 = wksData
Set rng = wks.Range("C2")
Set pvt1 = wks1.PivotTables(1)

Set pvt = wks.PivotTableWizard(xlpivotttable, pvt1, rng, "MyDinTable",
True, True)

' ...
End Sub

Running the Sub occurs the error: 1004 - The PivotTable methode has failed!

What is the problem? Where can I find a solution?

Thanks in advance.

Joe

Hi Joe,

Try using the PivotCache rather than the table.


Dim shtOrig As Worksheet
Dim pvtOrig As PivotTable
Dim shtNew As Worksheet
Dim pvtNew As PivotTable
Dim pvc As PivotCache
Set shtOrig = ThisWorkbook.Worksheets(1)
Set shtNew = ThisWorkbook.Worksheets(2)
Set pvtOrig = shtOrig.PivotTables(1)
Set pvc = pvtOrig.PivotCache
Set pvtNew = pvc.CreatePivotTable(shtNew.Range("A1"), "My New Pivot")


Sean.

--
(please remember to click yes if replies you receive are helpful to you)


"Joe" wrote:

Hi Dear

Please, I need your help.

I'm trying to create a PivotTable based in another PivotTable in the same
Workbook.

This is the code:

Sub Teste()
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim rng As Range
Dim rng1 As Range
Dim pvt As PivotTable
Dim pvt1 As PivotTable

Set wks = wksReport
Set wks1 = wksData
Set rng = wks.Range("C2")
Set pvt1 = wks1.PivotTables(1)

Set pvt = wks.PivotTableWizard(xlpivotttable, pvt1, rng, "MyDinTable",
True, True)

' ...
End Sub

Running the Sub occurs the error: 1004 - The PivotTable methode has failed!

What is the problem? Where can I find a solution?

Thanks in advance.

Joe