ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA code to always select next available new workbook (https://www.excelbanter.com/excel-programming/348934-vba-code-always-select-next-available-new-workbook.html)

wayliff[_3_]

VBA code to always select next available new workbook
 

Hi

I have a macro that adds a new workbook and copies two sheets to it
However the macro crashes if the new workboox is not book1 and it i
kind of a bummer.
I have not been able to figure how to code something to just look a
the newest workbook and copying the stuff...without vba looking a
book1 as the new workbook...just whatever is available.

Here's what I currently have...help appreciated.

Workbooks.Add
Windows("TC Report.xls").Activate
Sheets(Array("ST Report", "EF Report")).Select
Sheets("EF Report").Activate
Sheets(Array("ST Report", "EF Report")).Cop
Befo=Workbooks("Book1").Sheets _
(1)
Windows("TC Report.xls").Activate
Sheets("ST Report").Selec

--
waylif
-----------------------------------------------------------------------
wayliff's Profile: http://www.excelforum.com/member.php...fo&userid=2986
View this thread: http://www.excelforum.com/showthread.php?threadid=49603


Dick Kusleika[_4_]

VBA code to always select next available new workbook
 
wayliff wrote:

Workbooks.Add
Windows("TC Report.xls").Activate
Sheets(Array("ST Report", "EF Report")).Select
Sheets("EF Report").Activate
Sheets(Array("ST Report", "EF Report")).Copy
Befo=Workbooks("Book1").Sheets _
(1)
Windows("TC Report.xls").Activate
Sheets("ST Report").Select


Dim wb As Workbook

Set wb = Workbooks.Add

Workbooks("TC Report.xls").Sheets(Array("ST Report", "EF Report")).Copy _
Befo=wb.Sheets(1)


--
Dick Kusleika
MVP-Excel
www.dailydoseofexcel.com



wayliff[_4_]

VBA code to always select next available new workbook
 

Thank you so much for your help...

This is where I can see that I have way to go in code efficiency an
knowledge..

--
waylif
-----------------------------------------------------------------------
wayliff's Profile: http://www.excelforum.com/member.php...fo&userid=2986
View this thread: http://www.excelforum.com/showthread.php?threadid=49603


Dick Kusleika[_4_]

VBA code to always select next available new workbook
 
wayliff wrote:
Thank you so much for your help...


You're welcome.

This is where I can see that I have way to go in code efficiency and
knowledge...


Well, you're on your way. Here's some more info on selecting and
activating:

http://www.dicks-blog.com/archives/2...-and-activate/

--
Dick Kusleika
MVP-Excel
www.dailydoseofexcel.com




All times are GMT +1. The time now is 01:40 AM.

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