| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with toggle code
All:
I am using a toggle button to hide/unhide selected rows on different spreadsheets. The code below works on one sheet but as soon as I move to a different sheet I get an error message (see ** where error is). Any suggestions, it's getting stuck at Rows (:8:21").Select - Thank you. Private Sub ToggleButton1_Click() Static blflag As Boolean blflag = Not blflag If blflag Then Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = False Sheets("Spread Analysis").Select **Rows("8:21").Select Selection.EntireRow.Hidden = False Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = False Sheets("Input Variables").Select Else Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = True Sheets("Spread Analysis").Select Rows("8:21").Select Selection.EntireRow.Hidden = True Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = True Sheets("Input Variables").Select End If End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error with toggle code
Try this...
Private Sub ToggleButton1_Click() Static blflag As Boolean blflag = Not blflag If blflag Then Range("15:16,19:22").EntireRow.Hidden = False Sheets("Spread Analysis").Rows("8:21").EntireRow.Hidden = False Sheets("Client Analysis ").Rows("8:18").EntireRow.Hidden = False Else Range("15:16,19:22").EntireRow.Hidden = True Sheets("Spread Analysis").Rows("8:21").EntireRow.Hidden = True Sheets("Client Analysis ").Rows("8:18").EntireRow.Hidden = True End If Sheets("Input Variables").Select End Sub -- HTH... Jim Thomlinson "hmaze" wrote: All: I am using a toggle button to hide/unhide selected rows on different spreadsheets. The code below works on one sheet but as soon as I move to a different sheet I get an error message (see ** where error is). Any suggestions, it's getting stuck at Rows (:8:21").Select - Thank you. Private Sub ToggleButton1_Click() Static blflag As Boolean blflag = Not blflag If blflag Then Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = False Sheets("Spread Analysis").Select **Rows("8:21").Select Selection.EntireRow.Hidden = False Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = False Sheets("Input Variables").Select Else Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = True Sheets("Spread Analysis").Select Rows("8:21").Select Selection.EntireRow.Hidden = True Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = True Sheets("Input Variables").Select End If End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error with toggle code
Jim - that did it - thank you!!!
"Jim Thomlinson" wrote: Try this... Private Sub ToggleButton1_Click() Static blflag As Boolean blflag = Not blflag If blflag Then Range("15:16,19:22").EntireRow.Hidden = False Sheets("Spread Analysis").Rows("8:21").EntireRow.Hidden = False Sheets("Client Analysis ").Rows("8:18").EntireRow.Hidden = False Else Range("15:16,19:22").EntireRow.Hidden = True Sheets("Spread Analysis").Rows("8:21").EntireRow.Hidden = True Sheets("Client Analysis ").Rows("8:18").EntireRow.Hidden = True End If Sheets("Input Variables").Select End Sub -- HTH... Jim Thomlinson "hmaze" wrote: All: I am using a toggle button to hide/unhide selected rows on different spreadsheets. The code below works on one sheet but as soon as I move to a different sheet I get an error message (see ** where error is). Any suggestions, it's getting stuck at Rows (:8:21").Select - Thank you. Private Sub ToggleButton1_Click() Static blflag As Boolean blflag = Not blflag If blflag Then Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = False Sheets("Spread Analysis").Select **Rows("8:21").Select Selection.EntireRow.Hidden = False Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = False Sheets("Input Variables").Select Else Range("15:16,19:22").Select Range("A19").Activate Selection.EntireRow.Hidden = True Sheets("Spread Analysis").Select Rows("8:21").Select Selection.EntireRow.Hidden = True Sheets("Client Analysis ").Select Rows("8:18").Select Selection.EntireRow.Hidden = True Sheets("Input Variables").Select End If End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| VBA Code to Create a Toggle Button | Excel Programming | |||
| Toggle Code Calls | Excel Programming | |||
| Toggle Code | Excel Programming | |||
| toggle button & event code | Excel Programming | |||
| Can I toggle this Code - to Stamp and to UnStamp? | Excel Programming | |||
Linear Mode
