How do I append 20 worksheets in single sheet.

[Rahul]

Dear Team,

I am having 20 worksheets which contains my daily reports.
I need to all these worksheets into one singlw worksheet. Means append one
by one.
If there is any function or Macro. I am having Excel 2003/2007.
Kindly help me.

Reagdrs,

Rahul.

 

[Hardeep_kanwar]

If all the sheets has same format then you can use this Macro


May be this help this Macro

Sub newsummarysheet()
Sheets.Add
ActiveSheet.Name = "Summary"
For Each ws In ActiveWorkbook.Sheets
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = ws.Cells(Rows.Count, "a").End(xlUp).Row
If ws.Name <> "Summary" Then
ws.Rows("1:" & slr).Copy Cells(dlr, 1)
End If
Next ws
End Su

 

[ryguy7272]

I think this will do what you want:
http://www.rondebruin.nl/copy2.htm

If you don't know anything about VA take a look at this:
http://www.anthony-vba.kefra.com/vba/vbabasic1.htm#Creating_Your_First_Macro


Regards,
Ryan---