Lists

  • Thread starter Thread starter J. Madden
  • Start date Start date
J

J. Madden

I have a multi page spreadsheet (one page for each client) each spreadsheet
has a 3 groups of columns in it Column A is Date, Column B is Amount,
Column C is Description.

On each row I enter the various data such as 1/1/05, $200, Transfer In.

Like I said I have one sheet for each client so that I can track each client
separtely.

My question is I would like to have all client combined onto one main
spreadsheet automatically. Can I do this somehow? Each client has a
different amount of rows of data on them.
 
J,

Copy/Paste them to a single sheet. You may want to add a column that
indicates the client. You can fill do that quickly with the Fill Handle as
you paste stuff in. There's a writeup on keeping data in a single sheet vs
multiple sheets you might want to peruse at www.smokeylake.com/excel. Go to
"Excel truths" and read "Data across multiple sheets."
 
I would probably have one database for all clients with a name or number
column to filter by using data>filer>autofilter but something like this
should get you going.

Sub putemtogether()
For Each ws In Sheets
dlr = Sheets("sheet1").Cells(Rows.Count, "a").End(xlUp).row + 1
slr = ws.Cells(Rows.Count, "a").End(xlUp).row
If ws.Name <> "Sheet1" Then ws.Range("a2:c" & slr).Copy
Sheets("sheet1").Range("a" & dlr)
Next
End Sub
 
Back
Top