Anónimo
Buscar y cargar todos los posibles en combobox
Hola cadipas, tuve un problema con la programación que me mandaste anteriormente, ya que quise hacer lo mismo en el caso de buscar por nombre en una hoja de excel, para que posteriormente me muestre en un combobox los posibles. No se si me podrías ayudar.
Como seria si introduzco: suponiendo "ro" en un textbox y que me muestre todas las opciones que contengan "ro" como ser: Rodrigo, Ronald, Roberto, etc. En el combobox
Gracias
Como seria si introduzco: suponiendo "ro" en un textbox y que me muestre todas las opciones que contengan "ro" como ser: Rodrigo, Ronald, Roberto, etc. En el combobox
Gracias
1 respuesta
Respuesta de Cadipas spain
1
Prueba esto:
Textbox1 es el textbox en el que pones la pista y combobox1 es el combo donde añades los nombres que tienen esa pista
---------
Private Sub TextBox1_Change()
ComboBox1.Clear
largo = Len(TextBox1)
n = 20
Do While Cells(n, 4) <> ""
inicio = Left(Cells(n, 4), Len(TextBox1))
If UCase(inicio) = UCase(TextBox1) Then ComboBox1.AddItem Cells(n, 4)
n = n + 1
Loop
End Sub
Textbox1 es el textbox en el que pones la pista y combobox1 es el combo donde añades los nombres que tienen esa pista
---------
Private Sub TextBox1_Change()
ComboBox1.Clear
largo = Len(TextBox1)
n = 20
Do While Cells(n, 4) <> ""
inicio = Left(Cells(n, 4), Len(TextBox1))
If UCase(inicio) = UCase(TextBox1) Then ComboBox1.AddItem Cells(n, 4)
n = n + 1
Loop
End Sub
Hola cadipas, te cuento que probé lo que me mandaste, pero me sale un
error de "Se esperaba Function o una variable". Y ni idea como
solucionarlo, ojala tu sepas que esta pasando, GRACIAS!
error de "Se esperaba Function o una variable". Y ni idea como
solucionarlo, ojala tu sepas que esta pasando, GRACIAS!
Como veo que así podemos tener problemas, re recomiendo que me postees tu dirección de correo, con el fin de que te envíe yo un e-mail para realizar un intercambio de fichero. (De esta forma me envías el fichero, te la arreglo y a correr).
Sergio, por favor cierra la pregunta y valora la ayuda...