VBA code calculate commissions

[diney06]

Status B & C: commission + 3% bonus ; Status A: commission only

Status A is calculating correctly, but B & C is not. I'd appreciate any help with this.


If StatusCode <> "A" Then
Bonus = 0.03
Commission = CommissionRate * Bonus * SalesAmount
Else
Bonus = 1
Commission = CommissionRate * SalesAmount
End If

Range("D" & nRow).Value = Commission

Continue = MsgBox("Input another line?", vbYesNo, "Continue?")
If Continue = vbYes Then Commissions

 

[Jerry Sullivan]

Hi and Welcome to the Board,

The formula would depend on whether the 3% bonus is to be applied to the total of the Sales Amount and Commission or just the Sales Amount.

If it's both, the formula would be:
Bonus = 1.03
Commission = CommissionRate * Bonus * SalesAmount

If the bonus applies only to the Sales Amount, the formula would be:
Bonus = 0.03
Commission = (CommissionRate + Bonus) * SalesAmount

 

[diney06]

Thank you! I thought it was only applying to the SalesAmount but Both is what I was actually needing. Much appreciated!