![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
13/06/2007, 15:45
|
![Avatar de Pablus00](http://static.forosdelweb.com/customavatars/avatar50162_1.gif) | | | Fecha de Ingreso: diciembre-2003 Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 21 años, 1 mes Puntos: 11 | |
Re: Excel: Macro con la funcion de edicion/buscar Yo no pude lograr que al no encontrara una palabra en la busqueda, me de un mensaje.
mi mejor intento fue: Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
On Error Resume Next
MsgBox "La palabra buscada no existe en la base de datos", vbInformation, "ERROR DE BUSQUEDA"
End Sub
y lo que ocurre es que siempre me aparece el mensaje, a pesar de que la busqueda sea positiva
__________________ -- Nunca te des por vencido, aún vencido -- Web |