Filtrar lista de cuadro conbinado y mostrar varias columnas

20/09/2008 - 05:12 por GRIEGO59 | Informe spam
Hola!
En un formulario tengo un combobox1 con este código:

'Carga el combobox con los productos al activar el formulario
Private Sub UserForm_Activate()
Sheets("Códigos").Select
Range("a1").Select

Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem ActiveCell
Loop
End Sub

La lista del cuadro combinado muestra la columna "a".
Los títulos de las columnas a, b y c son Código, producto, proveedor.

Quisiera que la lista del cuadro combinado muestre las columnas "a", "b" y
"c" de la hoja "códigos" y se seleccione la columna "a"

Quisiera, si es posible, que la lista del combobox1 muestre los productos
asociados al proveedor seleccionado en un combobox2.

Gracias por la ayuda,

Darío

Preguntas similare

Leer las respuestas

#16 Héctor Miguel
23/09/2008 - 03:49 | Informe spam
hola, Darío !

Hice estas pruebas:
Estos codigos funcionan:
Private Sub Productos_Change()
With Worksheets("códigos")
.Range("m2") = Productos.Value
End With
End Sub

Private Sub Productos_Change()
With Worksheets("codigos")
.Range("m5") = Productos.Value
End With
End Sub

Pero este codigo no funciona:
Private Sub Proveedores_Change()
Productos.Clear
If CargandoProveedores Then Exit Sub
With Worksheets("codigos")
.Range("m2") = Proveedores.Value



en la propuesta inicial, el evento '_initialize' carga los proveedores en un combobox que se llama "Proveedores"
-> la pregunta es si efectivamente dicho combo se llama "Proveedores" ???
y si efectivamente en ese combo puedes ver la lista de proveedores en orden y sin repeticiones ???

No sera que le estamos indicando un numero de columna inexistente?
Como se le indica al codigo la columna del combobox que se mostrara en el combobox
despues de seleccionar el producto y la columna que se copiara en la celda con el comando = Proveedores.Value ?



no se indica "la columna"... sino el valor/proveedor seleccionado en el combo con la lista de proveedores
para usar filtros avanzados y obtenes la lista de productos del proveedor seleccionado

saludos,
hector.
Respuesta Responder a este mensaje
#17 GRIEGO59
23/09/2008 - 06:08 | Informe spam
Hola, Hector!

Me curé en salud, borré el combobox Proveedores y creé un nuevo combobox
Proveedores. Listo, funciona bien

-> la pregunta es si efectivamente dicho combo se llama "Proveedores" ???


No había error en el nombre, debido a que funcionaba el filtro avanzado que
carga los productos en el combobox Productos, y este se activaba con el
combobox Proveedores. Además el depurador mostraría el error 424 por no
coincidir el nombre del combobox con el código.

y si efectivamente en ese combo puedes ver la lista de proveedores en orden y sin repeticiones ???


Si se podía ver la lista de proveedores en orden y sin repeticiones.

Yo supongo que tiene que ver con alguna propiedad del combobox Proveedores
que borré.

Me quedé con una copia del arhivo antes de borrar el combobox proveedores,
el que no funciona, por si la quieres para tu colección. Te la puedo
obsequiar. Puedes conseguirla en www.geocities.com/griego59

Una vez más mil gracias.

Saludos,

Darío.
Respuesta Responder a este mensaje
#18 Héctor Miguel
23/09/2008 - 06:35 | Informe spam
hola, Darío !

Me cure en salud, borre el combobox Proveedores y cree un nuevo combobox Proveedores. Listo, funciona bien ...
Yo supongo que tiene que ver con alguna propiedad del combobox Proveedores que borre.
Me quede con una copia del arhivo antes de borrar el combobox proveedores, el que no funciona
por si la quieres para tu coleccion. Te la puedo obsequiar. Puedes conseguirla en www.geocities.com/griego59



(pues...) si el archivo del enlace es "el que no funciona" ???
-> en el evento '_change' del combobox "proveedores" ESTABAS depositando la seleccion en la celda "m2" ...
Private Sub Proveedores_Change()
Productos.Clear
If CargandoProveedores Then Exit Sub
With Worksheets("códigos")
.Range("m2") = Proveedores.Value

-> cambiando la referencia por la celda que administra los filtros avanzados... ("F2"), ha funcionado "sin problemas" :))

saludos,
hector.
Respuesta Responder a este mensaje
#19 GRIEGO59
23/09/2008 - 20:49 | Informe spam
Disculpa,
Ese no es el archivo.
Ahora si tienes el archivo correcto.
Saludos,
Darío
Respuesta Responder a este mensaje
#20 Héctor Miguel
23/09/2008 - 22:59 | Informe spam
hola, Darío !

Ese no es el archivo.
Ahora si tienes el archivo correcto.



ONCE MEGAS ????? (disculpa, pero...) no pienso "bajar" tal archivo :D

(probablemente) tiene unos cuantos "abusos" (p.e.) con el uso de celdas combinadas, formatos, objetos, ...
que (seguramente) esten rebasando algunos de los limites de la aplicacion (y mermando la memoria disponible)
(debiste haber incluido este "ligero dealle" desde tu consulta original) ;)

saludos,
hector.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida