13/06/2007, 15:45
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 4 meses 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 |