To be able to show only certain sections of worksheet

[Sean]

I want to be able to show more or less of the screen by clicking a radio
button.

I have a VB script as below (par of it shown only)

I have 13 x =EMBED("Forms.OptionButton.1","") numbered 1 - 13 They
are called OptionButton_1 - 13

By clicking on the corresponding radio button - I want it to show as much
of the worksheet that is necessary. hiding the parts that are not wanted

The worksheet contains almost exactly the same going downward 13 times for
producing a site survey, for different size sites

I have worked out the rows that will need to be displayed.

I have seen it working before but can't work out how it was done.

** Happy to email file if it helps**

If Me.OptionButton_5.Value = -1 Then
Rows("36:175").Hidden = False
Rows("176:452").Hidden = True
End If

End Sub

Private Sub OptionButton_6_Click()

If Me.OptionButton_6.Value = -1 Then
Rows("36:210").Hidden = False
Rows("211:452").Hidden = True
End If

End Sub

Private Sub OptionButton_7_Click()

If Me.OptionButton_7.Value = -1 Then
Rows("36:245").Hidden = False
Rows("246:452").Hidden = True
End If

End Sub

 

[Squeaky]

Hi Sean,

This uses a 'forms' button. You can click to fold, then click to unfold.
Copy it to each worksheet module then modify it for the specific worksheet.
For each button on each page, assign the macro for that worksheet.

I created a FORMS button and placed it over cell G2. You can modify what you
need to fit your needs.

Sub button1()
'
' button1 Macro

'

Dim Rng As Range

Set Rng = ActiveSheet.Range("g2") '<<=== CHANGE


If Not Rng Is Nothing Then
On Error GoTo XIT
Application.EnableEvents = False

If Rng.Value = True Then


Rows("8:10").Hidden = False '<<=== CHANGE
Rows("14:15").Hidden = True '<<=== CHANGE
Range("g2").Select '<<=== CHANGE
ActiveCell.FormulaR1C1 = "False"

GoTo 3
Else: GoTo 2

2
If Range("g2") = False Then '<<=== CHANGE
Rows("4:10").Hidden = True '<<=== CHANGE
Rows("11:15").Hidden = False '<<=== CHANGE
Range("g2").Select '<<=== CHANGE
ActiveCell.FormulaR1C1 = "True"

3
End If

End If

End If
XIT:
Application.EnableEvents = True
End Sub

Let me know if you have problems.
Squeaky