Error en Macro que crea una Tabla Dinámica

Hola Expertos, alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí dicen para solucionar este error pero no funciona, a continuación les pogo el código que se genera, lo que esta en negrita es donde marca el error:
Sub Macro7()
'
' Macro7 Macro
'
' Acceso directo: Ctrl+k
'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!F7C1:F65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10

    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabla dinámica22").AddDataField ActiveSheet. _
        PivotTables("Tabla dinámica22").PivotFields("Producto"), "Cuenta de Producto", _
        xlCount
    Range("H8").Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .PivotItems("Producto").Visible = False
        .PivotItems("(en blanco)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub
De antemano les agradezco. Saludos!

1 respuesta

0
Respuesta de
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!R7C1:R65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10

Intenta así.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje