Error en Macro que crea una Tabla Dinámica
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
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
1 Respuesta
Respuesta de jerryeagle