Tabla dinámica en una macro
Hola
Tengo un problema, estoy realizando un trabajo en el cual tengo que realizar una tabla dinámica en una macro.
Cuando grabo la macro, la tabla dinámica se hace normalmente pero cuando coloco mostrar la macro me aparece que tiene un error "1004"
Le pongo depurar y me muestra lo siguiente:
ActiveWorkbook.Worksheets("Hoja4").PivotTables("Tabla dinámica1").PivotCache. _
CreatePivotTable TableDestination:="", TableName:="Tabla dinámica3", _
DefaultVersion:=xlPivotTableVersion10
No se que hacerle si alguien me puede ayudar lo agradecería.
Chao
Tengo un problema, estoy realizando un trabajo en el cual tengo que realizar una tabla dinámica en una macro.
Cuando grabo la macro, la tabla dinámica se hace normalmente pero cuando coloco mostrar la macro me aparece que tiene un error "1004"
Le pongo depurar y me muestra lo siguiente:
ActiveWorkbook.Worksheets("Hoja4").PivotTables("Tabla dinámica1").PivotCache. _
CreatePivotTable TableDestination:="", TableName:="Tabla dinámica3", _
DefaultVersion:=xlPivotTableVersion10
No se que hacerle si alguien me puede ayudar lo agradecería.
Chao
1 respuesta
Respuesta de Elsa Matilde
1
El tema seguramente pasa en que la primera vez que creas una tabla se llama Tabla dinámica1 pero luego será 2, 3 y sola se va incrementando.
Podes verificar su nombre con una variable, y ajustar tu instrucción como la que te envío de ejemplo:
Dim nbre, nro
'para conocer cuántas tablas hay en la misma hoja
nro = ActiveSheet.PivotTables.Count
'obtiene el nombre de la tabla >
nbre = ActiveSheet.PivotTables(nro).Name
' si hay 1 sola tabla se puede evitar la variable nro, dejandola así:
nbre = ActiveSheet.PivotTables(1).Name
'instrucción utilizando la variable
ActiveWorkbook.Worksheets("Hoja1").PivotTables(nbre).PivotCache. _
CreatePivotTable TableDestination:="", TableName:="miTabla", _
DefaultVersion:=xlPivotTableVersion10
Saludos y no olvides finalizar
Elsa
** Material y Soluciones Excel en:
http://es.geocities.com/lacibelesdepunilla
Podes verificar su nombre con una variable, y ajustar tu instrucción como la que te envío de ejemplo:
Dim nbre, nro
'para conocer cuántas tablas hay en la misma hoja
nro = ActiveSheet.PivotTables.Count
'obtiene el nombre de la tabla >
nbre = ActiveSheet.PivotTables(nro).Name
' si hay 1 sola tabla se puede evitar la variable nro, dejandola así:
nbre = ActiveSheet.PivotTables(1).Name
'instrucción utilizando la variable
ActiveWorkbook.Worksheets("Hoja1").PivotTables(nbre).PivotCache. _
CreatePivotTable TableDestination:="", TableName:="miTabla", _
DefaultVersion:=xlPivotTableVersion10
Saludos y no olvides finalizar
Elsa
** Material y Soluciones Excel en:
http://es.geocities.com/lacibelesdepunilla
Muchísimas gracias por ayudarme en mi problema y perdón en no haber contestado antes, la verdad no sabia como, por fin lo solucione,
muchísimas gracias de nuevo
Chao
muchísimas gracias de nuevo
Chao
