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

1 respuesta

Respuesta
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 Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas