Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Box Question
I have a user form with several Check Boxes that are for controlling
worksheets in a workbook. Each check box is for hiding or unhiding the different worksheets in a workbook from the user form2. Workbook name = Installer Forms Worksheet name = Sheet 1 Checkbox names = Office_Package_Preparations_101 I want when the Box is checked for the worksheet to be shown and when the box is not checked for the worksheet to be hidden. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Box Question
Hi Brian,
Important consideration is that you cannot hide all sheets so must test for at least 2 visible sheets before hiding a sheet. If only one sheet visible then unchecking the last checkbox is ignored and it is re-checked. All of your CheckBox code should be like the following. You could if you wish place the main code in a standard module and call it from the CheckBox click events and pass the worksheet name to the code. Private Sub ChkSht1_Click() Dim ws As Worksheet Dim i As Long 'Edit ChkSht1 to your CheckBox Name If Me.ChkSht1 = True Then 'Edit "Sheet1" to your sheet name Sheets("Sheet1").Visible = True Else 'Cannot hide all sheets so at least '2 must be visible before hiding one. For Each ws In Worksheets If ws.Visible Then i = i + 1 If i 1 Then Exit For End If Next ws If i 1 Then Sheets("Sheet1").Visible = False Else 'Set back to True (Visible) Me.ChkSht1 = True End If End If End Sub -- Regards, OssieMac |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Check box question??? | Excel Discussion (Misc queries) | |||
Check Box Question | Excel Worksheet Functions | |||
check box question | Excel Worksheet Functions | |||
Check Box Question | Excel Programming | |||
Check Box Question | Excel Programming |