Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
dropdown unhide sheet
Hello I have hidden 19 worksheets . Using a new worksheet, I Created a
form and on cell B28 I have a dropdown list naming the19 differend kinds of agreements. What I want is when the agreement name is selected on cell B 28 for that worksheet to unhide. This is my code(so far) Private Sub Worksheet_Change(ByVal Target As Range) With Target If Me.Range("B28").Value = "" Then Worksheets("StandardAgreement").Visible = xlSheetVeryHidden Else Worksheets("StandardAgreement").Visible = xlSheetVisible End If End With The above code works ...the next agreement on the list is 3 year Agreement ..so I added the following to the code above If Me.Range("B28").Value = "" Then Worksheets("3YearAgreement").Visible = xlSheetVeryHidden Else Worksheets("3YearAgreement").Visible = xlSheetVisible End If End If End With This does not work, How can I add all 19 agreements to the code so that the whatever agreement is selected in cell B28 the worksheet unhides thanks for helping me! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
dropdown unhide sheet
Hello
Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$B$28" Then Select Case .Value 'ADJUST - fill in the 19 possibilities 'Case "": Sheets("StandardAgreement").Visible = xlSheetVeryHidden 'Case "another option": Sheets("3YearAgreement").Visible = xlSheetVisible 'Case "yet another option": Sheets("...").Visible = xlSheetVisible '... End Select End If End With End Sub -- Wigi http://www.wimgielis.be = Excel/VBA, soccer and music "Marilyn" wrote: Hello I have hidden 19 worksheets . Using a new worksheet, I Created a form and on cell B28 I have a dropdown list naming the19 differend kinds of agreements. What I want is when the agreement name is selected on cell B 28 for that worksheet to unhide. This is my code(so far) Private Sub Worksheet_Change(ByVal Target As Range) With Target If Me.Range("B28").Value = "" Then Worksheets("StandardAgreement").Visible = xlSheetVeryHidden Else Worksheets("StandardAgreement").Visible = xlSheetVisible End If End With The above code works ...the next agreement on the list is 3 year Agreement .so I added the following to the code above If Me.Range("B28").Value = "" Then Worksheets("3YearAgreement").Visible = xlSheetVeryHidden Else Worksheets("3YearAgreement").Visible = xlSheetVisible End If End If End With This does not work, How can I add all 19 agreements to the code so that the whatever agreement is selected in cell B28 the worksheet unhides thanks for helping me! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
dropdown unhide sheet
Wigi Thank you
I'm a novice at this, I need simplier instructions Let me rephrasea. When a person selects the agreement type from cell B28 (in the form worksheet)then that agreement worksheet should unhide. At any given time there should not be more that 2 worksheets unhiden. With your code I can unhide the agreement type worksheet, but if a selected a different agreement type the previous agreement type I had selected does not hide Again thanks "Wigi" wrote: Hello Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$B$28" Then Select Case .Value 'ADJUST - fill in the 19 possibilities 'Case "": Sheets("StandardAgreement").Visible = xlSheetVeryHidden 'Case "another option": Sheets("3YearAgreement").Visible = xlSheetVisible 'Case "yet another option": Sheets("...").Visible = xlSheetVisible '... End Select End If End With End Sub -- Wigi http://www.wimgielis.be = Excel/VBA, soccer and music "Marilyn" wrote: Hello I have hidden 19 worksheets . Using a new worksheet, I Created a form and on cell B28 I have a dropdown list naming the19 differend kinds of agreements. What I want is when the agreement name is selected on cell B 28 for that worksheet to unhide. This is my code(so far) Private Sub Worksheet_Change(ByVal Target As Range) With Target If Me.Range("B28").Value = "" Then Worksheets("StandardAgreement").Visible = xlSheetVeryHidden Else Worksheets("StandardAgreement").Visible = xlSheetVisible End If End With The above code works ...the next agreement on the list is 3 year Agreement .so I added the following to the code above If Me.Range("B28").Value = "" Then Worksheets("3YearAgreement").Visible = xlSheetVeryHidden Else Worksheets("3YearAgreement").Visible = xlSheetVisible End If End If End With This does not work, How can I add all 19 agreements to the code so that the whatever agreement is selected in cell B28 the worksheet unhides thanks for helping me! |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
dropdown unhide sheet
Hello
This is what my code looks like. the code will unhide any of the sheets but it only hides the first case "Standard Agreement" Help Please and thank you Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$B$28" Then Select Case .Value 'ADJUST - fill in the 19 possibilities Case "": Sheets("StandardAgreement").Visible = xlSheetVeryHidden Case "": Sheets("3YearAgreement").Visible = xlSheetVeryHidden Case "": Sheets("1YearAgreement").Visible = xlSheetVeryHidden Case "": Sheets("5YearAgreement").Visible = xlSheetVeryHidden Case "StandardAgreement": Sheets("StandardAgreement").Visible = xlSheetVisible Case "3YearAgreement": Sheets("3YearAgreement").Visible = xlSheetVisible Case "1YearAgreement": Sheets("1YearAgreement").Visible = xlSheetVisible Case "5YearAgreement": Sheets("5YearAgreement").Visible = xlSheetVisible '... End Select End If End With End Sub fworks SO this is "Marilyn" wrote: Hello I have hidden 19 worksheets . Using a new worksheet, I Created a form and on cell B28 I have a dropdown list naming the19 differend kinds of agreements. What I want is when the agreement name is selected on cell B 28 for that worksheet to unhide. This is my code(so far) Private Sub Worksheet_Change(ByVal Target As Range) With Target If Me.Range("B28").Value = "" Then Worksheets("StandardAgreement").Visible = xlSheetVeryHidden Else Worksheets("StandardAgreement").Visible = xlSheetVisible End If End With The above code works ...the next agreement on the list is 3 year Agreement .so I added the following to the code above If Me.Range("B28").Value = "" Then Worksheets("3YearAgreement").Visible = xlSheetVeryHidden Else Worksheets("3YearAgreement").Visible = xlSheetVisible End If End If End With This does not work, How can I add all 19 agreements to the code so that the whatever agreement is selected in cell B28 the worksheet unhides thanks for helping me! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro to unhide a sheet | Excel Discussion (Misc queries) | |||
How to hide/unhide a sheet? | Excel Discussion (Misc queries) | |||
HELP!! Unhide Sheet with Macro and focus on other sheet | Excel Discussion (Misc queries) | |||
Can't see sheet, and have tried unhide, etc? | Excel Worksheet Functions | |||
adding data from one sheet to another sheet as a dropdown list bo. | Excel Discussion (Misc queries) |