Open Both Sheets and Run This Macro to Get Desired Result :
Sub Seperate()
Dim Wbopen As Workbook
Dim wb As Workbook
Set wb = Workbooks.Add
ActiveWorkbook.SaveAs "Consolidate"
wb.Sheets.Add.Name = "BT"
wb.Sheets.Add.Name = "BT-1"
For Each Wbopen In Application.Workbooks
If Wbopen.Name <> "Consolidate" Then
For Each sh In Wbopen.Sheets
If sh.Name = "BT" Then
sh.UsedRange.Copy
wb.Activate
wb.Sheets("BT").Activate
ActiveSheet.Range("A" &
ActiveSheet.UsedRange.Rows.Count + 1).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If sh.Name = "BT-1" Then
sh.UsedRange.Copy
wb.Activate
wb.Sheets("BT-1").Activate
ActiveSheet.Range("A" &
ActiveSheet.UsedRange.Rows.Count + 1).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next
End If
Next
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of neil johnson
Sent: Friday, July 22, 2011 8:04 PM
To: excel-macros
Subject: $$Excel-Macros$$ Question regarding Sheets
Hi all,
I have two sheets . in these sheets i have data in two tabes name BT & BT-1
I want to consolidate respectively tab. (BT from sheets 1 and BT (Tabs) from
sheet 2 both data should goes in another new workbooks with sheet name(BT)
and same as BT -1 . How ?
Regards,
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
