hiding rows
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. |
hiding rows
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. . |
hiding rows
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) |
All times are GMT +1. The time now is 02:38 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com