Como digitar el código 1001 encima del listbox y que me dirija a la columna 0
Tengo un formulario con el listbox1 y quiero que al posicionarme encima del textbox me dijitar al código 1001, es decir columna 0. El plan esta en la hoja2 en a2 código y b2 nombre cuenta el listbox tiene 2 columnas
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Tengo un listbox (ListBox1) con dos columnas, la primera es el código de la cuenta y la segunda con el nombre de la cuenta. Lo que busco es que al digitar el código 101 me dirija a la cuenta correspondiente como lo muestra la imagen. Actualmente solo funciona si dígito un número, necesito digitar más de 2 números, de antemano gracias por tu tiempo.
[hola
Prueba la siguiente macro.
Inserta Listbox1 y Textbox1
Private Sub TextBox1_Change() Dim i As Integer, Ctrl As Boolean Ctrl = True For i = 0 To Me.ListBox1.ListCount - 1 If Not IsEmpty(Trim(Me.ListBox1)) Then If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then Me.ListBox1.Selected(i) = True Ctrl = False Exit For End If End If Next If Ctrl And Not IsEmpty(Trim(Me.TextBox1)) Then MsgBox "Codigo No Registrado", vbInformation + vbOKOnly, "Atención" End If End Sub
