Autosum function in code

[Art_Excel]

Hello - I am trying to autosum with the help of code.
I want to autosum of Jan, Feb, Mar, Total Expenses with the help of code.


Attached file

[jindon]

Try

Please Login or Register  to view this content.

[Art_Excel]

Thank you so much sir.

Sir, how to autosum of TOTAL EXPENSES as well ?

Attach image :

Attachment 798828

[jindon]

Change -3 to -2

Please Login or Register  to view this content.

[Art_Excel]

Thank you so much sir.

Sir, please explain If condition code ?

like :

If ws.[a1] = "Division" Then
With ws.[a1].CurrentRegion
x = ws.Evaluate("max(if(" & .Columns(1).Address & "<>"""",row(" & .Address & ")))")

[jindon]

My guess was that you may have other worksheet(s) unrelated to this process, so the code will look at A1 ad if A1 is "Division" then add a row to sum.

Just my guess...

[Art_Excel]

Yes, you are correct. It autosum of all worksheets.

Thank you so much sir. it is very helpful.

[jindon]

You are welcome and thanks for the rep.