Para DAm_Buscar desde un textbox de un Userform en Visual basic
Tengo una columna en excel con nombres y apellidos he creado un Userform con un TextBox en el cual quisiera que, al poner un nombre me haga la búsqueda del mismo, he usado el grabador de macros con autofiltros pero el detalle es que al ingresar una sola palabra no me hace la búsqueda mientras no ingrese la referencia completa lo cual no tiene sentido, es decir, si tengo el nombre "Pepito dos palotes", cuando escribo en el combo "Pepito" no busca nada, si pongo "dos palotes" igual, pero si escribo "Pepito dos palotes" si me hace el filtrado, la pregunta es:
¿Cómo hago para que el TextBox me permita hacer la búsqueda con cualquier palabra que ingrese hasta que halle una coinicidencia?
Actualmente tengo este código:
Private Sub CommandButton1_Click()
Set h1 = Sheets("Nombres")
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If TextBox1 <> "" Then
h1.Range("A2:AC" & u).AutoFilter Field:=7, Criteria1:=TextBox1
End If
End Sub
1 Respuesta
H o l a:
Prueba así:
Private Sub CommandButton1_Click()
Set h1 = Sheets("Nombres")
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If TextBox1 <> "" Then
h1.Range("A2:AC" & u).AutoFilter Field:=7, Criteria1:="*" & TextBox1 & "*"
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
