Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
option button (yes No) to hide rows
Hello I have two option buttons one says yes the other No
SO if the option selected is yes I want to unhide row A32 thruA44 if No is selected then rows A32 thru A44 remain hidden this is what I have but it does not work Private Sub OptionButton1_Click() Dim myRng As Range Set myRng = Me.Range("a32:a44") myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden) End Sub thanks for your help |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
option button (yes No) to hide rows
You could simplify it to:
Private Sub OptionButton1_Click() Range("A32:A44").EntireRow.Hidden = Not (Range("A32:A44").EntireRow.Hidden) End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Wanna Learn" wrote: Hello I have two option buttons one says yes the other No SO if the option selected is yes I want to unhide row A32 thruA44 if No is selected then rows A32 thru A44 remain hidden this is what I have but it does not work Private Sub OptionButton1_Click() Dim myRng As Range Set myRng = Me.Range("a32:a44") myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden) End Sub thanks for your help |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
option button (yes No) to hide rows
Thanks Luke
This works fine but If I select the "NO" command button nothing happens . If No is selected I want the rows a32 to A44 remain hidden. (I cannot deselect Yes) Thanks again "Luke M" wrote: You could simplify it to: Private Sub OptionButton1_Click() Range("A32:A44").EntireRow.Hidden = Not (Range("A32:A44").EntireRow.Hidden) End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Wanna Learn" wrote: Hello I have two option buttons one says yes the other No SO if the option selected is yes I want to unhide row A32 thruA44 if No is selected then rows A32 thru A44 remain hidden this is what I have but it does not work Private Sub OptionButton1_Click() Dim myRng As Range Set myRng = Me.Range("a32:a44") myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden) End Sub thanks for your help |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
option button (yes No) to hide rows
Assuming your buttons are labeled 1 and 2 respectively:
Private Sub OptionButton1_Click() 'This is the "YES" button Range("A32:A44").EntireRow.Hidden = True End sub Private Sub OptionButton2_Click() 'This is the "NO" button Range("A32:A44").EntireRow.Hidden = False End sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Wanna Learn" wrote: Thanks Luke This works fine but If I select the "NO" command button nothing happens . If No is selected I want the rows a32 to A44 remain hidden. (I cannot deselect Yes) Thanks again "Luke M" wrote: You could simplify it to: Private Sub OptionButton1_Click() Range("A32:A44").EntireRow.Hidden = Not (Range("A32:A44").EntireRow.Hidden) End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Wanna Learn" wrote: Hello I have two option buttons one says yes the other No SO if the option selected is yes I want to unhide row A32 thruA44 if No is selected then rows A32 thru A44 remain hidden this is what I have but it does not work Private Sub OptionButton1_Click() Dim myRng As Range Set myRng = Me.Range("a32:a44") myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden) End Sub thanks for your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide option buttons | Excel Discussion (Misc queries) | |||
hide or unhide rows with button | Excel Discussion (Misc queries) | |||
Code for button to hide/unhide rows | Excel Worksheet Functions | |||
Command Button to Hide/Unhide Rows | Excel Discussion (Misc queries) | |||
keep source formatting is not an option in paste option button | Excel Discussion (Misc queries) |