Comando de búsqueda con error
Expertos:
Tengo un problema, tengo un texbox y un commandbuton en el botón coloque la siguiente
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Pero si no encutra nada me sale un error, agradecería si me pudiera explicar porque y decrime que le hace falta
Gracias
Tengo un problema, tengo un texbox y un commandbuton en el botón coloque la siguiente
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Pero si no encutra nada me sale un error, agradecería si me pudiera explicar porque y decrime que le hace falta
Gracias
1 respuesta
Respuesta de calvuch
1
Pues el find retorna error si no encuentra lo que busca, para eso debes utilizar una estructura de control de excepciones. Así:
On Local Error GoTo errores
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False). Activate
Errores:
If Err.Number = 91 Then MsgBox "No se econtraron coincidencias", vbInformation
No olvides CERRAR la pregunta
On Local Error GoTo errores
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False). Activate
Errores:
If Err.Number = 91 Then MsgBox "No se econtraron coincidencias", vbInformation
No olvides CERRAR la pregunta
