............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro que permita crear una tabla dinamica.

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro que permita crear una tabla dinamica.

Mensaje por Santandereano1970 el Sáb Oct 17, 2009 10:22 am

Hola a todos. He creado una macro que crea una tabla dinámica, pero cuando la ejecuto me marca error.

Santandereano1970

Masculino Cantidad de envíos : 7
Edad : 47
Ciudad - Pais : Bucaramanga, Colombia
Version de Excel : 2007
Fecha de inscripción : 05/10/2009

http://www.compexcel.net

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por avalencia el Dom Oct 18, 2009 1:04 pm

La has creado o la has grabado? Si la has grabado mira por aqui:

[Tienes que estar registrado y conectado para ver este vínculo]

Claro que no das muchos detalles.

Ah, de no solucinarlo a traves de lo aconsejado en el enlace, seria bueno que pongas el codigo, el tipo de error y la linea de dicho error

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por Santandereano1970 el Mar Oct 20, 2009 9:02 pm

gracias abraham, encontré la solucíón.

Santandereano1970

Masculino Cantidad de envíos : 7
Edad : 47
Ciudad - Pais : Bucaramanga, Colombia
Version de Excel : 2007
Fecha de inscripción : 05/10/2009

http://www.compexcel.net

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por GalileoGali el Jue Oct 22, 2009 8:27 am

Santandereano: estanos esperando que compartas cual fue tu solucion....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por Santandereano1970 el Jue Oct 22, 2009 1:38 pm

Que pena GalileoGali, A continuación explicaré la solución:

1. Empiece por colocarle un nombre a la tabla a la que se le debe crear la tabla dinámica. (El Nombre debe ser dinámico) y tendrá como nombre "tabla". Para crearlo, debe ir a la ficha formulas y en el botón Administrador de nombre asignarlo. Se llamará tabla y se refiere a:
=desref(hoja1!$a$1;0;0;contara($a:$a);contara($1:$1))


2. Cree la macro que genere una tabla dinamica. el código es el siguiente:
Sub Macro1()
'
' Macro1 Macro
'

'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"tabla", Version:=xlPivotTableVersion10).CreatePivotTable TableDestination _
:="Hoja4!F3C1", TableName:="Tabla dinámica1", DefaultVersion:= _
xlPivotTableVersion10
Sheets("Hoja4").Select
Cells(3, 1).Select

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("mes")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("valor"), "Suma de valor", xlSum
End Sub

3. Si vuelve a ejecuta la macro le marca error, porque no puede volverla a crear la tabla dinamica en la misma hoja.

4. Para superar este impace, debe:
Reemplazar TableName:="Tabla dinámica1" por TableName:=""
Quitar las lineas Sheets.Add, Sheets("Hoja4").Select, Cells(3, 1).Select


Ahora si ejecuta la macro, ya no le marca error.


5. el código final es el siguiente
Sub Macro1()
'
' Macro1 Macro
'

'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"tabla", Version:=xlPivotTableVersion10).CreatePivotTable TableDestination _
:="", TableName:="Tabla dinámica1", DefaultVersion:= _
xlPivotTableVersion10
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("mes")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("valor"), "Suma de valor", xlSum
End Sub

Espero haya sido claro en la explicación. Si alguno de los amigos del foro necesita mayor información, con todo gusto.

Santandereano1970

Masculino Cantidad de envíos : 7
Edad : 47
Ciudad - Pais : Bucaramanga, Colombia
Version de Excel : 2007
Fecha de inscripción : 05/10/2009

http://www.compexcel.net

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por GalileoGali el Jue Oct 22, 2009 1:54 pm

Todos agradecen tu aporte

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro que permita crear una tabla dinamica.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.