AUTOSUM Macro

[Johnny Thunder]

Hello Friends,



I come with a question regarding a macro I am trying to create.

I have a spreadsheet that is column A:S.

Column A = Account Number
Column R = Credit
Column S = Debit

Each time the spreadsheet encounters a new account there is a blank row that divides the accounts. I am trying to write a macro that will look too column R & S and sum the amounts above it and when it encounters a blank line begin a new sum.


What I am trying to accomplish is to have all the blank rows showing the sum for each debit/credit for one specific account. I am going to use this for an upload file.

Any help will be appreciated.

Excel 2003

 

[AlphaFrog]

There is the Subtotal feature under the Data menu that is basically designed to do just this.

It doesn't really need the blank rows in between the accounts . It will insert the subtotals each time there is a change in the accounts in column A.

• Select all your data in A:S
• Select from the menu Data\ Subtotals
  • At each change in: Column A
  • Use function: Sum
  • Add subtotal to: Columns R and S
  • OK

If you want to delete the blank rows.

• Select column A
• Select from the menu Data\ Filter\ Autofilter
• Select from the drop-down list in A1: Blanks
• Select all the fitered blank rows and delete them
• Select Autofilter from the menu again to turn it off.

 

[Johnny Thunder]

I will give this a shot, thanks for all your help!