Relacionar en el Area de Pagina de una Tabla Dinamica el valor de una celda

16/10/2008 - 17:18 por Arevaco1 | Informe spam
Tengo una serie de tablas dinamicas con datos contables de distintos
paises (los paises estan en el area de pagina), cada vez que tengo que
hacer una analisis, tengo que ir tabla por tabla cambiando el nombre
del pais.

Hay alguna solución para pasar desde una celda, fuera de la tabla
dinamica, el dato al area de página correspondiente?

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
16/10/2008 - 23:59 | Informe spam
hola, 'anonimo/a' !

Tengo una serie de tablas dinamicas con datos contables de distintos paises
(los paises estan en el area de pagina), cada vez que tengo que hacer una analisis
tengo que ir tabla por tabla cambiando el nombre del pais.
Hay alguna solucion para pasar desde una celda, fuera de la tabla dinamica, el dato al area de pagina correspondiente?



una alternativa (de entre mas posibilidades) seria que cuando modifiques el campo de pagina de alguna tabla...
por codigo las demas tablas dinamicas se igualen en sus campos-pagina correspondientes...
(si comentas cual es la celda de campo-pagina correspondiente para cada tabla dinamica) -???-

saludos,
hector.
Respuesta Responder a este mensaje
#2 MRoCFe
17/10/2008 - 07:30 | Informe spam
Hola! Arevaco1.
Una opción para satisfacer tu necesidad, es la siguiente sencilla
macro que aplica a TODAS las tablas dinámicas de la hoja activa, el
mismo dato como "área de página PAIS". Ese dato lo obtiene de la celda
[L1]:
_________________________

Sub CambioDePais()
For Each Tbl In ActiveSheet.PivotTables
Tbl.PivotFields("Pais").CurrentPage = [L1].Text
Next Tbl
End Sub
_________________________

Adécuala a tus necesidades, ejecútala mediante un botón de macro y
comenta si te resulta útil.

Saludos, Cacho.
Respuesta Responder a este mensaje
#3 Cacho
17/10/2008 - 07:48 | Informe spam
Hola! Arevaco1.
Una opción para satisfacer tu necesidad, es la siguiente sencilla macro que
aplica a TODAS las tablas dinámicas de la hoja activa, el mismo dato como
"área de página PAIS". Ese dato lo obtiene de la celda [L1]:
_________________________

Sub CambioDePais()
For Each Tbl In ActiveSheet.PivotTables
Tbl.PivotFields("Pais").CurrentPage = [L1].Text
Next Tbl
End Sub
_________________________

Adécuala a tus necesidades, ejecútala mediante un botón de macro y comenta
si te resulta útil.

Saludos, Cacho.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida