PDA

View Full Version : Need to copy multiple lists to one sheet



kristin
12-11-2007, 10:31 AM
Ok so I was put in charge of a new commission program at work and I have developed the Monthly tracking sheets but my boss wants a yearly report of every job sold. I put the sheet up below and have January done. I need to take all the jobs that will end up in the monthly sheet list (could be 2 could be 20 it will vary month to month) and copy them to the List I have set up in the tracking sheet. Any help would be greatly appreciated. Password to get in is "kristin"

figment
12-11-2007, 11:24 AM
i am makeing the assumtion that all your month will be set up in exactly the same format

7481

mdmackillop
12-11-2007, 11:29 AM
Hi kristin
Welcome to VBAX
This will copy all sheets to the last sheet. If you need to refine the copy area, this can be developed to suit
Regards
MD


Sub CollectData()
For i = 1 To Sheets.Count - 1
Sheets(i).UsedRange.Copy Sheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp).Offset(2)
Next
End Sub