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

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

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
 

Forum statistics

Threads
1,148,085
Messages
5,744,743
Members
423,897
Latest member
anne2021

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
Top