Problems creating a pivot table

[Zerrets]

Hello, i have trouble generating a pivot table with a range of data, at first i thought that i had to convert the range of data into a table and then generate the pivot table will solve the problem but it didn't and when leaving the range of data without the table format, the table is empty too.

This is my code:

Sub Create()

    Dim PCache As PivotCache
    Dim TDinamica As PivotTable
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
           
   
    'Dim tbl As ListObject
    'Dim rng As Range

   'Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
    'Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
    'tbl.TableStyle = "TableStyleMedium15"
   ' With Range("A1")
    '.Parent.ListObjects.Add(xlSrcRange, Range(.End(xlDown), .End(xlToRight)), , xlYes).Name = "Table1"
  'End With

    On Error Resume Next
    Worksheets("TablaDinamica").Delete
   
    'Crear Hoja TablaDinamica
    Worksheets.Add(Before:=ActiveSheet).Name = "TablaDinamica"


    Set PCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, SourceData:="Tabla1")
   
   

    Set TDinamica = PCache.CreatePivotTable( _
    TableDestination:="TablaDinamica!R3C1", TableName:="Tabla dinámica1")


    With TDinamica.PivotFields("Request ID")
     .Orientation = xlRowField
     .Position = 1
    End With
   
   
    With TDinamica.PivotFields("Actual Cost")
     .Orientation = xlDataField
     .Position = 1
     .Function = xlSum
     .NumberFormat = "#,##0"
    End With

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub

 

[RoryA]

All your error messages are being suppressed, so you'll never know if something goes wrong. Amend the code to:

    On Error Resume Next
    Worksheets("TablaDinamica").Delete
On Error Goto 0

then try it again.

Do you have a table called Tabla1?

 

[Zerrets]

All your error messages are being suppressed, so you'll never know if something goes wrong. Amend the code to:

    On Error Resume Next
    Worksheets("TablaDinamica").Delete
On Error Goto 0

then try it again.

Do you have a table called Tabla1?

The reference is not valid '1004':

Set TDinamica = PCache.CreatePivotTable( _
    TableDestination:="TablaDinamica!R3C1", TableName:="Tabla dinámica1")

And yes, this piece of code creates the pivot cache and changes the name of the table that has the data into "Tabla1"

Set PCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, SourceData:="Tabla1")

 

[RoryA]

And yes, this piece of code creates the pivot cache and changes the name of the table that has the data into "Tabla1"

No, it doesn't. It tries to create a pivotcache from an existing range called Tabla1. If you don't have a table or range by that name, that would explain the 1004 error.

 

[Zerrets]

You were right, silly mistake of me, i appreciate your help, all i had to do was rename the table at first so it would work.

 

[RoryA]

Glad we could help.