Ayuda con operador Like y comentarios. VBA Excel
Hola de nuevo Expertos, estoy tratando de usar el operador Like y el comentario * *, pero no entiendo como utilizarlo con un textbox.
Actualmente tengo éste código:
Private Sub CommandButton1_Click()
UltimaFila = Application.WorksheetFunction.CountA(Range("A:A"))
For y = 1 To UltimaFila
If Cells(y, 2) = Me.TextBox1.Value Then
MsgBox "encontrado"
End If
Next y
End Subpero me gustaría reemplazar el contenido 'entero´que necesita el Textbox para poder encontrar un texto, por solo un 'fragmento' de la cadena de texto.
Hace un momento probé este código:
Private Sub CommandButton1_Click()
UltimaFila = Application.WorksheetFunction.CountA(Range("A:A"))
For y = 1 To UltimaFila
If Cells(y, 2) Like "*busca*" Then
MsgBox "encontrado"
End If
Next y
End Suby efectivamente, funciona muy bien, pero no sé como cambiar ese 'busca' por una variable por ejemplo introducida desde un textbox.
Espero me puedan ayudar.
De antemano muchísimas gracias.
Excelente tarde.
1 Respuesta
Respuesta de Carlos Daniel Zarate Ramirez
1
Aaa je je que tonto soy. Ya pude. Les comparto mi solución:
Solo concatene los asteriscos (*) y el objeto (Textbox)
Quedó así:
UltimaFila = Application.WorksheetFunction.CountA(Range("A:A"))
For y = 1 To UltimaFila
If Cells(y, 2) Like "*" & Me.TextBox1.Value & "*" Then
MsgBox "encontrado" & y
End If
Next y
