Filtrar datos mediante LISTBOX utilizando TEXTBOX
Para Dante Amor : Agradecería que me ayudaras con lo siguiente: Estoy trabajando en un formulario de búsqueda de excel, que tiene un textbox, un commabutton (Boton consultar) y un listbox. Lo que busco es que cuando escriba un nombre en el textbox y presione consultar aparezca en el listbox todos los datos de mi tabla que coincide con el nombre.
Mi listbox es de 6 columnas. Lo ideal sería que el listbox reconozca las 3 primeras letras del textbox, es decir que no sea necesario escribir toda la palabra.
1 respuesta
H o l a: Envíame tu archivo con el formulario, me explicas con un ejemplo, en cuál hoja hay que buscar y en cuál columna. Y qué columnas quieres que se muestren en el listbox.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Gabriela Torres”
muchas gracias, te acabo de enviar un correo. Saludos
Te anexo el código
Private Sub cmbrazonb_Change() 'Por.Dante Amor txtruc2.Value = "" txtrazonsocial.Value = "" lstnombre.Clear If cmbrazonb = "" Or cmbrazonb = -1 Then Exit Sub End If fila = cmbrazonb.ListIndex + 2 txtruc2.Value = Cells(fila, 4) txtrazonsocial.Value = Cells(fila, 2) ' 'busca en la hoja5 "contactos" Set b = Hoja5.Columns(2).Find(cmbrazonb, lookat:=xlWhole) If Not b Is Nothing Then lstnombre.AddItem Hoja5.Cells(b.Row, "C") lstnombre.List(lstnombre.ListCount - 1, 1) = Hoja5.Cells(b.Row, "D") lstnombre.List(lstnombre.ListCount - 1, 2) = Hoja5.Cells(b.Row, "E") lstnombre.List(lstnombre.ListCount - 1, 3) = Hoja5.Cells(b.Row, "F") lstnombre.List(lstnombre.ListCount - 1, 4) = Hoja5.Cells(b.Row, "G") Else MsgBox "La empresa no existe en la Contactos", vbExclamation End If End Sub ' Private Sub UserForm_Activate() 'Por.Dante Amor fila = 2 While Hoja2.Cells(fila, "B") <> Empty cmbrazonb.AddItem Hoja2.Cells(fila, "B") fila = fila + 1 Wend End Sub
[No olvides cambiar la valoración a la respuesta.
