Error 1004 en tabla dinámica excel macro

Disculpe y de antemano Muchas gracias por la respuesta !

Pues mi problema es que cuando ejecuto la macro que creé para crear una tabla dinámica me aparece el runtime error 1004 "Error definido por la aplicación o el objeto"

Le anexo mi código enseguida

Sub main()
 Dim datos As Worksheet
 Dim tabla As Worksheet
 Dim Cache_Tabla As PivotCache
 Dim Tabla_Dinamica As PivotTable
 Dim tabla_range As Range
 Dim ultima_fila As Long
 Set tabla = Worksheets("Seguimiento PPTO")
 For Each Tabla_Dinamica In tabla.PivotTables
 Tabla_Dinamica.TableRange2.Clear
 Next
 Set datos = Worksheets("DATOS")
 ultima_fila = datos.Cells(Rows.Count, 3).End(xlUp).Row
 Set tabla_range = datos.Cells(1, 1).Resize(ultima_fila, 7)
 Sheets("DATOS").Select
 Set Cache_Tabla = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tabla_range.Address, Version:=xlPivotTableVersion14)
 Set Tabla_Dinamica = Cache_Tabla.CreatePivotTable(TableDestination:=Worksheets("Seguimiento PPTO").Range("A7"), TableName:="Seguimiento PPTO", DefaultVersion:=xlPivotTableVersion14)
 Tabla_Dinamica.AddFields RowFields:=Array("Hotel", "Mes", "Segmento", "Subsegmento", "Homoclave", "A/D"), PageFields:="Clasif."
 With Tabla_Dinamica.PivotFields("CTOS: Real + Fcst")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Fcst. Meta")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Real + Libros")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Real + Libros vs Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Real + Libros vs Plan ( % )")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Real + Libros AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("CTOS: Cierre AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Real + Fcst")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Fcst. Meta")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Real + Libros")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Real + Libros vs Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Real + Libros vs Plan ( % )")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Real + Libros AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("INGR: Cierre AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Real + Fcst")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Fcst. Meta")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Real + Libros")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Real + Libros vs Plan (PP)")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Real + Librosvs Plan ( % )")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Real + Libros AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("%OCC: Cierre AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Real + Fcst")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Fcst. Meta")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Real + Libros")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Real + Libros vs Plan")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Real + Libros vs Plan ( % )")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Real + Libros AA")
 .Orientation = xlDataField
 .Function = xlSum
 .Position = 1
 .NumberFormat = "#'###,###.##"
 End With
 With Tabla_Dinamica.PivotFields("TP: Cierre...

1 Respuesta

Respuesta
1

Enviame la macro y los datos a mi correo, no sé en que instrucción está el error.

Mi correo es [email protected]

Disculpe por tardar en responder pero e estado ocupado.

Le envié un correo con los archivos Mi correo es [email protected]

Gracias de Antemano

Perdona la demora, espero aún tener una solución para tu pregunta:

El primer error está en le rango: no es columna 41, sino 40. Ahí te dice que el campo no es válido. Cambia por:

Set tabla_range = datos.Cells(1, 2).Resize(ultima_fila, 40)

No necesitas la instrucción del set Cache_tabla = Activeworkbook.PivotCaches...

Asigna directo a Tabla_Dinamica, de la siguiente forma.

Set Tabla_Dinamica = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ tabla_range.Address(ReferenceStyle:=xlR1C1), Version:=xlPivotTableVersion14).CreatePivotTable(TableDestination:=tabla.Range("A7"), TableName:="PPTO", DefaultVersion:=xlPivotTableVersion14)

A mi ya me funcionó, se tarda un buen tiempo en configurar todos los campos.

Si te sirvió la solución.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Macro grabada que crea tabla dinámica

He intentado grabar en excel una macro que crea una tabla dinámica de una base de datos en el mismo excel pero al ejecutarla manda el error 5 en tiempo de ejecución SIEMPRE, ya busque en la página de Microsoft donde dicen como retocar el código para...
1 respuesta

Crear tabla dinámica con rango de datos variable

Debo crear una tabla dinámica que en la celda Z9, que tenga como Filtro del informe:"Type"; como Etiquetas de fila: "Pozo", "BHA No.", "Assembly name" y en sumatoria de valores "Suma de Lenght" y "Máx. De MD out". El rango de datos para crear la...
1 respuesta

¿Cómo unir dos macros de un único módulo?

Tengo dos macros en un único modulo que hacen dos tablas dinámicas en dos hojas distintas. Lo que busco es unir las dos macros para que las dos tablas se realicen seguidas sin tener que ejecutar la segunda macro.
1 respuesta

Filtro en Tabla dinámica con referencia a un Rango

Quiero saber si me puedes ayudar en lo siguiente, trato de hacer una macro que me filtre una tabla dinámica pero para que me haga dicho filtro quiero que tome los datos que tengo en un rango de datos y que solo me mustre esos y todos los demás no, no...
1 respuesta

Generar tabla dinámica en diferentes archivos

Me encuentro en una situación donde necesito crear una tabla dinámica en otro archivo de excel, ya fui capaz de generar la tabla dinamica; el detalle es que uso diferentes archivos que cambian de nombre, pero mantienen el mismo formato mi pregunta va...
1 respuesta

Error en macro con tabla dinamica

Ok te explico el problema hice una macro donde se genera una tabla dinamica en el lugar de pagina de la tabla dinamica utilizo una variable que la da el usuario por medio de un inputbox le solicita el dato pero como la variable es numerica puede que...
1 respuesta

Como hacer una macro que cree una tabla dinámica

Tengo un problema con una macro que grabe que me crea una tabla dinámica, me daba error 5, entre al foro donde indicaban que era fallas de microsoft, que debía modificar un poco el código, cosa que hice, pero ahora me da un error diferente, 1004...
1 respuesta

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta

Tabla dinámica en macro

Tengo inconvenientes en el funcionamiento de una macro que utilizo y que paso a comentarte Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinámica. La cantidad de registros se incrementa mes a mes y...
1 respuesta