Combo Box + Tabla Pivote

[Rocky]

Saludos a todos, necesito saber como desde un Combo Box, al colocar un mes Ej. (Enero), el combo Box me proporciona 1, este valor debería hacer cambiar la variable Mes en la Tabla Pivote.

Como se relacionan estos procesos.

Gracias,

 

[Greg Truby]

¿Usted ya está usando algo como una variable tipo Página? Porque esto sería la forma más fácil de lograr su meta.

 

[Rocky]

Gracias Greg por atender, no entiendo el concepto, que me indicas, puedes ampliarme al respecto.


Gracias,

 

[Greg Truby]

Por ejemplo, tenemos datos así:

Product Region Month Sales
Gadgets North Sep-03 2845.81
Widgets North Sep-03 4482.51
Widgets South Sep-03 4367.14
Woozles North Oct-03 6.02
Gizmos North Sep-03 3237.33
Widgets East Oct-03 4166.47
Gizmos West Sep-03 690.04
Gadgets North Sep-03 187.1
Gadgets East Oct-03 3827.9
Woozles West Oct-03 3704.37
Woozles North Sep-03 1722.05
Gadgets West Sep-03 2448.74
Gadgets North Oct-03 4574.97
Widgets East Nov-03 48.25
Gadgets East Sep-03 2135.14
Woozles South Oct-03 4868.64
Widgets West Sep-03 4086.1
Gadgets South Sep-03 4700.88
Gizmos North Sep-03 4774.57
Widgets East Oct-03 753.16
Gadgets South Sep-03 2976.68
Woozles West Nov-03 3377.92
Gizmos North Sep-03 1187.87
Gizmos West Sep-03 689.07
Gadgets West Oct-03 1892.64
Gizmos South Sep-03 2174.51
Gizmos North Nov-03 2932.34
Gadgets North Nov-03 3503.87
Woozles South Sep-03 2847.54

Y nuestro Pivot Table es así:

book3
	A	B	C	D	E	F
3	SumofSales	Region
4	Product	East	North	South	West	GrandTotal
5	Gadgets	5,963	11,112	7,678	4,341	29,094
6	Gizmos		12,132	2,175	1,379	15,686
7	Widgets	4,968	4,483	4,367	4,086	17,904
8	Woozles		1,728	7,716	7,082	16,527
9	GrandTotal	10,931	29,454	21,935	16,889	79,210
Sheet5

Se puede poner el mes arriba como una variable "Página" y asi para ver las cifras para una sola mes es nada más de escogerlo.

book3
	A	B	C	D	E
1	Month	Nov-03
2
3	SumofSales	Region
4	Product	East	North	West	GrandTotal
5	Gadgets		3,504		3,504
6	Gizmos		2,932		2,932
7	Widgets	48			48
8	Woozles			3,378	3,378
9	GrandTotal	48	6,436	3,378	9,862
Sheet5

Estoy usando XL2002 y en este caso es nada más de "drag" el campo del listado de campos disponible a la caja azul donde dice "page". Si usted está usando una versión más vieja, revisa la ayuda de Excel sobre la tema de Pivot Tables para ver como crear un campo tipo página.

Saludos,

 

[Rocky]

Gracias Greg de nuevo, sin embargo no veo la relación con el Combo Box, en el Combo Box es donde debo de especificar y escoger el mes, o el producto con el que quiero trabajar, el combo box es la llave para modificar el Pivote Table.

Thanks...!!!!

 

[Greg Truby]

Rocky,

Si un utiliza un campo tipo Página en su PivotTable Excel le dará el ListBox automaticamente, en Cell B1.

 

[Rocky]

Ya te entendi lo del campo pagina, sin embargo el combo box lo tengo en una hoja diferente a la que se encuentra el Pivote Table, lo que estoy buscando es la forma de relacionarlos estando en hojas separadas.

Gracias,

 

[Greg Truby]

Rocky,

Perdón, pero mi respuesta va a ser un poco breve porque ya estoy tarde para llegar a la casa para poner el árbol de navidad.

Usted puede poner un combobox en una hoja y luego poner programación parecida a la siguiente para cambiar su PivotTable. Para aprender qué son los nombres de los objectos que necesita cambiar, use el Macro Recorder y cambie su PivotTable a mano (en mi caso con una variable tipo Page) y revise lo que genera el Macro Recorder.

Ejemplo:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> ComboBox1_Change()

    <SPAN style="color:#00007F">Dim</SPAN> strNewValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>, rngLinkedCell <SPAN style="color:#00007F">As</SPAN> Range
    
    <SPAN style="color:#00007F">Set</SPAN> rngLinkedCell = Range(Me.ComboBox1.LinkedCell)
    
    strNewValue = Format(rngLinkedCell, "m/d/yyyy")
    Sheets("Sheet5").PivotTables("PivotTable2").PivotFields("Month").CurrentPage = strNewValue

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

Espero que le ayude -