Error Statement

kingy

New Member
Joined
Sep 14, 2002
Messages
14
How do you go about writing an error statement in VBA??? So when an error occurs it will run a set piece of code?

Kingy
 

Some videos you may like

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.

Chris Davison

MrExcel MVP
Joined
Feb 15, 2002
Messages
1,790
on error goto errorhandler



where errorhandler is a marked line in your code (I stick mine at the end)

then you can use the select case command to tell VBA what to do in each case of errors
 

kingy

New Member
Joined
Sep 14, 2002
Messages
14
thanks, havent done much VB coding in a long time, am a bit scratchy, couldnt for the life of me rememeber the code, thats ne way for the help...

Kingy
 

Richie(UK)

MrExcel MVP
Joined
May 17, 2002
Messages
3,329
Hi Kingy,

A large part of how you handle errors comes down to personal choice. You could try to modify the following code to suit your needs.

<pre>
Sub AnyRoutine()
Dim MyArray() As Integer
Dim VBCompName As String, ProcName As String

'Module is already in progress

On Error GoTo ErrHandler
'Tell VBA to use trapping routine

MyArray(8) = 234
'This will cause Error 9 - Subscript out of range
'The number of elements in an array must be explicitly stated
'Module continues then

Exit Sub
'You must exit the sub or the Error Handler is invoked
'everytime you come to the end of the macro

ErrHandler:
' Module to handle errors

VBCompName = Application.VBE.SelectedVBComponent.Name
ProcName = "AnyRoutine" 'change for each routine

MsgBox "The following error has arisen :" & _
Chr(13) & Chr(13) & "Number : " & Err.Number & _
Chr(13) & Chr(13) & "Description : " & Err.Description & _
Chr(13) & Chr(13) & "Project Source : " & Err.Source & _
Chr(13) & Chr(13) & "Module Source : " & VBCompName & _
Chr(13) & Chr(13) & "Procedure Source : " & ProcName


Resume Next
' Return control to next statement after error

End Sub

</pre>

HTH
 

Watch MrExcel Video

Forum statistics

Threads
1,118,113
Messages
5,570,266
Members
412,314
Latest member
yazanwael
Top