Condicionar Búsqueda - Urgente

Cordial Saludo:
Mi caso es el siguiente: Tengo una Base de Datos en la Hoja1, y un Formulario en VBA, en el formulario tengo un Textbox y un CommandButton, En el Textbox escribo el código que estoy buscando y al ejecutar el botón funciona perfectamente siempre y cuando encuentre el dato, mi código a utilizar es:
Private Sub Buscar_Click()
Cells.Find(What:=Val(TextBox1.Text), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Como hago para que al ejecutar el botón de buscar me aparezca un MsgBox en caso de que no se encuentre el Código.
Muchas Gracias.
1

1 respuesta

Respuesta
1
Puedes incluir al principio del código lo siguiente
On error goto error
Y al final del código
Error:
if err then
msgbox "No hay ningun resultado"
endif
Asi cuando no encuentre el codigo y te de un error ira directamente al mensaje de error de que no ha encontrado ningun resultado.Tambien puedes apuntarte el numero de error que te sale cuando no encuentra ningun codigo y poner if err.number=8 then
Así te aseguras que solo te saldrá el mensaje si no encuentra el valor a buscar y no siempre que se produzca un error.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas