How do I append 20 worksheets in single sheet.

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.

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

"Rahul" wrote:


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.

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...ur_First_Macro


Regards,
Ryan---

--
RyGuy


"Hardeep_kanwar" wrote:

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

"Rahul" wrote:


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.