Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 13
Default 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.



  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 103
Default How do I append 20 worksheets in single sheet.

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.



  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 2,836
Default How do I append 20 worksheets in single sheet.

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.



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Append Excel Sheet from constantly updating delimited text file Ker G Setting up and Configuration of Excel 1 April 8th 08 09:33 PM
Printing single pages from multiple worksheets in a single print job [email protected] Excel Discussion (Misc queries) 2 April 27th 07 06:11 PM
Append worksheets together in one bioyyy Excel Discussion (Misc queries) 1 October 14th 05 07:10 AM
Append the data given in diff sheets of an Excel File to one sheet sansk_23 Excel Worksheet Functions 3 May 10th 05 02:00 AM
is it possible to use F9 to manually calculate in a single sheet or single workbook? Hersbt Excel Discussion (Misc queries) 2 December 29th 04 04:42 PM


All times are GMT +1. The time now is 12:40 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"