En VBA (Visual Basic for Applications), la función `Error` se utiliza para generar un error en tiempo de ejecución. Esta función es útil cuando se desea imitar errores estándar de VBA o se necesita crear errores personalizados en tu código para manejar situaciones específicas.

La función `Error` se puede utilizar de la siguiente manera:

Error errornumber

Donde `errornumber` es el número del error que deseas generar. Puede ser un número correspondiente a un error de VBA estándar o un número que hayas definido para un error personalizado.

Aquí tienes un ejemplo de cómo utilizar la función `Error`:

Sub CauseAnError()
    Const MyCustomError As Integer = 9999
    
    ' Simula un error de división por cero
    Error 11
    
    ' O puedes generar un error personalizado
    'Error MyCustomError
End Sub

La función `Error` va a generar un error que puede ser atrapado y manejado por un control de errores estructurado usando las instrucciones `On Error GoTo`, `On Error Resume Next` o `On Error GoTo 0`.

Aquí hay un ejemplo que muestra cómo manejar el error generado:

Sub ErrorHandlingExample()
    Const MyCustomError As Integer = 9999
    On Error GoTo ErrorHandler
    
    ' Instrucción que genera un error
    Error 11
    
    Exit Sub ' Evita ejecutar el código del control de errores si no hay error
    
ErrorHandler:
    ' Revisa qué tipo de error ha ocurrido
    If Err.Number = 11 Then
        MsgBox "Se ha producido un error de división por cero.", vbExclamation
    ElseIf Err.Number = MyCustomError Then
        MsgBox "Se ha producido un error personalizado.", vbExclamation
    Else
        MsgBox "Error número " & Err.Number & ": " & Err.Description, vbCritical
    End If
    ' Limpia el objeto Err
    Err.Clear
    ' Opcional: Reanuda la ejecución en otro lugar o sale del procedimiento
    Exit Sub
End Sub

Recuerda que generar un error con la función `Error` activará cualquier manejo de errores que tengas en tu procedimiento actual si lo hay. Si no hay control de errores en la función o procedimiento que causa el error, el error se propagará al llamador del procedimiento y así sucesivamente. Si el error llega a la macro principal y no se maneja, VBA mostrará un mensaje estándar de error y detendrá la ejecución del programa.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto