Personalizar error

[dimitrix]

Hola pues necesito que cuando salte el error:



Gracias

PD: le di al botón y no aparece nada.

[Syphroot]

Espero te ayude esto:

Código [Seleccionar] Expandir



Const ERR_ESPERADO = 0

Sub Rutina()
   
   On Local Error Goto Controlar

   ' Codigo

   Exit Sub

Controlar:
   
   If Err.Number = ERR_ESPERADO then
       
         MsgBox "Mensaje personal"
         
         Resume Next
         
   End If

End Sub



Solo ajustas la constante al valor del error esperado.

saludos