If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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. |
Thread Tools | |
Display Modes | |
|
|