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
 

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
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
 
Upvote 0
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
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,494
Messages
6,113,972
Members
448,537
Latest member
Et_Cetera

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top