Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 4200
  • Last Modified:

Activate Workbook and Worksheet with Wildcard

I need to activate a workbook and worksheet that will already be open. I have code that works for this for the specific name, but the date at the beginning will change every month, so I want code that will use a wildcard for the date and select the workbook and worksheet for activation just using the last part of the name.

Example:
This is what works now:
Workbooks("2011_09_Name_of_Workbook.xlsm").Sheets("2011_09_Worksheet_Name").Activate

This is the basic idea of what I would like to work:
Workbooks("*_Name_of_Workbook.xlsm").Sheets("*_Worksheet_Name").Activate

Thank you
0
AndresHernando
Asked:
AndresHernando
  • 5
1 Solution
 
jppintoCommented:
You can try something like this:
Dim wkb As Workbook
    For Each wkb In Workbooks
        If wkb.Name Like "*_Name_of_Workbook.xlsm" Then
            wkb.Activate
            Exit For
        End If
    Next wkb

Open in new window

0
 
AndresHernandoAuthor Commented:
jpp,

I tried code like that before posting, but it didn't work. But I figured I'd give yours a try again anyhow. It still doesn't work. It seems to skip over the "wkb.activate" command when I step through it. It will loop a couple of times, and then just move on the the next portion of code. It doesn't crash or give an error msg, but it doesn't activate the workbook and worksheet that I want to be activated.

Thanks
0
 
AndresHernandoAuthor Commented:
jpp,

Nevermind that last post. I forgot to change the "*_Name_of_Workbook.xlsm" back to the proper name. Once I changed it to the proper name, it loops through 3 times, and on the 3rd try it activates like it is supposed to. Not sure why it failed on me before? But it works now.

Thanks!
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
AndresHernandoAuthor Commented:
It worked
0
 
AndresHernandoAuthor Commented:
Oh, I didn't notice until I tried to run it again that the code didn't call the spreadsheet within the workbook too. Do you know how I could call the spreadsheet within this workbook? To make matters more difficult, other open workbooks (with different names) will have a worksheet in them with the same name. That's why I need to make sure that it only calls the sheet within the active workbook.
0
 
AndresHernandoAuthor Commented:
Nevermind that last one, I got it.

Thanks again.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now