Excel VBA Macro: Count Conditionally Formatted Cells (Dynamic Range)

Excel VBA Macro: Count Conditionally Formatted Cells (Dynamic Range). In this video, we create code that automatically counts all conditionally formatted cells in a range, regardless of the number of rows. This code allows the user to easily count conditionally formatted cells across multiple columns with different criteria for each. We use a Message Box and Else If to account for there being zero, one, or more conditionally formatted cells in our count.
Data used in this video:
gsociology.ica...
This is a modification of code from:
www.excelsirji...
Code:
Sub count_cond_cells()
Dim rng As Range
Dim rngCell As Range
Dim row_count As Integer
Dim cond_count As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Activate
row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
cond_count = 0
Set rng = ws.Range("D2:J" & row_count)
For Each rngCell In rng
If Cells(rngCell.Row, rngCell.Column).DisplayFormat. _
Interior.Color = RGB(255, 199, 206) Then
cond_count = cond_count + 1
End If
Next
If cond_count = 0 Then
MsgBox "There are no conditionally formatted cells."
ElseIf cond_count = 1 Then
MsgBox "There is 1 conditionally formatted cell."
Else
MsgBox "There are " & cond_count & " conditionally formatted cells."
End If
End Sub
#ExcelVBA #ExcelMacro

[@robdc4829]

I would rather have the total red cells show up in a cell versus a message. That said, this is the best video I've seen so far on the topic. All the other videos I've seen use a named range to use an old function. The seems to work with one column, but not with a table like he's done here.

[@greggowaffles]

Thank you for your feedback!

[@greggowaffles]

Just made a similar video where the total number of red cells show up at the end of each row. Excel VBA Macro: Count and List the Number of (Conditonally Formatted) Cells at the End of Each Row kzbin.info/www/bejne/hp7Hqqx7e6h9fLc

[@cgsmiddleafifa9340]

why my excel sheet not excepting VBA Macro code?

[@greggowaffles]

Hope you were able to get it working

[@rashminsolanki8918]

Like one row has different conditionally colored cells... than end that cell one cell has count that how many cell ls of specific colored..

[@greggowaffles]

I can make a video on this topic

[@greggowaffles]

Just made a video on this! Excel VBA Macro: Count and List the Number of (Conditonally Formatted) Cells at the End of Each Row kzbin.info/www/bejne/hp7Hqqx7e6h9fLc

[@rashminsolanki8918]

I want to put counting conditionally colored cell like a formula...

[@greggowaffles]

Do you have a specific example?

[@jozefnagels8443]

not very usefull if the value is not in a cell