VBA Module Function???
 

I have programmed the below function into a vba module:

Use a VBA function like the one below
call with
=bonus(b26,b27)

Function bonus(budget, actual)

Select Case (actual - budget)

Case -15 To -11
bonus = 1000
Case -10 To -4
bonus = 1500
Case -5 To -1
bonus = 1750
Case 0 To 4
bonus = 2000
Case 5 To 9
bonus = 2250
Case 10 To 14
bonus = 2500
Case 15 To 19
bonus = 3000
Case 20 To 24
bonus = 3250
Case 25 To 29
bonus = 3500
Case 30 To 34
bonus = 4000
Case 35 To 1000
bonus = 4500
End Select


End Function


Everything works fine, if I want to make another function like this that
wont interfere with the function already existing then how would i do this? I
tried opening up another module and changing the function name to usedbonus
and changing the numbers below but it says compile error and it messes with
the existing function in module 1. Can anyone help me???

VBA Module Function???
 

Can you post the code that you tried to use? You can put it in the same
module, but might be easier to maintain in a seperate one.
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"Hamed parhizkar" wrote:

I have programmed the below function into a vba module:

Use a VBA function like the one below
call with
=bonus(b26,b27)

Function bonus(budget, actual)

Select Case (actual - budget)

Case -15 To -11
bonus = 1000
Case -10 To -4
bonus = 1500
Case -5 To -1
bonus = 1750
Case 0 To 4
bonus = 2000
Case 5 To 9
bonus = 2250
Case 10 To 14
bonus = 2500
Case 15 To 19
bonus = 3000
Case 20 To 24
bonus = 3250
Case 25 To 29
bonus = 3500
Case 30 To 34
bonus = 4000
Case 35 To 1000
bonus = 4500
End Select


End Function


Everything works fine, if I want to make another function like this that
wont interfere with the function already existing then how would i do this? I
tried opening up another module and changing the function name to usedbonus
and changing the numbers below but it says compile error and it messes with
the existing function in module 1. Can anyone help me???

VBA Module Function???
 

This is what I put in module 2

Function usedbonus(budget, actual)

Select Case (actual - budget)

Case -14 To -8
usedbonus = 750
Case -7 To -1
usedbonus = 1000
Case 0 To 6
usedbonus = 1250
Case 7 To 13
usedbonus = 1750
Case 14 To 1000
usedbonus = 2250
End Select


End Function



"Hamed parhizkar" wrote:

I have programmed the below function into a vba module:

Use a VBA function like the one below
call with
=bonus(b26,b27)

Function bonus(budget, actual)

Select Case (actual - budget)

Case -15 To -11
bonus = 1000
Case -10 To -4
bonus = 1500
Case -5 To -1
bonus = 1750
Case 0 To 4
bonus = 2000
Case 5 To 9
bonus = 2250
Case 10 To 14
bonus = 2500
Case 15 To 19
bonus = 3000
Case 20 To 24
bonus = 3250
Case 25 To 29
bonus = 3500
Case 30 To 34
bonus = 4000
Case 35 To 1000
bonus = 4500
End Select


End Function


Everything works fine, if I want to make another function like this that
wont interfere with the function already existing then how would i do this? I
tried opening up another module and changing the function name to usedbonus
and changing the numbers below but it says compile error and it messes with
the existing function in module 1. Can anyone help me???

VBA Module Function???
 

A new function can be in the same module, the name must be different and the
value returned must be assigned to the function name e.g.

Function NewBonus(budget,actual)
Select Case (actual - budget)

Case -15 To -11
NewBonus = 1000
Case -10 To -4
NewBonus = 1500

End Select

--

Regards,
Nigel




"Hamed parhizkar" wrote in
message ...
I have programmed the below function into a vba module:

Use a VBA function like the one below
call with
=bonus(b26,b27)

Function bonus(budget, actual)

Select Case (actual - budget)

Case -15 To -11
bonus = 1000
Case -10 To -4
bonus = 1500
Case -5 To -1
bonus = 1750
Case 0 To 4
bonus = 2000
Case 5 To 9
bonus = 2250
Case 10 To 14
bonus = 2500
Case 15 To 19
bonus = 3000
Case 20 To 24
bonus = 3250
Case 25 To 29
bonus = 3500
Case 30 To 34
bonus = 4000
Case 35 To 1000
bonus = 4500
End Select


End Function


Everything works fine, if I want to make another function like this that
wont interfere with the function already existing then how would i do
this? I
tried opening up another module and changing the function name to
usedbonus
and changing the numbers below but it says compile error and it messes
with
the existing function in module 1. Can anyone help me???