Tablas Dinámicas con VBA Excel.

hola, Daniel !

... tabla dinamica... origen de datos... en Sql Server 2000
... tiene un "campo de pagina"... deseo cambiar de valor mediante VBA
... seleccionar un valor de la lista de este campo mediante codigo en VBA.

1) la siguiente instruccion establece como valor 'seleccionado' del campo de pagina 1: -> (Todos)
-> [toma nota que 'este' elemento debe ser en ingles si se utiliza por codigo vba: -> (All) :D

ActiveSheet.PivotTables(1).PageFields(1).CurrentPage = "(all)"

2) si suponemos que sabes/conoces/... [+/- exactamente] el nombre/valor del elemento 'a seleccionar'...
solo sustituye el dato entre comillas -> "(all)" por el dato 'real' que necesitas ;)

3) si suponemos que NO sabes/conoces/... cuales son los elementos 'seleccionables'... -?-
el siguiente ejemplo te los muestra en un cuadro de mensajes [obviamente, puedes utilizar matrices, etc.]

Dim Sig As Byte, Msj As String
With ActiveSheet.PivotTables(1).PageFields(1)
Msj = "Elementos de " & .Name
For Sig = 1 To .PivotItems.Count
Msj = Msj & vbCr & Sig & ") " & .PivotItems(Sig).Name
Next
End With
MsgBox Msj

4) si suponemos que 'la cosa' [en la realidad] es ligeramente menos... 'sencilla' -?-
-> ya puedes comenzar a proporcionar los detalles faltantes ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Estimado Hector.

Gracias por tu respuesta, me ha servido, aunque tienes un forma muy
particular y graciosa de expresarte en tu redacción, imagino orientada a
muchos que ni siquiera saben que es lo que quieren...

Estaba bien encaminado en mi solución... sólo que en vez de PageField
utilizaba PivotField...

Thanks again

Daniel R




"Héctor Miguel" wrote:

hola, Daniel !

> ... tabla dinamica... origen de datos... en Sql Server 2000
> ... tiene un "campo de pagina"... deseo cambiar de valor mediante VBA
> ... seleccionar un valor de la lista de este campo mediante codigo en VBA.

1) la siguiente instruccion establece como valor 'seleccionado' del campo de pagina 1: -> (Todos)
-> [toma nota que 'este' elemento debe ser en ingles si se utiliza por codigo vba: -> (All) :D

ActiveSheet.PivotTables(1).PageFields(1).CurrentPage = "(all)"

2) si suponemos que sabes/conoces/... [+/- exactamente] el nombre/valor del elemento 'a seleccionar'...
solo sustituye el dato entre comillas -> "(all)" por el dato 'real' que necesitas ;)

3) si suponemos que NO sabes/conoces/... cuales son los elementos 'seleccionables'... -?-
el siguiente ejemplo te los muestra en un cuadro de mensajes [obviamente, puedes utilizar matrices, etc.]

Dim Sig As Byte, Msj As String
With ActiveSheet.PivotTables(1).PageFields(1)
Msj = "Elementos de " & .Name
For Sig = 1 To .PivotItems.Count
Msj = Msj & vbCr & Sig & ") " & .PivotItems(Sig).Name
Next
End With
MsgBox Msj

4) si suponemos que 'la cosa' [en la realidad] es ligeramente menos... 'sencilla' -?-
-> ya puedes comenzar a proporcionar los detalles faltantes ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.