Como hacer una búsqueda en un textbos
Buen día, Estoy tratando de hacer un motor de búsqueda en un textbox la idea es que cuando yo introduzca una letra en el textbox me busque todas las referencias que lleven la letra que puse en y que al seleccionar una opción se llenen automáticamente los demás textbox
Para: Dante Amor
Respuesta de Dante Amor
1
Puedes enviarme tu archivo con algunos ejemplos y con el formulario.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “riky mendez” y el título de esta pregunta.
Te anexo la macros para el formulario1
Private Sub ListBox1_Click()
'Por.Dante Amor
fila = ListBox1.List(ListBox1.ListIndex, 1)
TextBox2 = Sheets("Hoja1").Cells(fila, "B")
End Sub
Private Sub TextBox1_Change()
'Por.Dante Amor
TextBox2 = ""
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "100;0"
Set h1 = Sheets("Hoja1")
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "A") Like TextBox1 & "*" Then
ListBox1.AddItem h1.Cells(i, "A")
ListBox1.List(ListBox1.ListCount - 1, 1) = i
End If
Next
End SubSaludos.Dante Amor
