AUTOFILTRO POR COMBOBOX

Jose BN · el 10 de octubre

Buenas tardes,

Amigos del foro quisiera solicitarles su acostumbrada ayuda a orientarme en mi siguiente necesidad, cómo puedo lograr que el listbox que he insertado en el formulario filtre los datos en base al criterio seleccionado en el combobox, ojalá sin la necesidad de requerir aplicar el filtro mediante un botón

Agradezco la ayuda.

Saludos

JB

CONSULTA COMBOBOX.xlsm

Gerson Pineda · el 11 de octubre

Hola Jose

Intenta adaptar este aporte en este tema, con la duda de @JSDJSD

Saludos

Antoni · el 11 de octubre

Prueba a ver si con esto te apañas.

He añadido la columna A con un ID único para poder identificar los registros del listbox.

CONSULTA COMBOBOX.xlsm

tierra_pampa · el 11 de octubre

Hola @Jose BN!

Ya tienes varias respuestas, pero aproveché un momento de relax en mis vacaciones y te dejo otra propuesta.

Espero haber entendido tu solicitud!

Suerte!

ae20191011_CONSULTA COMBOBOX.xlsm

Jose BN · el 11 de octubre

Gran Antoni, Gersón y tierra_pampa, muchas gracias!!! Los ejemplos son geniales, que eliminan el uso del botón parte en la que estaba sin avanzar.

Pueden concluir el tema..

Que continúes disfrutando esas vacaciones amigo, aquí nos hacen falta!!!

If Me.txtFiltro1.Value = "" Then Exit Sub
    Me.ListBox1.Clear
    j = 1
    For i = 1 To 18
        If Cells(i, j).Offset(0, 2).Value = CInt(Me.txtFiltro1.Value) Then
        Me.ListBox1.AddItem Cells(i, j)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
Else
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra.", vbExclamation, "Información"