Restricciones en campos página

hola, LUIS !

... tabla dinamica... dos campos pagina "PROVEEDOR" y "NºFACTURA"
... hacer que, seleccionado un proveedor al desplegar el campo "NºFACTURA"
... ofrezca... solo aquellos que... corresponden... del proveedor ya seleccionado?

podrias agregar una columna al rango de origen con una formula que 'condicione' cada fila al proveedor 'seleccionado'
si requieres ayuda mas 'concreta'... podrias comentar datos mas 'especificos' ?
[p.e. el rango de los datos 'de origen': titulos y datos -> el rango que ocupa la TD y los campos-pagina]

saludos,
hector.

Hola Héctor , te intento concretar:

Supongamos que tengo cuatro campos (columnas ABCD) "proveedor" "nºfactura"
"Articulo" "Cantidad" .
A2=Pepe;A3=Juan;A4=Juan;A5=Juan;B2=4;B3=6;B4=7;B5=2;C2=Peras;C3=fresas;C4=Manzanas";C5=fresas;D200;D3 00;D4P0;D5€0.
"Articulo" es el campo del área de filas , "Cantidad" es el campo de área de
datos , "proveedor" y "nºfactura" son los campos página. El tema es que si
selecciono el proveedor "Pepe" dentro del área de campo página, cuando luego
quiero delimitar también el nº de factura , no me ofrezca todos los números
de factura sean de pepe o de juan sino solo los de pepe es decir solo el
"4", de igual modo , si selecciono Juan luego como números de factura
seleccionables solo debería aparecerme el 6 , el 7 o el 2 no el "4".

Gracias y Saludos



"Héctor Miguel" escribió en el mensaje
news:%

hola, LUIS !

... tabla dinamica... dos campos pagina "PROVEEDOR" y "NºFACTURA"
... hacer que, seleccionado un proveedor al desplegar el campo
"NºFACTURA"
... ofrezca... solo aquellos que... corresponden... del proveedor ya
seleccionado?

podrias agregar una columna al rango de origen con una formula que
'condicione' cada fila al proveedor 'seleccionado'
si requieres ayuda mas 'concreta'... podrias comentar datos mas
'especificos' ?
[p.e. el rango de los datos 'de origen': titulos y datos -> el rango que
ocupa la TD y los campos-pagina]

saludos,
hector.

hola, LUIS !

Supongamos... cuatro campos (ABCD) "proveedor" "nºfactura" "Articulo" "Cantidad".
A2=Pepe;A3=Juan;A4=Juan;A5=Juan
B2=4;B3=6;B4=7;B5=2
C2=peras;C3=fresas;C4=manzanas;C5=fresas
D200;D3 00;D4P0;D5€0.
"Articulo" es el campo... de filas; "Cantidad"... area de datos; "proveedor" y "nºfactura"... campos pagina
... si selecciono el proveedor "Pepe"... de campo pagina... quiero delimitar tambien el nº de factura... es decir solo el "4"
... si selecciono Juan luego como numeros de factura seleccionables solo deberia aparecerme el 6, el 7 o el 2 no el "4".

op1: MOVER el campo de las facturas A... area de filas / area de columnas
[creo que es la mas 'sencilla'... aunque no ceo que sea 'lo que buscas'] :))
op2: usar una columna 'auxiliar' [junto al rango de origen] para 'detectar' si se esta 'filtrando' por algun nombre de proveedor
y apoyo de macros [p.e. en el evento '_calculate' de la hoja] para mostrar/ocultar las facturas que NO 'correspondan' :))
te paso un ejemplo al final y los 'supuestos'...

si cualquier duda... comentas?
saludos,
hector.
=1) mismo rango de datos que e ejemplo [A1:D5] => (ABCD) "Proveedor" "Factura" "Articulo" "Cantidad" <2) cambie n°factura por -simplemente- 'Factura' :(( [por facilidad de 'caracteres'] :))
3) estoy suponiendo que el campo 'proveedor' [en la tabla dinamica] es la celda 'H3' <= OJO y utiliza la 'real'
4) agregue la columna auxiliar en el rango 'E1:E5' con titulo de 'mostrar' y la siguiente formula... =o($h$3="(Todas)",$h$3¢)
OJO con el 'termino' "(Todas)" [por si tu excel es en ingles => "(All)" <= Y mi separador de argumentos [coma] :D
5) use excel '97 en un libro SIN guardar y el siguiente codigo me funciono [supongo que] como 'esperas' :))
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim FLR As String, RangoFacturas As String, Factura As PivotItem, Celda As Range
FLR = Application.International(xlUpperCaseRowLetter)
With Me.PivotTables(1)
RangoFacturas = Application.ConvertFormula(Application.Substitute( _
Mid(.SourceData, InStr(.SourceData, "!") + 1), FLR, "R"), xlR1C1, xlA1)
RangoFacturas = Range(RangoFacturas).Offset(, 1).Resize(, 1).Address
For Each Factura In .PageFields("Factura").PivotItems
Set Celda = Range(RangoFacturas).Find(Factura.Name)
Factura.Visible = Celda.Offset(, 3)
Next
End With
Set Celda = Nothing
Application.EnableEvents = True
End Sub