Valores en Campos de Pagina de PivotTable

Hola butis,

Prueba esto:

Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).PageFields(1).PivotItems
MsgBox i.Name
Next i

Saludos,
KL


"butis" wrote in message news:

Hola a :
Se trata sobre cómo controlar los valores de los campos de pagina de las
tablas dinámicas.
Puedo establecer y llegar al contenido actual mediante la instrucción :

ActiveSheet.PivotTables(\"<nombre tabla>\").PivotFields(\"<nombre campo
pagina>\").CurrentPage = \"<valor>\"

pero no logro encontrar la manera de recorrer/acceder/seleccionar los
posibles valores que contiene el campo
correspondiente.


Un saludo.

hola, chicos !

butis escribio en el mensaje ...
... como controlar los valores de los campos de pagina de las tablas dinamicas.
Puedo establecer y llegar al contenido actual mediante la instruccion:
ActiveSheet.PivotTables(\"<nombre tabla>\").PivotFields(\"<nombre campo pagina>\").CurrentPage = \"<valor>\"
pero no logro encontrar la manera de recorrer/acceder/seleccionar los posibles valores que contiene el campo correspondiente

KL escribio en el mensaje ...
Prueba esto:
Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).PageFields(1).PivotItems
MsgBox i.Name
Next i

[probablemente, 'solo']... 'cuidar' [o confirmar] si 'en la memoria' de la TD se hubiera quedado algun elemento que ya no existe -?-
[p.e. cuando se modifican los datos 'de origen' haciendo un 'refresco' de la TD y se hubieran efectuado sustituciones/cambios/...]
Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).PageFields(1).PivotItems
If i.RecordCount Then MsgBox i.Name
Next

saludos,
hector.

Héctor, te hago una consulta sobre esta respuesta que enviaste.
Hablas de memoria de la TD, sabes como podes borrar los valores de la
memoria de la TD.
Es decir, no quiero que la TD muestre en las listas desplegables los valores
que ya no existen en el origen de datos, me podes ayudar con esto???
Gracias.

"Héctor Miguel" escribió:

hola, chicos !

> butis escribio en el mensaje ...
> ... como controlar los valores de los campos de pagina de las tablas dinamicas.
> Puedo establecer y llegar al contenido actual mediante la instruccion:
> ActiveSheet.PivotTables(\"<nombre tabla>\").PivotFields(\"<nombre campo pagina>\").CurrentPage = \"<valor>\"
> pero no logro encontrar la manera de recorrer/acceder/seleccionar los posibles valores que contiene el campo correspondiente

>> KL escribio en el mensaje ...
>> Prueba esto:
>> Dim i As PivotItem
>> For Each i In ActiveSheet.PivotTables(1).PageFields(1).PivotItems
>> MsgBox i.Name
>> Next i

[probablemente, 'solo']... 'cuidar' [o confirmar] si 'en la memoria' de la TD se hubiera quedado algun elemento que ya no existe -?-
[p.e. cuando se modifican los datos 'de origen' haciendo un 'refresco' de la TD y se hubieran efectuado sustituciones/cambios/...]
Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).PageFields(1).PivotItems
If i.RecordCount Then MsgBox i.Name
Next

saludos,
hector.