Validar busqueda en visual basica

[chicapop]

Hola quiero hacer una macro en en excel, donde ingreso datos, pero posteriormente los busco para modificarlos o imprimirlos.

Mi problema es que al momento de hacer la busqueda si el dato que yo ingreso no se encuentra en la hoja de excel, me saca de la macro y queria ver si alguien me ayuda a validar la busqueda, que si no encuentra el dato, me mande una alerta y qu eno me saque de la ejecucion.

Anexo el codigo de la busqueda:

Cells.Find(What:=bnfactura, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

Gracias

[caesar.l]

Pues puedes usar el comando On Error

Código vb:

Sub funcion_prueba()
 
On Error GoTo Mensaje
 
Cells.Find(What:=bnfactura, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
 
Mensaje:
 
MsgBox ("No se encuentra el dato")
 
End Sub
 

Saludos

[chicapop]

Hola oye si sirve para lo que queria, que era que no me sacara, solo que me surge un nuevo problema, aunque el dato me lo encuentre aun asi me manda el mensaje de que el dato no se encontro.


Muchas gracias por contestar pronto, sos muy amable

[caesar.l]

uy error de programación mio. Supongo que si tienes el texto a buscar en la hoja, lo ecuentra y después te da el mensaje. Entonces es mas que nada uso de la etiqueta Mensaje que puse.

Código vb:

Sub funcion_prueba()
 
On Error GoTo Mensaje
 
Cells.Find(What:=bnfactura, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
 
Goto Fin
 
Mensaje: 
MsgBox ("No se encuentra el dato")
 
 
Fin:
 
End Sub
 

Pues sería ver bien tu codigo, por que igual si la variable bnfactura la obtienes de un texbox pues seria algo asi para que si no ecuentra el texto vuelva a hacer otra busqueda, algo asi:

Código vb:

Sub funcion_prueba()
 
On Error GoTo Mensaje
 
Inicio:
bnfactura=inputbox("Ingresa el dato a buscar")
 
Cells.Find(What:=bnfactura, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
 
GoTo Fin
 
Mensaje: 
MsgBox ("No se encuentra el dato")
GoTo Inicio
 
Fin:
 
End Sub
 

Saludos

[chicapop]

Hola, bueno originalmente no tenia un texbox, sino que tenia un form y de ahi tenia un boton de consulta que accionaba el form de busqueda.


Pero tu codigo es mucho mejor. Muchas Gracias sos un experto en eso.

Buen dia y mil gracias por contestar pronto

[caesar.l]

De nada, y lo del codigo, es que me faltaban datos para ver como lo tenias y se me ocurrió ese ejemplo rapido. Lo importante es que en ese codigo viene la idea y puedes adecuarlo a tu gusto

Saludos