Runtime error '3' : Exit without Gosub

yogeshtalks · Oct 6th 2011

Hi all,

I am trying to use functions in VBA.

I have a simple fundtion which does some operations. At the end of function, I want the code to resume from the next line of the code where I called this function from. I am getting the error message:
" Runtime error '3'
Exit without GoSub"

Can anyone help me?
The following is the code:

Code

Dim j As Integer


Sub try()
j = 11
Calc (void)
j = 12
Calc (void)
j = 13
Calc (void)
j = 14
Calc (void)


End Sub


Function Calc()


//Operations performed//


j = j + 5
Return
End Function

Display More

I am new to using functions. So, pardon me if i am not using the correct syntax. Please enlighten me.

Thanks

Cheers
Yogesh

**cytop** · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

Take out the 'Return' - the code will implicitly return to the calling procedure.

Also, please have another read of the rules you agreed to when you joined the forum (http://www.ozgrid.com/forum/announcement.php?f=8) - code must be bracketed with Code tags, not than Quote tags.

Please edit you post and replace [noparse]

Quote
[/noparse] with [noparse]
Code
[/noparse][/b] and [noparse][/quote][/noparse] with [b][noparse]
[/noparse][/b].

yogeshtalks · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

Thanks for the reply.

But when i remove the code, i get the error message:
"Runtime error '13' - Type mismatch"

and sorry about the tags i used. Will be more careful next time.

Thanks

Cheers:
Yogesh

**cytop** · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

Post your code -

Code

Calc(Void)

means nothing in VBA - I don't know if you're just using that as a sample or not so need the code to be absolutely sure what you're doing/trying to do.

Also, while it's appreciated you'll be more careful in future - please edit your first post in this thread to comply with the rules...

trunten · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

Code

Dim j As Integer




Sub try()
    j = 11
    Calc
    j = 12
    Calc
    j = 13
    Calc
    j = 14
    Calc
End Sub




Function Calc()
    j = j + 5
End Function

Display More

yogeshtalks · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

I use Calc(void) because i am not passing any arguments to the function. The function is just a block of code which performs some basic operations in excel like copying and pasting and stuff. I am using this function because i want the same operations to be performed at various cell ranges in same sheet.

I am not sure how to go about calling a function without passing any arguements. Thats why i used void.

Hope you understand.

Thanks

Cheers
Yogesh

**cytop** · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

There's no such type as VOID in VBA - call the function without parameters as in Truntens reply if the variable j is scoped to the module or is Public

More properly, it should be written as:

Code

Sub try() 
'//     j = 11
'// Just display the return after passing 11 
    MsgBox Calc(11), vbInformation, "Result"
'//    j = 12 
'// Same for 12
    MsgBox Calc(12), vbInformation, "Result"


'// and so on
End Sub 
 
 
Function Calc(iParameter as integer) as Integer
    Calc = iParameter + 5
End Function

Display More

trunten · Oct 6th 2011

Re: Runtime error '3' : Exit without Gosub

Edit: cytop beat me to it.

yogeshtalks · Oct 7th 2011

Re: Runtime error '3' : Exit without Gosub

Oh thanks a lot. I understood where i was going wrong.

I was using ' Calc() ' to call the function. Its simply ' Calc ' to call the function. I did not know this.

Now, its working all right.

Cheers
Yogesh

Runtime error '3' : Exit without Gosub

Participate now!

Share