Buscar referencia

[santiagodi88]

tengo el siguiente problema quiero buscar un código en una hoja de excel en formulario el codigo para buscarlo no tiene ningun problema el problema es cuando la refrencia no esta me saca un error en vez de un menaje espero me puedan ayudar

EF = REFERENCIA.Value


BUSCAR = Cells.Find(What:=REF, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

      If BUSCAR Is Nothing Then

        A = MsgBox("REFRENCIA NO ENCONTRADA")

    End If

        BRELOJ.Hide[/CODE]

[AlexanderS]

Hola, asi:

EF = REFERENCIA.Value

On error resume next

BUSCAR = Cells.Find(What:=REF, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

      If BUSCAR Is Nothing Then

        A = MsgBox("REFRENCIA NO ENCONTRADA")

    End If

        BRELOJ.Hide[/CODE]

Salu2

[santiagodi88]

funciono a la perfeccion gracias. me podrias explciar un poco acerca de esta linea

On error resume next[/CODE]

y como funciona

[AlexanderS]

Hola, lo que hace esa linea como dice su traduccion en español "En caso de error reanudar el próximo", simplemente al encontrar un error salta la linea que lo produce y continua con la siguiente.

Te recomiendo leer este articulo para que me entiendas mejor: EXCELeINFO – Excel vba e información - Implementar controlador de errores en Excel vba

Salu2

[santiagodi88]

tengo un problema asi la referencia este o no este siempre me muestra el mensaje solo quiero que me lo muestre cuando no encuentre la referencia

[AlexanderS]

Intenta así:

REF = REFERENCIA.Value


Set Buscar = Cells.Find(REF, LookAt:=xlWhole)


If Buscar Is Nothing Then MsgBox ("REFRENCIA NO ENCONTRADA") Else _

Buscar.Activate


BRELOJ.Hide[/CODE]

[santiagodi88]

ahora si mil gracias tema solucionado