Anónimo
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
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Hoja1!R7C1:R65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="", TableName:="Tabla dinámica22", _
DefaultVersion:=xlPivotTableVersion10
Intenta así.
"Hoja1!R7C1:R65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="", TableName:="Tabla dinámica22", _
DefaultVersion:=xlPivotTableVersion10
Intenta así.
Buen día! Oye disculpa pero creo que es el mismo código que el que me marco el error.
No, la diferencia es en
SourceData:= _
"Hoja1!R7C1:R65536C6"
Esta con el Formato de R1C1 y no en F1C1, es decir, en ingles Row (R) por Fila (F) y Column (C) queda igual para Columna (C).
¿Lo probaste?
SourceData:= _
"Hoja1!R7C1:R65536C6"
Esta con el Formato de R1C1 y no en F1C1, es decir, en ingles Row (R) por Fila (F) y Column (C) queda igual para Columna (C).
¿Lo probaste?
Ya probé con la solución que me diste pero ahora me arroja el mismo error pero con diferente argumento Dice así: Error 1004 en tiempo de ejecución, El nombre del campo de tabla dinámica no es válido. Para crear un informe de tabla dinámica debe usar datos organizados en forma de lista con columnas rotuladas.
El problema es que el rango que le estoy dando si esta en forma de columnas, entonces porque no lo acepta.
El problema es que el rango que le estoy dando si esta en forma de columnas, entonces porque no lo acepta.
¿Puedes enviarme tu archivo para revisarlo?
[email protected]
[email protected]
¿Puedes mandarme tu archivo? [email protected]
O checa esta pag
http://msdn.microsoft.com/es-es/vbasic
O checa esta pag
http://msdn.microsoft.com/es-es/vbasic
Muchas gracias por tu ayuda, investigando un poco más encontré una solución aunque creo que no es la forma correcta de hacerlo pero funciona bien. Saludos!