Hello,

I have a userform, and buttons on it...

I have a module, called lnCalculate

And functions..

ln1Calculate
ln2Calculate
...


When i press first button it makes;

a = 6

total = a+b+c+d+e

and second;

b= 7

total=a+b+c+d+e

so in this second step, I want to get a value, 13

But.. I got 7. What i guess is, after finishing first function, all data is
cleared

a,b,c,d,e are identified as double in the forms module...

I do not want to loose the values for a, b, c, d, e.. I want them to save
their values even they are used in different functions or different modules.

I just want them to clear their values only when i want (e.g a=0, b=0.. )

So how must define them so they will not loose their values?

thanks in advance,

One way is to dec;lare the variables globally (i.e., outside of the
functions).

Option Explicit

Dim a As Double, b As Double, c As Double, d As Double, e As Double

Function ln1Calculate()
a = 6
ln1Calculate = a + b + c + d + e
Debug.Print ln1Calculate 'yields 6
End Function

Function ln2Calculate()
b = 7
ln2Calculate = a + b + c + d + e
Debug.Print ln2Calculate 'yields 13
End Function
__________________________________________________ ___________________
"SupperDuck" wrote in message
...
Hello,

I have a userform, and buttons on it...

I have a module, called lnCalculate

And functions..

ln1Calculate
ln2Calculate
..


When i press first button it makes;

a = 6

total = a+b+c+d+e

and second;

b= 7

total=a+b+c+d+e

so in this second step, I want to get a value, 13

But.. I got 7. What i guess is, after finishing first function, all data
is
cleared

a,b,c,d,e are identified as double in the forms module...

I do not want to loose the values for a, b, c, d, e.. I want them to save
their values even they are used in different functions or different
modules.

I just want them to clear their values only when i want (e.g a=0, b=0.. )

So how must define them so they will not loose their values?

thanks in advance,

Hello...

Not working...

I am using this variables in different modules. Different functions in
different modules...

I do not know why not working :(


"Vasant Nanavati" wrote:

One way is to dec;lare the variables globally (i.e., outside of the
functions).

Option Explicit

Dim a As Double, b As Double, c As Double, d As Double, e As Double

Function ln1Calculate()
a = 6
ln1Calculate = a + b + c + d + e
Debug.Print ln1Calculate 'yields 6
End Function

Function ln2Calculate()
b = 7
ln2Calculate = a + b + c + d + e
Debug.Print ln2Calculate 'yields 13
End Function
__________________________________________________ ___________________
"SupperDuck" wrote in message
...
Hello,

I have a userform, and buttons on it...

I have a module, called lnCalculate

And functions..

ln1Calculate
ln2Calculate
..


When i press first button it makes;

a = 6

total = a+b+c+d+e

and second;

b= 7

total=a+b+c+d+e

so in this second step, I want to get a value, 13

But.. I got 7. What i guess is, after finishing first function, all data
is
cleared

a,b,c,d,e are identified as double in the forms module...

I do not want to loose the values for a, b, c, d, e.. I want them to save
their values even they are used in different functions or different
modules.

I just want them to clear their values only when i want (e.g a=0, b=0.. )

So how must define them so they will not loose their values?

thanks in advance,

What is the purpose of using different modules?
__________________________________________________ ______________________

"SupperDuck" wrote in message
...
Hello...

Not working...

I am using this variables in different modules. Different functions in
different modules...

I do not know why not working :(


"Vasant Nanavati" wrote:

One way is to dec;lare the variables globally (i.e., outside of the
functions).

Option Explicit

Dim a As Double, b As Double, c As Double, d As Double, e As Double

Function ln1Calculate()
a = 6
ln1Calculate = a + b + c + d + e
Debug.Print ln1Calculate 'yields 6
End Function

Function ln2Calculate()
b = 7
ln2Calculate = a + b + c + d + e
Debug.Print ln2Calculate 'yields 13
End Function
__________________________________________________ ___________________
"SupperDuck" wrote in message
...
Hello,

I have a userform, and buttons on it...

I have a module, called lnCalculate

And functions..

ln1Calculate
ln2Calculate
..


When i press first button it makes;

a = 6

total = a+b+c+d+e

and second;

b= 7

total=a+b+c+d+e

so in this second step, I want to get a value, 13

But.. I got 7. What i guess is, after finishing first function, all
data
is
cleared

a,b,c,d,e are identified as double in the forms module...

I do not want to loose the values for a, b, c, d, e.. I want them to
save
their values even they are used in different functions or different
modules.

I just want them to clear their values only when i want (e.g a=0,
b=0.. )

So how must define them so they will not loose their values?

thanks in advance,