Buscar en hoja con un textbox
Para preguntar si alguien me puede ayudar
Tengo un textbox en un userform y quiero que el textbox1
Busque en la "hoja3" en la columna "M" y si encuentra el resultado
Que seleccione la celda donde esta el resultado
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then
MsgBox "Captura un dato"
Exit Sub
End If
If IsNumeric(TextBox1) Then dato = Val(TextBox1) Else dato = TextBox1
Set b = Sheets("Hoja3").Columns("M").Find(dato, lookat:=xlWhole)
If Not b Is Nothing Then
Sheets("Hoja3").Select
b.Select
Else
MsgBox "El dato no existe"
End If
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
