Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Actualizacion Tabla dinamica con Macro en Excel 2007

777 views
Skip to first unread message

Betyeli

unread,
Jun 29, 2008, 8:34:36 PM6/29/08
to
Hola...

Tengo diseñada una pequeña macro para actualizar una tabla dinamica.
Pero no se que en que consista que a veces me manda error y otras
veces no. La Macro se encuentra grabada en el mismo libro que la tabla
dinámica. La macro es la siguiente:


Private Sub ComboBox1_Change()
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh

Héctor Miguel

unread,
Jun 29, 2008, 9:16:38 PM6/29/08
to
hola, 'anonimo/a' !

> ... una... macro para actualizar una tabla dinamica... a veces me manda error y otras... no.
> ... grabada en el mismo libro que la tabla... es la siguiente:


> Private Sub ComboBox1_Change()
> ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh

podrias precisar cuando si o cuando no ? (p.e.)
- que es lo que debiera actualizarse en la TD al cambiar el combobox ?
- todo lo que despliega el combobox es aplicable a la TD ?
- haces entradas por teclado en el combobox ?

tambien podrias indicar el texto y numero del mensaje de error (+/- exactamente ?)

saludos,
hector.


Betyeli

unread,
Jun 30, 2008, 10:56:45 AM6/30/08
to
Gracias por contestar....
En el combobox tengo un listado de meses. en si lo que quiero que haga
la macro es:
1. Actualize la Tabla dinamica (El cual es un reporte de ventas, en el
cual se desglosan todos los meses.
2. Dependiendo del mes que se seleccione en el combobox me oculte los
meses que no ocupo. (p.e. si escojo el mes de junio me debe desplegar
desde Enero hasta junio).

La segunda parte, la cual oculta los meses, La macro funciona sin
ningun problema, pero en el momento en que le anexo la instruccion de
actualizar la tabla dinámica me manda error en esa instruccion. El
error es el siguiente.
'Se ha producido el error '1004' en tiempo de ejecucion: error
definido por la aplicación o el objeto.

La unica manera en que he detectado que no me manda error, es cuando
la tabla dinamica la pongo en otro libro. entonces la instrucción
queda de la siguiente manera.

Private Sub ComboBox1_Change()
Workbooks.Open Filename:= _
"C:\Documents and Settings\egarciaga\Desktop\Libro2.xlsx"
ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh

End Sub


El problema es que necesito que la tabla dinámica se actulize en el
mismo libro en el que tengo la macro.

Espero me puedas ayudar.
Muchas gracias por tus atenciones....

On 29 jun, 21:16, "Héctor Miguel" <NOhemiordiS...@PLShotmail.com>
wrote:

Héctor Miguel

unread,
Jun 30, 2008, 2:23:23 PM6/30/08
to
hola, (...) ???

si comentas que para ocultar "el resto de los meses", tu macro trabaja bien (fraccion de codigo que NO expones)...
y si solo requieres mostrar/ocultar (filtrar) los pivotitems (meses) de una TD... para que necesitas mas macros ?

el .refresh no te hara nada a menos que hubieras modificado datos en el origen de la TD -?-
(o a menos que tengas mas "detalles en el tintero" y que sea necesario relmente hacerle un refresh a la TD) -???-

el error 1004 es sumamente "amplio" en las causas por las que puede aparecer en tiempo de ejecucion
(aunque casi siempre es por llamar a objetos que no estan visibles o disponibles en ese momento)

comentas (si hubiera) algun detalle mas significativo ? (y/o en el tintero)
saludos,
hector.

__ la consulta original __


> En el combobox tengo un listado de meses. en si lo que quiero que haga la macro es:
> 1. Actualize la Tabla dinamica (El cual es un reporte de ventas, en el cual se desglosan todos los meses.
> 2. Dependiendo del mes que se seleccione en el combobox me oculte los meses que no ocupo.
> (p.e. si escojo el mes de junio me debe desplegar desde Enero hasta junio).
> La segunda parte, la cual oculta los meses, La macro funciona sin ningun problema

> pero en el momento en que le anexo la instruccion de actualizar la tabla dinamica me manda error en esa instruccion.
> El error es el siguiente. 'Se ha producido el error '1004' en tiempo de ejecucion: error definido por la aplicacion o el objeto.


> La unica manera en que he detectado que no me manda error, es cuando la tabla dinamica la pongo en otro libro.

> entonces la instruccion queda de la siguiente manera.


>
> Private Sub ComboBox1_Change()
> Workbooks.Open Filename:= _
> "C:\Documents and Settings\egarciaga\Desktop\Libro2.xlsx"
> ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh
> End Sub
>

> El problema es que necesito que la tabla dinamica se actulize en el mismo libro en el que tengo la macro.

__ OP __

0 new messages