Jump to content
Jose BN

AUTOFILTRO POR COMBOBOX

Recommended Posts

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

Share this post


Link to post
Share on other sites

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"

 

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy