ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VB to copy a sheet to active workbook (https://www.excelbanter.com/excel-programming/372653-vbulletin-copy-sheet-active-workbook.html)

Darin Kramer

VB to copy a sheet to active workbook
 
Howdie

I need some vb that will help solve the following...

Scenario - I got two files open

File 1 - entitled Master with sheet called final in it (always be this
set up of file and sheet name)
File 2 - VARIABLE name, ie it will change, but it can be the active book
when I run the macro.

What I need is to copy the sheet master from file 1 into file 2.

Thanks!!!!

Regards

Darin




*** Sent via Developersdex http://www.developersdex.com ***

Ron de Bruin

VB to copy a sheet to active workbook
 
Hi Darin

Test this one
With file 2 active

Dim Wb1 As Workbook
Dim Wb2 As Workbook
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks("Master.xls")
Wb2.Sheets("final ").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Darin Kramer" wrote in message ...
Howdie

I need some vb that will help solve the following...

Scenario - I got two files open

File 1 - entitled Master with sheet called final in it (always be this
set up of file and sheet name)
File 2 - VARIABLE name, ie it will change, but it can be the active book
when I run the macro.

What I need is to copy the sheet master from file 1 into file 2.

Thanks!!!!

Regards

Darin




*** Sent via Developersdex http://www.developersdex.com ***




Ron de Bruin

VB to copy a sheet to active workbook
 
I see I have a space after the sheet name "final "
Remove it before you test it

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message ...
Hi Darin

Test this one
With file 2 active

Dim Wb1 As Workbook
Dim Wb2 As Workbook
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks("Master.xls")
Wb2.Sheets("final ").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Darin Kramer" wrote in message ...
Howdie

I need some vb that will help solve the following...

Scenario - I got two files open

File 1 - entitled Master with sheet called final in it (always be this
set up of file and sheet name)
File 2 - VARIABLE name, ie it will change, but it can be the active book
when I run the macro.

What I need is to copy the sheet master from file 1 into file 2.

Thanks!!!!

Regards

Darin




*** Sent via Developersdex http://www.developersdex.com ***






Jim Thomlinson

VB to copy a sheet to active workbook
 
This code assumes that the code is running in th atcive workbook...

Workbooks("Master.xls").sheets("Final").Copy _
After:= ThisWorkbook.Sheets(1)

This code assumes that the code is running in Master.xls...
Thisworkbook.Sheets("Final").copy _
After:= Activeworkbook.Sheets(1)
--
HTH...

Jim Thomlinson


"Darin Kramer" wrote:

Howdie

I need some vb that will help solve the following...

Scenario - I got two files open

File 1 - entitled Master with sheet called final in it (always be this
set up of file and sheet name)
File 2 - VARIABLE name, ie it will change, but it can be the active book
when I run the macro.

What I need is to copy the sheet master from file 1 into file 2.

Thanks!!!!

Regards

Darin




*** Sent via Developersdex http://www.developersdex.com ***


Darin Kramer

VB to copy a sheet to active workbook
 


Bedankt Ron - works like a charm!

*** Sent via Developersdex http://www.developersdex.com ***


All times are GMT +1. The time now is 07:47 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com