I need a VBA code to hide a check box until another checkbox is checked?

Question

0.00/5 (No votes)

See more:

I need the checkbox "Two_one_WP" to be hidden until checkbox "Two_zero" is clicked any ideas???

What I have tried:

VB

Private Sub Two_zero_Click()
If Two_zero = True Then
    [2].EntireRow.Hidden = False
    Else: [2].EntireRow.Hidden = True
    End If
End Sub

Private Sub Two_one_WP_Click()
If Two_one_WP = True Then
    [3:7].EntireRow.Hidden = False
    Else: [3:7].EntireRow.Hidden = True
    End If
End Sub

Posted 16-Jan-18 11:42am

Member 13626605

Updated 17-Jan-18 1:19am

Maciej Los

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2018-01-17T01:03:00

Why are you trying to hide rows on the spreadsheet?

Just toggle the Visible property of the Checkbox, e.g. putting this code into the ThisWorkbook VBA module works for me

VB

Option Explicit

Private Sub Two_zero_Click()
    If Two_zero.Value Then
        two_one_WP.Visible = True
    Else
        two_one_WP.Visible = False
    End If
End Sub

It's worth noting that the Checkbox objects I used were the ActiveX controls not the Form Controls. If you use the Form Controls then you need something like this instead

VB

Sub Two_zero_Click()
    If ActiveSheet.Shapes("Two_zero").ControlFormat.Value = 1 Then
        Sheets("Sheet1").Shapes("two_one_WP").Visible = True
    Else
        Sheets("Sheet1").Shapes("two_one_WP").Visible = False
    End If
End Sub

[Edit after OP comment]

You claim that the code above "disrupts" your code to hide rows. It can't.

If you want all the sub-category checkboxes to also disappear then you could just expand the code I've given you to include all of them. There is nothing to stop you hiding the rows as well if that is what you want to do.

However, if you are trying to hide the checkboxes by hiding the rows that they are on then you need to set them to "Move and Size with Cells". The accepted answer on this StackOverflow post[^] will show you how to do that (it depends on which version of Excel you are using).
Once you have set that property on the checkbox(es) then when you hide a row the checkbox "on" that row will also be hidden.