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.
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 Respuesta
Respuesta de vkinki
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.
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.
