Check all checkboxes only if condition is met

[Borm]

Hello,

I have this code that checks/unchecks all checkboxes. In column E , based on certain conditions, the cell color becomes red. I am wondering if it's possible to check all checboxes that does not have the cell color red in column E5:E150 ? If a cell color is not ideal , I can enter "False" in the E column.

Any help would be appreciated, thanks

Sub SelectAllSubSector()

Dim cBoxSector As CheckBox

For Each cBoxSector In Worksheets("Input attractivite").CheckBoxes
If Not Intersect(cBoxSector.TopLeftCell, Range("C5:C150")) Is Nothing Then
If cBoxSector.Name <> ActiveSheet.CheckBoxes("Check Box 3").Name Then
cBoxSector.Value = ActiveSheet.CheckBoxes("Check Box 3").Value
End If
End If
Next cBoxSector

End Sub

 

[GWteB]

Hi Borm, welcome to MrExcel.

How about

Sub SelectAllSubSector()

    Dim cBoxSector As CheckBox

    For Each cBoxSector In Worksheets("Input attractivite").CheckBoxes
        If Not Intersect(cBoxSector.TopLeftCell, Range("C5:C150")) Is Nothing Then
            If cBoxSector.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
                cBoxSector.Value = ActiveSheet.CheckBoxes("Check Box 1").Value
            End If
            
        ElseIf Not Intersect(cBoxSector.TopLeftCell, Range("E1:E150")) Is Nothing Then
            With cBoxSector
                If .TopLeftCell.Interior.Color = vbRed Then
                    .Value = False
                Else
                    .Value = True
                End If
            End With
        End If
    Next cBoxSector
End Sub