Filtros

2 envíos / 0 nuevos
Último envío
Jesus_2012
Imagen de Jesus_2012
Offline
última acción: Hace 9 años 7 meses
Nivel 1 - 200 puntos
alta: 17/05/2011 - 15:42
Puntos: 390
Filtros

Hola a todos,

 

Aqui pidiendoles su apoyo sobre una duda de si es posible filtrar a partir de un listbox. Es decir, seleccionar una de las opciones de un listbox y apartir de ahi se desplieguen las opciones relacionadas a ese concepto en otro listbox. Por ejemplo: En un listbox selecciono la opción seguridad y en el listbox de junto me aparezcan las opciones relacionadas a seguridad. Utilice un commandbutton en donde puse el filtrado por ejemplo de "if listbox6 = "seguridad", then...sin embargo, esto no funcionó. Anexo el printscreen del useform que estoy trabajando

 

 

De antemano muchas gracias!!

Saludos,

Jesus

 

AdjuntoTamaño
Image icon 5.jpg271.36 KB
xoan ninguen
Imagen de xoan ninguen
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 19/01/2011 - 10:03
Puntos: 835
Re: Filtros

Jesús, algo estarás haciendo mal en el código, pero sólo con una imagen no solucionamos nada. Sería conveniente que aportes algo más para revisarlo (código, un libro con las macros recortadas a lo específico o algo, pero no una foto).

 

Voy a suponer que estás atascado en algo como esto:

Si en listBoxArea tienes varios elementos ("Seguridad", "Salud",...), y creas una de estas rutinas

  • Private Sub listBoxArea_Click()
  • Private Sub  listBoxArea _DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 

Podrías introducir en estas la condición que buscas:
 
listBoxTipoInstitucion.Clear 'Elimina cualquier elemento previo que exista en la lista TipoInstitucion
Select Case listBoxArea.value
Case "Seguridad"
         listBoxTipoInstitucion.AddItem ElementoSeguridad1
         listBoxTipoInstitucion.AddItem ElementoSeguridad2
...
         listBoxTipoInstitucion.AddItem ElementoSeguridadN
Case "Salud"
         listBoxTipoInstitucion.AddItem ElementoSalud1
         listBoxTipoInstitucion.AddItem ElementoSalud2
...
         listBoxTipoInstitucion.AddItem ElementoSaludM
End Select
 
Un saludo

 

-----------------------------------------------------------------

www.TrazEX.com (soluciones sobre Excel)