Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista.

La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor, luego sin que se borre el filtro anterior, me permita filtrar por el campo año y así sucesivamente hasta llegar al último cuadro combinado.

En resumen, que me permita filtrar por múltiples campos a la vez.

Investigue un poco y he estado utilizado y modificando un ejemplo que encontré, pero este código solo funciona para filtrar con 2 campo, no he logrado que sea con 5 campos.

El código es el siguiente :

Private Sub ComboTipo_Change()
Dim PR As Worksheet
Dim ULFILA As Variant
Dim I As Variant
Set PR = Sheets("BD_2")
ULFILA = PR.Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboANO.Clear
For I = 2 To ULFILA
If Me.ComboTipo = PR.Cells(I, 2) Then
Me.ComboANO.AddItem
Me.ComboANO.List(Me.ComboANO.ListCount - 1, 0) = PR.Cells(I, 3)
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim ULFILA As Variant
Dim I As Variant
ULFILA = Sheets("FILTROS").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboTipo.Clear
For I = 2 To ULFILA
Me.ComboTipo.AddItem
Me.ComboTipo.List(Me.ComboTipo.ListCount - 1, 0) = Sheets("FILTROS").Cells(I, 1)
Next
End Sub

3 Respuestas

Respuesta
1

En el video Nº 36 de mi canal encontrarán 2 ejemplos de filtrado en un Userform.

https://www.youtube.com/watch?v=lUcTVR-hB1g&list=PLrhlyizWZzOERwRMxIIy-BTP-CyXh_K5N&index=49 

El segundo ejemplo (aprox. 03:25) cuenta con 3 controles TextBox (pueden ser Combobox).

Se pueden agregar tantos controles como sean necesarios. Para cada control habrá un evento Change que filtrará la hoja de datos mostrando el rango filtrado en un ListBox.

Desde esta entrada a mi Blog se puede descargar el libro con los ejemplos.

Agrego a mi respuesta anterior el último video publicado (Nº 83).

Allí en el 'Caso Nº 4' encontrarás el ejemplo que se ajusta a tu consulta: 4 controles Combobox dependientes.

https://www.youtube.com/watch?v=I1KnjxUrMuQ&list=PLrhlyizWZzOERwRMxIIy-BTP-CyXh_K5N&index=1 

Sdos!

Respuesta
Respuesta

Puede ver consejos sobre Excel en el sitio web: https://tinhoc39.com/ 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas