ham123
04-16-2019, 11:37 PM
Greetings experts,
I have a button and what it does is that it will show/hide some rows and check boxes. For the check boxes, I have only figured out how to hide them, I need help trying to show them again as reversing the true and false does not work.
Sub ShowRestOfTheForm_Click()
With Rows("18:105")
.Hidden = Not .Hidden
End With
If ActiveSheet.Shapes("Check Box 17").Visible = True Then
ActiveSheet.Shapes("Check Box 17").Visible = False
End If
If ActiveSheet.Shapes("Check Box 18").Visible = True Then
ActiveSheet.Shapes("Check Box 18").Visible = False
End If
If ActiveSheet.Shapes("Check Box 19").Visible = True Then
ActiveSheet.Shapes("Check Box 19").Visible = False
End If
If ActiveSheet.Shapes("Check Box 20").Visible = True Then
ActiveSheet.Shapes("Check Box 20").Visible = False
End If
End Sub
Any help is much appreciated! :)
I have a button and what it does is that it will show/hide some rows and check boxes. For the check boxes, I have only figured out how to hide them, I need help trying to show them again as reversing the true and false does not work.
Sub ShowRestOfTheForm_Click()
With Rows("18:105")
.Hidden = Not .Hidden
End With
If ActiveSheet.Shapes("Check Box 17").Visible = True Then
ActiveSheet.Shapes("Check Box 17").Visible = False
End If
If ActiveSheet.Shapes("Check Box 18").Visible = True Then
ActiveSheet.Shapes("Check Box 18").Visible = False
End If
If ActiveSheet.Shapes("Check Box 19").Visible = True Then
ActiveSheet.Shapes("Check Box 19").Visible = False
End If
If ActiveSheet.Shapes("Check Box 20").Visible = True Then
ActiveSheet.Shapes("Check Box 20").Visible = False
End If
End Sub
Any help is much appreciated! :)