Busqueda por coincidencias vb excel
Hola compañero
Me puedes ayudar
Tengo un userform en el un textbox, un listbox y un commandbutton
Lo que quiero hacer es una búsqueda por coincidencia osea que todo lo que se le parezca se coloque en un listbox
Buscar 123
Resultados
123
4123
6123
Etc...
Espero me puedas ayudar
Saludos
Me puedes ayudar
Tengo un userform en el un textbox, un listbox y un commandbutton
Lo que quiero hacer es una búsqueda por coincidencia osea que todo lo que se le parezca se coloque en un listbox
Buscar 123
Resultados
123
4123
6123
Etc...
Espero me puedas ayudar
Saludos
1 respuesta
Respuesta de Luis_P
1
Prueba:
Private Sub CommandButton1_Click()
'agrega coincidencias a list
'4c7569735f50
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
ListBox1.Clear
For i = 1 To t
If InStr(1, Sheets(1).Range("A" & i), Trim(TextBox1)) > 0 Then
ListBox1.AddItem Sheets(1).Range("A" & i)
End If
Next
End Sub
Private Sub CommandButton1_Click()
'agrega coincidencias a list
'4c7569735f50
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
ListBox1.Clear
For i = 1 To t
If InStr(1, Sheets(1).Range("A" & i), Trim(TextBox1)) > 0 Then
ListBox1.AddItem Sheets(1).Range("A" & i)
End If
Next
End Sub
