Toggle button - procedure works but elegance needed (xl2007)
 

Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub

Toggle button - procedure works but elegance needed (xl2007)
 

Hi,

Yes,

Me.ToggleButton1.Value
or
Me.ToggleButton1
since Value is the default property.

This either returns False or True

If Me.ToggleButton1 = True then
'do something
Else
'do something else
End If

If this helps, please click the Yes button.

--
Thanks,
Shane Devenshire


"Kragelund" wrote:

Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub

Toggle button - procedure works but elegance needed (xl2007)
 

Shane, thanks. I doesn't quite work though. I get the message: expected
procedure, not variable. What am I missing?


Private Sub ToggleButton1_Click()

Me.ToggleButton1
If Me.ToggleButton1 = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End Sub

"ShaneDevenshire" wrote:

Hi,

Yes,

Me.ToggleButton1.Value
or
Me.ToggleButton1
since Value is the default property.

This either returns False or True

If Me.ToggleButton1 = True then
'do something
Else
'do something else
End If

If this helps, please click the Yes button.

--
Thanks,
Shane Devenshire


"Kragelund" wrote:

Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub

Toggle button - procedure works but elegance needed (xl2007)
 

Your first code line: Me.ToggleButton1

Delete that line. It is meaningless in the context applied.





"Kragelund" wrote:

Shane, thanks. I doesn't quite work though. I get the message: expected
procedure, not variable. What am I missing?


Private Sub ToggleButton1_Click()

Me.ToggleButton1
If Me.ToggleButton1 = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End Sub

"ShaneDevenshire" wrote:

Hi,

Yes,

Me.ToggleButton1.Value
or
Me.ToggleButton1
since Value is the default property.

This either returns False or True

If Me.ToggleButton1 = True then
'do something
Else
'do something else
End If

If this helps, please click the Yes button.

--
Thanks,
Shane Devenshire


"Kragelund" wrote:

Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub

Toggle button - procedure works but elegance needed (xl2007)
 

JLGWhiz, thanks, that did the trick.


"JLGWhiz" wrote:

Your first code line: Me.ToggleButton1

Delete that line. It is meaningless in the context applied.





"Kragelund" wrote:

Shane, thanks. I doesn't quite work though. I get the message: expected
procedure, not variable. What am I missing?


Private Sub ToggleButton1_Click()

Me.ToggleButton1
If Me.ToggleButton1 = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End Sub

"ShaneDevenshire" wrote:

Hi,

Yes,

Me.ToggleButton1.Value
or
Me.ToggleButton1
since Value is the default property.

This either returns False or True

If Me.ToggleButton1 = True then
'do something
Else
'do something else
End If

If this helps, please click the Yes button.

--
Thanks,
Shane Devenshire


"Kragelund" wrote:

Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub