I have a sheet on which I wish to place a toggle button,
which when clicked hides all the rows except rows 5 to 14
and then when clicked again unhides all the hidden rows.

My code so far is

Private Sub togglebutton1_click()
select case togglebutton1
case true
rows("5:13").entirerow.hidden = true
case false
i don't know what to put here to unhide all hidden rows
end select

Even when I try the first bit I get a run time error.
This would be so useful and your help much appreciated.

The following will hide all rows in the range of rows 1 to
100 EXCEPT Rows 5 to 14 when the toggle button is
depressed and unhide them when not depressed. Although
you said "hides all the rows except rows 5 to 14" I
assumed you didn't want to literally hide ALL the rows on
the worksheet (except 5 to 14) as there are 65536 rows and
this would look stupid.

Private Sub ToggleButton1_Click()
Rows("1:4").Hidden = ToggleButton1.Value
Rows("15:100").Hidden = ToggleButton1.Value
End Sub

Regards,
Greg


-----Original Message-----
I have a sheet on which I wish to place a toggle button,
which when clicked hides all the rows except rows 5 to 14
and then when clicked again unhides all the hidden rows.

My code so far is

Private Sub togglebutton1_click()
select case togglebutton1
case true
rows("5:13").entirerow.hidden = true
case false
i don't know what to put here to unhide all hidden rows
end select

Even when I try the first bit I get a run time error.
This would be so useful and your help much appreciated.


.

I have a sheet on which I wish to place a toggle button,
which when clicked hides all the rows except rows 5 to 14
and then when clicked again unhides all the hidden rows.

My code so far is

Private Sub togglebutton1_click()
select case togglebutton1
case true
rows("5:13").entirerow.hidden = true
case false
i don't know what to put here to unhide all hidden rows
end select

Even when I try the first bit I get a run time error.
This would be so useful and your help much appreciated.

try this:

Private Sub ToggleButton1_Click()
Rows.Hidden = False
If ToggleButton1.Value Then
Rows("1:4").Hidden = True
Rows("15:65536").Hidden = True
End If
End Sub

--
Regards

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)