VBA code count based on CONDITIONAL FORMATTING CELLS

[caos88]

Hello everyone,

i wish to count date in column E according to 2 conditional formatting colors. Do you know if vba is possible for it ? or maybe a COUNTIF formula is more effective ?

Thank you

 

[davesexcel]

Try this, you will need to edit the colors in the code.

To find the conditional format color to place in the code you can select one of the colored cells and run the below code.

Sub GetCFcolor()
x = ActiveCell.DisplayFormat.Interior.Color
MsgBox x
End Sub

The code to count the conditional formated colors.

Sub CountCF1()
    Dim sh As Worksheet, x As Long, rng As Range, c As Range
    Set sh = ActiveSheet
    Set rng = sh.Columns("E:E").SpecialCells(xlCellTypeAllFormatConditions)
    For Each c In rng.Cells
        If c.DisplayFormat.Interior.Color = 5287936 Or _
           c.DisplayFormat.Interior.Color = 255 Then
            x = x + 1
        End If
    Next c
    MsgBox x

End Sub