2

Tengo la siguiente linea de código:

columna_inicio = Range("4:4").Find(fecha).Column

El problema es que si fecha no existe, el programa suelta un error.

¿Como puedo manejar esto?

He intentado usar los Try Catch pero no consigo que funcione. También el On Error Go To... pero no consigo hacerlo funcionar.

¿Alguna ayuda?

La función a implementar seria algo como:

Public Function detectarfecha(fecha)

    Intenta 
    columna_inicio = Range("4:4").Find(fecha).Column

    Si no puede. Intenta 
    'Otra cosa...

End Function

1 respuesta 1

4

Puedes usar la instrucción On Error de la siguiente forma:

Public Function detectarfecha(fecha)
    On Error GoTo ErrorHandler

    columna_inicio = Range("4:4").Find(fecha).Column
    Exit Function
ErrorHandler:
    'Lo que necesites.
End Function

Espero que te sirva.

1
  • 2
    Muchisimas gracias!!!
    – David_helo
    Commented el 27 jul. 2018 a las 9:34

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.