Excel Check Box with conditions

[Mohsin110]

Hi, I want to use checkboxes with the following condition.

'Selection Change Condition
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("Combined") > 0 Then
        CustomBox = True
    End If
End sub

'CheckBox Condition
Private Sub CustomBox_Click()
    If CustomBox Then
        Range("E13") = "Combined"
    Else
        Range("E13") = ""
    End If
End Sub

and if checkbox is true then value of specific range for example "E13" should be equal to a word "Combined", which i got it successfully.
But if i uncheck the checkbox then the Worksheet Selection Change condition should not be applied and range "E13" should be empty even the " range("Combined") > 0 " hopefully i have succeeded to explain.

Please help if it's possible. check reference photo to get the idea.

 

[6StringJazzer]

There is a much easier way to do this without using any VBA.
For each checkbox, link it to the cell in column H where it is located. You appear to be using ActiveX checkboxes; you can go to Properties and set LinkedCell. Then the linked cells will have the value TRUE or FALSE based on whether the box is checked.
For the cells in column E use the formula

=IF(H13,"Combined","")

and fill down.

In column H you can set the font to be the same color as the background color so the user does not see the TRUE/FALSE values.

 

[Mohsin110]

There is a much easier way to do this without using any VBA.
For each checkbox, link it to the cell in column H where it is located. You appear to be using ActiveX checkboxes; you can go to Properties and set LinkedCell. Then the linked cells will have the value TRUE or FALSE based on whether the box is checked.
For the cells in column E use the formula

=IF(H13,"Combined","")

and fill down.

In column H you can set the font to be the same color as the background color so the user does not see the TRUE/FALSE values.

Actually check boxes are only true when range "D23" greater then 0, and after getting true if i uncheck the box "Combined" should be removed from "H13" even range "D23" is greater than 0.

 

[6StringJazzer]

I'm not following what you mean. Check boxes are True if you check the box--not sure how D23 is involved. There was no mention of D23 in your original description. You only mentioned E13, and the method I described will work for what you described in your original post.

 

[Mohsin110]

I'm not following what you mean. Check boxes are True if you check the box--not sure how D23 is involved. There was no mention of D23 in your original description. You only mentioned E13, and the method I described will work for what you described in your original post.

Range "Combined" is name range of "D23" mentioned in the original post.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("Combined") > 0 Then 'if range D23 greater than 0 then checkbox is true
        CustomBox = True
    End If
End sub

 

[6StringJazzer]

In that code, what is "CustomBox"? Why is this code run on a selection change?

I am not following your use case at all here. Please describe what happens from the user's point of view when they check boxes, when Excel should automatically check or uncheck boxes, how D23 is calculated, and how D23 affects all the checkboxes.