![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
13/06/2007, 16:59
|
![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: 20 años, 4 meses Puntos: 11 | |
Re: Excel: Macro con la funcion de edicion/buscar Hola Abrahamvj, perdona mi brutesa jaja, pero no logro darle al clavo, mira, probe con:
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
On Error GoTo 8 'linea 8 que es la que el mensaje
MsgBox "La palabra buscada no existe en la base de datos", vbInformation, "ERROR DE BUSQUEDA"
End Sub y obtengo que me dice "que no se ha definido la etiqueta"
-----------------
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
On Error GoTo final
final:
MsgBox "La palabra buscada no existe en la base de datos", vbInformation, "ERROR DE BUSQUEDA"
End Sub y obtengo que nuevamente la busqueda se realiza, y el mensaje sale igual aunque la palabra que busco exista. Ademas se queda estancada en el primer resultado,cuando hay muchas celdas con ese contenido
__________________ -- Nunca te des por vencido, aún vencido -- Web |