PDA

View Full Version : [SOLVED] Need Help With Show/Hide Check Boxes



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! :)

大灰狼1976
04-17-2019, 12:36 AM
Hi ham123!

With ActiveSheet.Shapes("Check Box 17")
.Visible = Not .Visible
End With

ham123
04-17-2019, 01:07 AM
Hi :)

That worked for me! Thanks again