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:
Ver originalSub 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:
Ver originalSub 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