Buenos días programadores y colegas,

El día de hoy requiero un aporte en cuanto a lo siguiente,

Dentro del archivo adjunto hay 1 combobox el cual en su propiedad RowSource tiene un rango que agrega items al combobox.

 

Lo que requiero es que a medida que yo ingresé valores, el combobox busque esos valores que están siendo diligenciados en todas las celdas, sin importar si el valor esta empezando o al final (por nombre o por apellido, sin importar el orden en el que este escrito).

No se si me hice entender, 

un ejemplo practico seria el siguiente,

DATOS: 

1. Felipe Sanchez

2. Sanchez Eduardo

3. Eduardo Perez

TEXTO DILIGENCIADO EN EL COMBOBOX:

"Sanc"

• En este momento el combobox deberia traer los datos 1 y 2 datos.

"Edu"

• En este momento el comboBox Deberia traer los datos 2 y 3.

 

Agradezco a la persona que me quiera ayudar.

 

Saludos,

Jairo Arango

 

Busqueda inteligente.xlsx

Hola  hiddenmafia, prueba el adjunto y comenta.

Busqueda inteligente.xlsm

Hola Jesus buenas tardes,

Primero que todo muchas gracias por ayudarme. Lo agradezco mucho!

Esta excelente! muchas gracias realmente me es muy útil,

Ahora, bien habrá forma de traer esa búsqueda al drop del combobox, y no a un listbox?

Prueba a ver si te entendí.

Busqueda inteligente pRUEBA2.xlsm

Amigo Jesus,

Excelente!!!!

Era lo que necesitaba, otro conocimiento adquirido en este grandioso foro, el mejor de todos.

De verdad muchas gracias @JSDJSD

 

Saludos,

Jairo Arango

Me alegro

Hola Jesus, 

Me funciono el archivo que me enviaste, pero cuando lo quise replicar al formulario en donde lo necesito implementar no funciono jaja no se que estoy haciendo mal

Te envió un vídeo del formulario, realizando las pruebas.

Link del archivo: https://1drv.ms/x/s!At8jb26afmL0jHIIme20S8mQ_-HO?e=QVrAAW

 

 

el formulario se llama "form_mov"

@JSDJSDBuenos días mi hermano,

El codigo que tengo en el combobox es el siguiente: 

Dim uf2, cont As Long
Dim nombre As String
    
    uf2 = CRUCES.Range("AH" & Rows.Count).End(xlUp).Row
      
    If Len(ComboBox4) = 0 Then ComboBox4 = ""

    For cont = 2 To uf2
    
        nombre = CRUCES.Cells(cont, 34).Value
        If UCase(nombre) Like "*" & Trim(UCase(ComboBox4.Value)) & "*" Then
            ComboBox4.AddItem CRUCES.Cells(cont, 34)
        End If
    Next cont

CRUCES, lo declare como Sheets("cruces") Worksheet

Los nombres estan en la columna AH de esta pestaña.

 

Espero puedas ayudarme bro

 

Gracias

Jairo Arango

Listo, tema cerrado.

La corrección tenia 2 particularidades cuando lo replicaba a mi desarrollo.

Consideración 1

Mi comboBox tenia un valor en la propiedad RowSource, al momento de copiar y pegar el codigo de mi colega @JSDJSD el pone un ComboBox1.Clear. Al hacerlo saltaba error, por la propiedad RowSource, asi que lo elimine.

Consideración 2

Al eliminar ese "ComboBox1.Clear", la funcionalidad perdia su objetivo y cargaba todos los valores del rango.

Solución

Dejar la propiedad RowSource en blanco del combobox e incluir la instrucción "ComboBox.clear"

 

Saludos,

Jairo Arango

Prueba y comenta.

https://drive.google.com/file/d/1xwYTSsJWnYhCU8f1CLXRYjEUPloTg3IX/view?usp=sharing

@JSDJSDColega Jesus, 

Primero que todo gracias, por la disposición de ayudar, lo valoro mucho.

Ahora, tengo un problema. y es que cuando lo intento seleccionar, no lo toma en carga en el mismo combobox4. Sin eso no puedo actualizar el registro. 

Ya mañana te lo miro

@JSDJSDVale bro, muchas gracias !

un saludo

Jairo Arango

Amigo @JSDJSD Sigo pendiente de tu valiosa ayuda.

Que pena volverte a escribir, pero es un poco urgente  y no he encontrado soluciones por más que lo intento de mil maneras.

 

Gracias! muchas gracias !

 

Saludo,

Jairo Arango

Prueba y comenta.

https://drive.google.com/file/d/1IEqDgeV-jFo8HVR_Y2SqoiUlZpJLAWgx/view?usp=sharing

@JSDJSD Amigo jesus muchas gracias,

Quedo perfecto, solo le cambie la condicion del if 

de: If Len(ComboBox4) > 15 Then

por: If Len(ComboBox4) <> "" Then 

ya que si el nombre no tiene mas de 15 caracteres, tampoco iba a seleccionarlo.

Quedo perfecto. muchas gracias !