Copying multiple cells out of multiple worksheets at same time.

  • Thread starter Thread starter tom
  • Start date Start date
T

tom

In Excel 2003 I was wondering if it is possible to copy multiple cells A1:O75
in multiple worksheets (sheet1, sheet2, sheet3, etc) and pasting them
Consecutively into one work sheet (all records)?

Thanks for the help.
Tom
 
One at a time with a one click looping macro

for each ws in sheets.count

ds=Sheets("destinationsheetnamehere")
if ws.name<>ds then
lr=ds.cells(rows.count,1).end(xlup).row+1
ws.range("a1:o75").copy ds.cells(lr,1)
end if

next
 
Back
Top