Calculation of monthly depreciation within limit of useful life (without VBA)

askall1000

Board Regular
Joined
Jan 3, 2019
Messages
58
Office Version
  1. 2016
Platform
  1. Windows
Hello All, I need help about depreciation calculation, there is a lot of rows to calculate depreciation in J column. What i want to try to if there is more than 12 months left for depreciation for 2021 according to purchase date i want to write 12 months, if less than 12 months i want to write that number of month in sample it should write 3 month. if useful life exceeded it should write zero. I did zero and twelve month but i couldn't did less than 12 months. And I don't want to use helper column and there are lot of cells that have different useful life and purchase dates.Thank you very much for your help in advance.

Sample Data:

Book4
ABCDEFGHIJKL
231.12.202031.12.202131.12.202131.12.2021
3Asset TypeLocationOffice UnitNew Asset CodeNew Asset DescriptionTotal ValuePurchase DateUseful Life (Month)Acc. Amortization 31.12.2020Depreciation&Amortization Expense (Month) 31.12.2021Depreciation&Amortization Expense 31.12.2021Acc. Amortization31.12.2021
4xxxxxxxxxxxxx2.000,0015.04.201660,001.900,000,000,001.900,00
Sheet1
Cell Formulas
RangeFormula
I3I3="Acc. Amortization" &" "&TEXT(I2,"gg.aa.yyyy")
J3J3="Depreciation&Amortization Expense (Month) "&TEXT(J2,"gg.aa.yyyy")
K3K3="Depreciation&Amortization Expense "&TEXT(K2,"gg.aa.yyyy")
L3L3="Acc. Amortization"&TEXT(L2,"gg.aa.yyyy")
I4I4=+IFERROR(ROUND(IF(DATEDIF(((EOMONTH(G4,-1)+1)),$I$2,"m")>=H4,F4,(DATEDIF((EOMONTH(G4,-1)+1),$I$2,"m")+1)*F4/H4),2),0)
J4J4=+IF(DATEDIF(G4,$K$2,"m")>=H4,0,IF(DATEDIF(G4,$K$2,"m")>=12,12,DATEDIF(G4,$K$2,"m")+1))
K4K4=+ROUND(F4/H4*J4,2)
L4L4=+I4+K4
 

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
Give this a try:
=IF(YEARFRAC(TODAY(),G4)*12>H4,"Zero",IF(ROUND(YEARFRAC(TODAY(),G4),2)&" months","12 months"))

NOTE: Column H will need to be a number and column G will need to be date format.
 
Upvote 0
Give this a try:
=IF(YEARFRAC(TODAY(),G4)*12>H4,"Zero",IF(ROUND(YEARFRAC(TODAY(),G4),2)&" months","12 months"))

NOTE: Column H will need to be a number and column G will need to be date format.
Thank you very much for your time and reply. But the result should be 3 months when i copy your formula it returns zero.
 
Upvote 0
check your values in column H and G to ensure they're in the correct format. I had to overwrite them with actual number format and date format values.
 
Upvote 0
April 15, 2016 to today is approx 68 months...which exceeds your useful life, hence the "zero"
 
Upvote 0
Rather than YearFrac, you could use DateDif formula; however, it returns the same value...68 months.
 
Upvote 0
April 15, 2016 to today is approx 68 months...which exceeds your useful life, hence the "zero"
Maybe my used formula in sample not clear, sorry for that but calculation is according to this:

April 15, 2016 to December 31=9 months
2017 to 2020 :12*4=48 months
total: 57 months
and for 2021 i need to depreciate 3 months more
so there should be 3 months but if useful life depreciated like if it is 68 no depreciation.
 
Upvote 0
Maybe my used formula in sample not clear, sorry for that but calculation is according to this:

April 15, 2016 to December 31=9 months
2017 to 2020 :12*4=48 months
total: 57 months
and for 2021 i need to depreciate 3 months more
so there should be 3 months but if useful life depreciated like if it is 68 no depreciation.
One note i would like to add: my calculation need to be as of december 31, 2021. not until today.
 
Upvote 0
Hello All, I come up with formula, I am sharing it for anybody in the future would be utilize somehow. And if anybody has shorter or easier alternative very very much appreciated.

Rapor_Metrohm 2020 Sabit Kıymet.xlsx
BCDEFGH
231.12.202031.12.202131.12.202131.12.2021
3Total ValuePurchase DateUseful Life (Month)Acc. Amortization 31.12.2020Depreciation&Amortization Expense (Month) 31.12.2021Depreciation&Amortization Expense 31.12.2021Acc. Amortization31.12.2021
48.474,4801.06.2019602.683,59121.694,904.378,49
52.650,0023.07.201460,002.650,0000,002.650,00
61.607,4401.04.201660,001.527,07380,371.607,44
72.000,0001.03.202160,000,0010333,33333,33
Sheet1 (2)
Cell Formulas
RangeFormula
E3E3="Acc. Amortization" &" "&TEXT(E2,"gg.aa.yyyy")
F3F3="Depreciation&Amortization Expense (Month) "&TEXT(F2,"gg.aa.yyyy")
G3G3="Depreciation&Amortization Expense "&TEXT(G2,"gg.aa.yyyy")
H3H3="Acc. Amortization"&TEXT(H2,"gg.aa.yyyy")
E4:E7E4=+IFERROR(ROUND(IF(DATEDIF(((EOMONTH(C4,-1)+1)),$E$2,"m")>=D4,B4,(DATEDIF((EOMONTH(C4,-1)+1),$E$2,"m")+1)*B4/D4),2),0)
F4:F7F4=+IF(YEAR(C4)>YEAR($E$2),DATEDIF(C4,$F$2,"m")+1,IF(AND(YEAR(C4)<=YEAR($E$2),DATEDIF(C4,$E$2,"m")>=D4),0,IF(AND(D4-DATEDIF(C4,$E$2,"m")+1<=12,D4-DATEDIF(C4,$E$2,"m")+1>0),D4-DATEDIF(C4,$E$2,"m")-1,12)))
G4:G7G4=+ROUND(B4/D4*F4,2)
H4:H7H4=+E4+G4
 
Upvote 0

Forum statistics

Threads
1,224,823
Messages
6,181,170
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top