Argument in a Sub Procedure

[mdinardi]

Hello there,

I searched through the questions and didn't find any question regarding arguments in sub procedures.

I am trying to write a code that will require a number for a variable (i), but if no number is typed in, it will use its default value.

Sub Ende(Optional Teste As Long = 30000000)
Teste = Application.InputBox("Defina o CEP: ", "Endereço")
MsgBox "O CEP é: " & Teste

End Sub

but nothing happens when I press F5 or F8.
When I remove the arguments, it runs normally.

What am I doing wrong here?

Best Regards,
Marcos.

 

[puru.sve]

when your supply argument in sub procedure then you need to call this procedure from other sub procedure. You cant run this procedure directely.

and in your function your are passing taste with value 30000000 .. which isnot used in your sub procedure so you may remove it.

 

[Jaymond Flurrie]

Hello there,

I searched through the questions and didn't find any question regarding arguments in sub procedures.

I am trying to write a code that will require a number for a variable (i), but if no number is typed in, it will use its default value.

Sub Ende(Optional Teste As Long = 30000000)
Teste = Application.InputBox("Defina o CEP: ", "Endereço")
MsgBox "O CEP é: " & Teste

End Sub

but nothing happens when I press F5 or F8.
When I remove the arguments, it runs normally.

What am I doing wrong here?

Best Regards,
Marcos.

I think that you just can't drive it from inside itself. Try to add there:

Sub testende()
Ende 3000000
End Sub

and see what happens.

 

[Jaymond Flurrie]

and in your function your are passing taste with value 30000000 .. which isnot used in your sub procedure so you may remove it.

or make an if condition

if Teste <> 30000000 then
Teste = Application.InputBox("Defina o CEP: ", "Endereço")
endif

MsgBox "O CEP é: " & Teste

 

[GTO]

I am ignorant of the language, but as pointed out, you cannot step thru directly. You can call w/o supplying an arg for the parameter, like:

Sub CallIt()
Call Ende
End Sub

 

[mdinardi]

Hi Guys,

Thanks for your answers.
I didn't know I couldn't run a sub procedure after adding arguments to it. Using another sub procedure to run it worked just fine.

Thank you all.

Best Regards,
Marcos.