Uso del "Boton de Opciones" en un formulario de busqueda.

[MauriciodeAbreu]

Buenos dias amigos.

Recurro a ustedes porque tengo un problema con un formulario de busqueda que estoy haciendo, he buscado en la red, foros, YouTube, y no encuentro algo que me indique como usar el "Boton de Opciones" para seleccionar el parametro de busqueda, y tampoco un ejemplo para ver donde esta mi error.

Esta es una imagen del formulario, como pueden observar hay una serie de Botones para realizar las opciones de busqueda, y por el momento solo realiza la buqueda por Baul, no he logrado hacer que funcione para el resto de las opciones.

 

Anexo archivo de ejemplo.Ejemplo FrmBuscar.xlsm

Agradecido de antemano por la ayuda que me puedan brindar.

[JSDJSD]

Prueba y comenta

Ejemplo FrmBuscar (Prueba1).xlsm

[MauriciodeAbreu]

Excelente!!, JSDJSD ahora si realiza la busqueda por Parametro.

Solo corregí un detallito, ya que como puedes apreciar en las imagenes que anexo, al ir cambiando de parametro me truncaba cada vez mas los resultados.

 

El cambio lo realicé en las siguientes lineas (por si le interesa a alguien).

 

Antes:

For i = 4 To Filas
    If LCase(Cells(i, Columna).Offset(0, 2).Value) Like "*" & LCase(Me.txtFiltro1.Value) & "*" Then
        Me.ListBox1.AddItem Cells(i, j)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, Columna).Offset(0, 1)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, Columna).Offset(0, 2)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, Columna).Offset(0, 3)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, Columna).Offset(0, 4)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, Columna).Offset(0, 5)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, Columna).Offset(0, 6)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, Columna).Offset(0, 7)

__________________________________________

Ahora:

For i = 4 To Filas
    If LCase(Cells(i, Columna).Offset(0, 2).Value) Like "*" & LCase(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)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)

Y asunto resuelto...

Agradecido por tu ayuda para corregir el inconveniente, y hacerme ver donde estaba el problema.

Tema resuelto.