Jump to content
juandi

Busqueda

Recommended Posts

Hola. Abajo les dejo el código. El problema que tengo es que cuando el usuario tipea una sola palabra funciona bien hay coincidencias y se carga el listbox, pero cuando tipea dos o mas palabras separadas por un espacio no encuentra nada. Por ejemplo si tipea "caja" y en el listado hay textos que contegan esa palabra la trae, pero cuan tipea "Caja azul" y en listado hay un texto que dice ""Caja grande de color azul" no lo trae. Gracias por su ayuda

 

 

         palabra = "*" + Sheets("Pedido").cmb1.Text + "*"
         lst1.Clear
        Do While Not Sheets("Base").Cells(a, 3) = ""
             If Sheets("Base").Cells(a, 3) Like palabra Then
                     g = lst1.ListCount
                     lst1.AddItem
                     lst1.List(g, 0) = Sheets("Base").Cells(a, 3)
                     lst1.List(g, 1) = Sheets("Base").Cells(a, 2)
                     lst1.List(g, 2) = Sheets("Base").Cells(a, 7)                  
              End If
            a = a + 1
        Loop
 

Share this post


Link to post
Share on other sites
Hace 9 horas, juandi dijo:

Leopoldo, mil gracias por tu respuesta es lo que necesitaba. Como siempre esta pagina dando excelentes respuestas. Un saludos para usted

¡Vaya! El otro día alguien me cambio el nombre de Antoni por Antonio, pero por Leopoldo, no lo había hecho nadie. :lol::lol::lol:

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy