Depreciation..... [SOLVED]

[James Perry]

Greetings!

Here's my Q on Depreciation (Depr), that needs 2 formulas in Excel.

I would like 2 buttons on worksheet #1.

One button is named Straight Line (SL) & the other is Declining Balance (DB).

If I click on the SL button, an excel formula for SL gets activated, and cells A2:M2 r filled with the following:

Asset Cost

Depr Yr1 thru Yr10

Total Depr.

Ending Asset Balance

If i click on DB button, an excel formula for DB gets activated & cells A2:M2 get replaced with a new set of numbers, (cell A2 remaining the same).

Keeping it simple-

Asset Cost = 100,000

Asset Life = 10 years

Depr Rate = 10%

Total Depr = 100,000 (SLM)

Ending Bal = ???


Cells A1:M1 r for the labels.


Thank u friends.

 

[Faseeh]

Hi James Perry,


You can use DB() and SL() method for this purpose, you can google for search this forum for further details.


Regards,

 

[James Perry]

• Hello friends..

Time is a key factor 4 all of us, but i managed2 solve the Straight Line Depreciation part using a simple macro.


Sub SLDepr()


ActiveCell.FormulaR1C1 = "100"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("C2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("D2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("E2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("F2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("G2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("H2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("I2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("J2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("K2").Select

ActiveCell.FormulaR1C1 = "=R2C1*10%"

Range("L2").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-10]:RC[-1])"

Range("M2").Select

ActiveCell.FormulaR1C1 = "=R2C1-R2C12"


End Sub


Then i have assigned a button 2 the macro naming it "Straight Line Depreciation".

I also have another button the says: Clear Numbers". That's, TWO buttons.???

Ur feedback is most welcome.

Best wishes,

James