Vba to combine Worksheets from 2 different workbooks:

[pedie]

Hi, I need help with Vba to combine Worksheets from 2 different workbooks:
From Book1.xlsm, i need sheets("Data") and sheets("Summary")
Summary sheet has formulas calculated using Data sheet.
Likewise from Book2.xlsm i need sheets("Daily Expenses") and sheets("Daily Incomes") and sheets("T_Summary")
I want to club this 5 worksheets by creating new workbook called CombinedWb.xlsm.


Thanks in advance for helping!

 

[pedie]

Can someone please help me with this?
maybe a link...or a code

Thanks again and sorry for bumping!

 

[Domenic]

Try something like this...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] CombineWorkbooks()

    [color=darkblue]Dim[/color] wkbDest [color=darkblue]As[/color] Workbook
    [color=darkblue]Dim[/color] wkbBook1 [color=darkblue]As[/color] Workbook
    [color=darkblue]Dim[/color] wkbBook2 [color=darkblue]As[/color] Workbook
    
    Application.ScreenUpdating = [color=darkblue]False[/color]
    
    [color=darkblue]Set[/color] wkbDest = Workbooks.Add(xlWBATWorksheet)
    
    [color=darkblue]Set[/color] wkbBook1 = Workbooks("Book1.xlsm")
    [color=darkblue]Set[/color] wkbBook2 = Workbooks("Book2.xlsm")
    
    wkbBook1.Sheets(Array("Data", "Summary")).Copy after:=wkbDest.Worksheets(wkbDest.Worksheets.Count)
    
    wkbBook2.Sheets(Array("Daily Expenses", "Daily Incomes", "T_Summary")).Copy after:=wkbDest.Worksheets(wkbDest.Worksheets.Count)
    
    Application.DisplayAlerts = [color=darkblue]False[/color]
    wkbDest.Worksheets(1).Delete
    Application.DisplayAlerts = [color=darkblue]True[/color]
    
    Application.ScreenUpdating = [color=darkblue]True[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[pedie]

Domenic, thank you soo much!
This is what I want...thanks thanks!!!

 

[Domenic]

You're very welcome! Glad I could help!