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

Hola Jose

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

 

Saludos 

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

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

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"

 

Hola Jose BN, te dejo otra opción.

CONSULTA COMBOBOX (3).xlsm

Hace 28 minutos , JSDJSD dijo:

Hola Jose BN, te dejo otra opción.

CONSULTA COMBOBOX (3).xlsm 53 kB · 0 descargas

Muchas gracias!

 

Saludos

JB