If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
- Thread starter PATSYS
- Start date Oct 18, 2009
Hi all, I have codes residing in workbook "File1.xls". In this workbook I have a sheet with sheet codename "Sheet1". I would like my code to run only if the "Sheet1" is the active sheet. In short, I would like to add a line in my code that says something like: Code: If Thisworkbook.Sheet1=ActiveSheet then ... Can someone show me that correct code to achieve this? Thanks
Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.
Hi PATSYS Is it Code: If Activesheet.Name = "Sheet1" Then .......
Hi Dave, Thanks for your post. However the "Sheet1" is the sheet codename, not the sheetname. I prefer to use the sheet codename becauise the sheetname is changing all the time. Do you know how this is done? Thanks
Dave, I got it. Code: If ActiveSheet.CodeName = "Sheet1" Then Thanks for pointing me to the right direction.
Threads1,180,536Messages5,925,058Members436,387Latest memberBulugoy
08-02-2006, 11:40 AM #1
If activesheet is called X, then do y
Hi guys,I need some VBA that says if the active sheet is "dogs", then call macro
entitled get dogs. If active sheet is "cats", then call macro entitled
"get Cats".Possible...?
Thanks!!
D
*** Sent via Developersdex //www.developersdex.com ***
08-02-2006, 11:45 AM #2
Re: If activesheet is called X, then do y
Assuming everything exists..
Run ActiveSheet.NameCharles
xl GeekDarin Kramer wrote:
> Hi guys,
>
> I need some VBA that says if the active sheet is "dogs", then call macro
> entitled get dogs. If active sheet is "cats", then call macro entitled
> "get Cats".
>
> Possible...?
>
> Thanks!!
>
> D
>
>
> *** Sent via Developersdex //www.developersdex.com ***08-02-2006, 11:45 AM #3
Re: If activesheet is called X, then do y
One way I think will work is:
if activesheet.name = "dogs" then GetDogs
if activesheet.name = "cats" then GetCatsHowever, when is this code supposed to run. Is it based on anytime the
sheet is active, or is it dependent on some other code that runs?
If it is to run any time those sheets are activated then you could add code
specifically to that sheet.
For example:Right-click on sheet "dogs" and select View code. Click General dropdown
and select Worksheet. Click other dropdown and make sure it is on
Activate".
Then in your code, enter the macro name you want to run when this sheet is
selected. Here's what it would look like:Private Sub Worksheet_Activate()
GetDogs
End SubHTH,
Paul"Darin Kramer" <> wrote in message
news:...
>
> Hi guys,
>
> I need some VBA that says if the active sheet is "dogs", then call macro
> entitled get dogs. If active sheet is "cats", then call macro entitled
> "get Cats".
>
> Possible...?
>
> Thanks!!
>
> D
>
>
> *** Sent via Developersdex //www.developersdex.com ***08-02-2006, 12:00 PM #4
Re: If activesheet is called X, then do y
One way I think will work is:
if activesheet.name = "dogs" then GetDogs
if activesheet.name = "cats" then GetCatsHowever, when is this code supposed to run. Is it based on anytime the
sheet is active, or is it dependent on some other code that runs?
If it is to run any time those sheets are activated then you could add code
specifically to that sheet.
For example:Right-click on sheet "dogs" and select View code. Click General dropdown
and select Worksheet. Click other dropdown and make sure it is on
Activate".
Then in your code, enter the macro name you want to run when this sheet is
selected. Here's what it would look like:Private Sub Worksheet_Activate()
GetDogs
End SubHTH,
Paul"Darin Kramer" <> wrote in message
news:...
>
> Hi guys,
>
> I need some VBA that says if the active sheet is "dogs", then call macro
> entitled get dogs. If active sheet is "cats", then call macro entitled
> "get Cats".
>
> Possible...?
>
> Thanks!!
>
> D
>
>
> *** Sent via Developersdex //www.developersdex.com ***08-02-2006, 12:20 PM #5
Re: If activesheet is called X, then do y
Oops I forgot the "get"
Run "get" & Activesheet.Name
I eliminated the space because I don't think excel will let you have a
space in a macro name.Charles
xl Geek
Die_Another_Day wrote:
> Assuming everything exists..
> Run ActiveSheet.Name
>
> Charles
> xl Geek
>
> Darin Kramer wrote:
> > Hi guys,
> >
> > I need some VBA that says if the active sheet is "dogs", then call macro
> > entitled get dogs. If active sheet is "cats", then call macro entitled
> > "get Cats".
> >
> > Possible...?
> >
> > Thanks!!
> >
> > D
> >
> >
> > *** Sent via Developersdex //www.developersdex.com ***08-02-2006, 02:50 PM #6
Re: If activesheet is called X, then do y
I had forgotten to take out a line. Here is the version that works. Sorry
about that.Sub fill_in()
ActiveSheet.Range("A3").Select
For Each cell In Sheets
Do
If ActiveCell > "" ThenElseIf ActiveCell.Offset(0, 3) > "" Then
ActiveCell = ActiveCell.Offset(-1, 0)ElseIf ActiveCell = "" And ActiveCell.Offset(1, 0) = "" Then
Exit For
End If
ActiveCell.Offset(1, 0).Activate
Loop
Next
End Sub--
Best wishes,Jim
"PCLIVE" wrote:
> One way I think will work is:
>
> if activesheet.name = "dogs" then GetDogs
> if activesheet.name = "cats" then GetCats
>
> However, when is this code supposed to run. Is it based on anytime the
> sheet is active, or is it dependent on some other code that runs?
> If it is to run any time those sheets are activated then you could add code
> specifically to that sheet.
> For example:
>
> Right-click on sheet "dogs" and select View code. Click General dropdown
> and select Worksheet. Click other dropdown and make sure it is on
> Activate".
> Then in your code, enter the macro name you want to run when this sheet is
> selected. Here's what it would look like:
>
> Private Sub Worksheet_Activate()
> GetDogs
> End Sub
>
>
> HTH,
> Paul
>
>
> "Darin Kramer" <> wrote in message
> news:...
> >
> > Hi guys,
> >
> > I need some VBA that says if the active sheet is "dogs", then call macro
> > entitled get dogs. If active sheet is "cats", then call macro entitled
> > "get Cats".
> >
> > Possible...?
> >
> > Thanks!!
> >
> > D
> >
> >
> > *** Sent via Developersdex //www.developersdex.com ***
>
>
>