Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using ActiveSheet to Disable Multipage1
Is this Correct??? Cause its not working it Gives me the Error Invalid
Use of Property With the Word Pages Highlighted :| Any Idea How to do this? Private Sub Found(StrNameFound As String) Dim sh As Worksheet Set sh = ActiveSheet If sh = Worksheets("Shelter") Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using ActiveSheet to Disable Multipage1
Try changing the following piece of your code:
If sh.Name = "Shelter" Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: Is this Correct??? Cause its not working it Gives me the Error Invalid Use of Property With the Word Pages Highlighted :| Any Idea How to do this? Private Sub Found(StrNameFound As String) Dim sh As Worksheet Set sh = ActiveSheet If sh = Worksheets("Shelter") Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using ActiveSheet to Disable Multipage1
On Nov 2, 2:05 pm, Michael wrote:
Try changing the following piece of your code: If sh.Name = "Shelter" Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: Is this Correct??? Cause its not working it Gives me the Error Invalid Use of Property With the Word Pages Highlighted :| Any Idea How to do this? Private Sub Found(StrNameFound As String) Dim sh As Worksheet Set sh = ActiveSheet If sh = Worksheets("Shelter") Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If- Hide quoted text - - Show quoted text - It Still gives me the error Invalid use of Property for the .Pages :( |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using ActiveSheet to Disable Multipage1
So what are you trying to do. I assume you have created a Form named FormLoad
and you have placed an page oject and you have named page1 = Dependency and page2 = TPR. However, it appears all you want is to set the visible attribute to false if the name of the sheet is Shelter. Maybe a little more information will help. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: On Nov 2, 2:05 pm, Michael wrote: Try changing the following piece of your code: If sh.Name = "Shelter" Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: Is this Correct??? Cause its not working it Gives me the Error Invalid Use of Property With the Word Pages Highlighted :| Any Idea How to do this? Private Sub Found(StrNameFound As String) Dim sh As Worksheet Set sh = ActiveSheet If sh = Worksheets("Shelter") Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If- Hide quoted text - - Show quoted text - It Still gives me the error Invalid use of Property for the .Pages :( |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using ActiveSheet to Disable Multipage1
On Nov 2, 3:06 pm, Michael wrote:
So what are you trying to do. I assume you have created a Form named FormLoad and you have placed an page oject and you have named page1 = Dependency and page2 = TPR. However, it appears all you want is to set the visible attribute to false if the name of the sheet is Shelter. Maybe a little more information will help. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: On Nov 2, 2:05 pm, Michael wrote: Try changing the following piece of your code: If sh.Name = "Shelter" Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. " wrote: Is this Correct??? Cause its not working it Gives me the Error Invalid Use of Property With the Word Pages Highlighted :| Any Idea How to do this? Private Sub Found(StrNameFound As String) Dim sh As Worksheet Set sh = ActiveSheet If sh = Worksheets("Shelter") Then FormLoad.MultiPage1.Pages ("Dependency") And _ FormLoad.MultiPage1.Pages("TPR").Visible = False End If- Hide quoted text - - Show quoted text - It Still gives me the error Invalid use of Property for the .Pages :(- Hide quoted text - - Show quoted text - I ended Up just removing the tabs and If sh.Name = "Shelter" Then FormLoad.MultuPage1.Value = 0 :) But ty for the help, FormLoad is the userform, then there is a multipage object with 3 Pages , shelter , Dependency, and TPR :) This Code is in a selection button prior to opening the page, but i found this way around it and it actually looks better i think :D |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying new activesheet after other activesheet is hidden? | Excel Programming | |||
activesheet | Excel Programming | |||
name of the activesheet | Excel Programming | |||
ActiveSheet.Name? | Excel Programming | |||
ActiveSheet | Excel Programming |