Daily report - sum of coloumn transfered to historical data each day

[Dane1980]

Hi

I run a report once each day based on a macro which gives me a list of all of my open orders. Now, in column H, I have the qty. - I would like to have the total sum of this column (Appr. 2000 lines) inserted in a separate sheet where a row or column should be added daily (When i click a button) with the total qty of open orders (Sum of column H) and the current date. When this update have been made i will delete the daily report and the next day i will run the macro again and i would want to add this days total sum of open orders in a column/row next to the one of the previous day and so forth.

I hope some can help me out - plese let me know if I need to be more specific about something.

 

[Dane1980]

Hi again

I would really appreciate if someone could help me along with my problem above. I am not an expert in excel at all and i just need this small (i hope) addition to make my spreadsheet perfect.

 

[crimson_b1ade]

Try this one on for size. Paste this code into a vba module. You can then create a button and assign this macro to that button or you can just run it from the tool bar. Here I"m using Sheet1 as the historical page and sheet 2 as the page that needs to be summed (col H). You can of course change it to whatever you so desire.

Sub History()

OrderQty = Application.WorksheetFunction.Sum(Sheets("Sheet2").Columns("H:H"))

colSize = Application.WorksheetFunction.CountA(Sheets("Sheet1").Columns("A:A"))

Sheets("Sheet1").Range("A" & colSize + 1).Value = Now
Sheets("Sheet1").Range("B" & colSize + 1).Value = OrderQty


End Sub