You can use a user defined function.
Paste the following into a new module sheet in the VBA editor (Alt F11). (Insert - Module)
Function EBAyCommission(Cell As Range)
PriceRemaining = Cell.Value
Do While PriceRemaining > 0
Select Case PriceRemaining
Case PriceRemaining > 300
EBAyCommission = 0.015 * (PriceRemaining - 300)
PriceRemaining = 300
Case Is > 200
EBAyCommission = EBAyCommission + (0.02 * (PriceRemaining - 200))
PriceRemaining = 200
Case Is > 100
EBAyCommission = EBAyCommission + (0.025 * (PriceRemaining - 100))
PriceRemaining = 100
Case Is > 30
EBAyCommission = EBAyCommission + (0.03 * (PriceRemaining - 30))
PriceRemaining = 30
Case Else
EBAyCommission = EBAyCommission + (0.0525 * (PriceRemaining))
PriceRemaining = 0
End Select
Loop
End Function
You should then have a new function called EBAyCommission available on your spreadsheet..
Bookmarks