iserror in VBA

[Carlbacca]

Can someone give me an example of an iserror function I can use in VBA.

basically I want vba to carry out a action if there is an error on a bit of code.

Thanks for your help

 

[agrawal.meet]

you can use on error goto <abcd> statement.

Not tested.
</abcd>

Your code......
.......

On error goto abcd



:abcd
error handling here

<abcd>
</abcd>

 

[AlphaFrog]

Sub Error_Demo()
    
    On Error GoTo Error_Handler
    
    x = 1 / 0 '<---causes an error
    
    Exit Sub
    
Error_Handler:

    MsgBox "There was an error." & vbCr & "Error number: " & Err.Number, vbCritical, "Uh Oh!"
    
End Sub

 

[Richard Schollar]

Hi

You will probably want to have a look at the On Error statement in VBA Help eg:

On Error Goto deal_with_error
 
'sample code:
 
Sheets("Data").UsedRange.Clear  '--- say this errors
 
'more code
 
On Error Goto 0  'turn off the previous On Error Goto line
 
Exit Sub
 
 
deal_with_error:
 
  'perhaps no sheet Data is in workbook?
  If Err = 9 Then
     Set ws = Worksheets.Add
     ws.Name = "Data"
     Resume   'returns the code execution to the original line which errored
  Else
     MsgBox "Some error occured - exiting sub"
     Exit Sub
End Sub

 

[al_b_cnu]

Option Explicit

Sub TestError()
Dim lRow As Long, lError As Long
Dim sCurrentAction As String

On Error GoTo labError

sCurrentAction = "Calling Initialisation"
Call Initialise

sCurrentAction = "Finding a non existant string"
lRow = WorksheetFunction.Match("qwerty", ActiveSheet.Columns("A"), 0)

sCurrentAction = "Doing something else"
Call DoSomethingElse

Exit Sub
labError:
MsgBox "Error " & Err.Number & " whilst " & sCurrentAction
End Sub

Private Sub Initialise()
MsgBox "Initialising"
End Sub
Private Sub DoSomethingElse()
MsgBox "Doing something else"
End Sub