Hi Phani Kumar,
This macro has a limitation. All sheets in the active workbook must
have same number of headers and same name. Try with some sample sheet
with this kind of data. Even if a single sheet is different from
others than this won't work.
Regards
Ashish Jain
On Apr 3, 11:40 pm, Kumar <phanikumar...@gmail.com> wrote:
> I have an Macro Which Merges Different Sheets in to a Master Sheet..
> But i
> have a Problem with the Macro that its not ,Merging all the Sheets
> and
> Complete Data Range.. So if any One Could help me.. it would be
> Greatly
> Appreciated....
> My Macro as Follows:
>
> Sub CopyRangeFromMultiWorksheets()
> Dim sh As Worksheet
> Dim DestSh As Worksheet
> Dim Last As Long
> Dim CopyRng As Range
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'Delete the sheet "RDBMergeSheet" if it exist
> Application.DisplayAlerts = False
> On Error Resume Next
> ActiveWorkbook.Worksheets("RDBMergeSheet").Delete
> On Error GoTo 0
> Application.DisplayAlerts = True
>
> 'Add a worksheet with the name "RDBMergeSheet"
> Set DestSh = ActiveWorkbook.Worksheets.Add
> DestSh.Name = "RDBMergeSheet"
>
> 'loop through all worksheets and copy the data to the DestSh
> For Each sh In ActiveWorkbook.Worksheets
> If sh.Name <> DestSh.Name Then
>
> 'Fill in the range that you want to copy
> Set CopyRng = sh.UsedRange
>
> 'This example copies values/formats, if you only
> want to
> copy the
> 'values or want to copy everything look at the example
> below
> this macro
> CopyRng.Copy DestSh.Cells(Last + 1, "A")
>
> End If
> Next
>
> ExitTheSub:
>
> Application.Goto DestSh.Cells(1)
>
> 'AutoFit the column width in the DestSh sheet
> DestSh.Columns.AutoFit
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
> End Sub
>
> Was this post helpful to you?
>
> Why should I rate a post?
>
> Expand AllCollapse All
>
> Manage Your Profile |Contact us
> © 2009 Microsoft Corporation. All rights reserved. Contact Us |Terms
> of Use |Trademarks |Privacy Statement
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
