ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA Code Activates a workbook only sometimes (https://www.excelbanter.com/excel-programming/356593-vba-code-activates-workbook-only-sometimes.html)

GusEvans

VBA Code Activates a workbook only sometimes
 
Coded a relatively complex program. When I execute the following -
Workbooks("ACT-Reports.xls").Worksheets("Reports").Activate
It was working for a few weeks then the only way to do the same thing became -
For Each bkTempBooKxx In Workbooks
If bkTempBooKxx.Name = "ACT-Reports.xls" Then
bkTempBooKxx.Activate
For Each shtWork In Worksheets
If shtWork.Name = "Reports" Then
shtWork.Activate
Exit For
End If
Next
Exit For
End If
Next
Set bkACTRpt = ActiveWorkbook
Don't understand????
--
Thanks for any suggestions,
Gus Evans

Tom Ogilvy

VBA Code Activates a workbook only sometimes
 
You can't activate a sheet in a workbook which is not active. So you can go
either way

Workbooks("ACT-Reports.xls").Activate
Workbooks("ACT-Reports.xls").Worksheets("Reports").Activate

or

Application.Goto Workbooks("ACT-Reports.xls") _
.Worksheets("Reports").Range("A1")


But you don't need to loop to do it.
--
Regards,
Tom Ogilvy


"GusEvans" wrote in message
...
Coded a relatively complex program. When I execute the following -
Workbooks("ACT-Reports.xls").Worksheets("Reports").Activate
It was working for a few weeks then the only way to do the same thing

became -
For Each bkTempBooKxx In Workbooks
If bkTempBooKxx.Name = "ACT-Reports.xls" Then
bkTempBooKxx.Activate
For Each shtWork In Worksheets
If shtWork.Name = "Reports" Then
shtWork.Activate
Exit For
End If
Next
Exit For
End If
Next
Set bkACTRpt = ActiveWorkbook
Don't understand????
--
Thanks for any suggestions,
Gus Evans




GusEvans

VBA Code Activates a workbook only sometimes
 

--
Gus Evans


"Tom Ogilvy" wrote:

You can't activate a sheet in a workbook which is not active. So you can go
either way

Workbooks("ACT-Reports.xls").Activate
Workbooks("ACT-Reports.xls").Worksheets("Reports").Activate

or

Application.Goto Workbooks("ACT-Reports.xls") _
.Worksheets("Reports").Range("A1")

The second command -
Workbooks("ACT-Reports.xls").Worksheets("Reports").Activate
and the -
Application.Goto Workbooks("ACT-Reports.xls") _
.Worksheets("Reports").Range("A1")
Both caused a 32809 error!

I can't figure it out either!

Gus Evans

GusEvans

VBA Code Activates a workbook only sometimes
 
Another comment -

I opened ACT-Reports.xls, then opened Sheet1.xls. went back to
ACT-Reports.xls, put the code in a module, then started stepping thru the
code, made Sheet1.xls the active workbook, and continued stepping thru the
code - got the 32809 error.

Gus Evans


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

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