VBA Code to Count Color Cells with Conditional Formatting

VBA Code to Count Color Cells With Conditional Formatting

Have you ever got into situation in office where you need to count the cells with specific color in conditional formatted Excel sheet? If yes then you can use following code which counts the number of cells with specific color (here it is yellow) and put the count in cell

Public Sub CountColorCells()
    'Variable declaration
    Dim rng As Range
    Dim lColorCounter As Long
    Dim rngCell As Range
    'Set the range
    Set rng = Sheet1.Range("A2:A11")
    'loop throught each cell in the range
    For Each rngCell In rng
        'Checking Yellor color
        If Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.Color = RGB(255, 255, 0) Then
            lColorCounter = lColorCounter + 1
        End If
    Next
    'Display the value in cell A12
    Sheet1.Range("A12") = lColorCounter
End Sub

Count Color Cells With Conditional Formatting

It is worth to mention that DisplayFormat.Interior.Color works only on Excel 2010 or above. Also the above code does not count the cells where cell color is manually changed by user. You can use .Interior.Color to get the cell colors or read this post.

To use this code in your Excel file, follow below steps:
1. Open the Excel file where you want to count the color cells
2. Press Alt+F11
3. Insert a Module (Insert>Module) from menu bar
4. Paste the code in the module
5. Now add a shape in Excel sheet
6. Give a name to the shape like ‘Refresh Count’

7. Right click on the shape and select ‘Assign Macro…’

8. Select CountColorCells from the list and click on ‘Ok’ button

9. Done

Here I have counted the cells with yellow color. You can change RGB (#,#,#) code to count other colors. You can find RGB codes of any color using following steps:

1. Select the cell which contain the color you want to count

2. Right click and select ‘Format Cells…’

3. In the Format Cells dialog box go to ‘Fill’ tab and click on ‘More Colors…’

4. That’s all, in the ‘Color’ dialog box, you can view the RGB (Red, Green, Blue) codes of the color

If you are look for a code to sum the cells based on it’s color then you can read this post.

Download Practice File

You can also practice this through our practice files. Click on the below link to download the practice file.

Recommended Articles

Excel VBA and Macros | Productivity and Automation

Custom Calendar Control for MS Access

Byexcelsirji

Custom Calendar Control for MS Access MS Access by default provides inbuilt functionality to pick dates using calendar control; however it lacks few basic functionalities which makes selecting a date bit difficult. For example, if…

Excel VBA and Macros

VBA Code to Delete File

Byexcelsirji

In this article we are going to show you how you can delete file or files using a single line of VBA code. 1. Delete a specific file from the folder, 2. Delete specific type of files from the folder, 3. Delete all files from the folder

Productivity and Automation | Excel VBA and Macros

VBA Code to Change Cell Color

Byexcelsirji

VBA Code To Change Cell Color Excel supports more than 16 million colors in a cell; hence you should know how to set the exact color in a cell. To do this, you can use…

Data Analysis

Random Rows Selector Tool – Unprotected Version

Byexcelsirji

Random Rows Selector is an MS Excel based tool which can be used to pick random or stratified samples from a set of records available in Excel.

Excel Basics

Video – How to Use Conditional Formatting?

Byexcelsirji

This video will help you to understand how you may use conditional formatting to highlight row based on conditions. Subscribe us for more updates

Advanced Excel Techniques | Excel VBA and Macros | Productivity and Automation

Employee Database Tool

Byexcelsirji

Employee Database is an MS Access based tool to manage employee details. The tool supports upto 78 demographics for each employee such as Name, Location, Phone, Email, Address etc. The tool also comes with inbuilt attendance tracker to track daily attendance of employees. Over and above this, you can also design your own trackers and start using it.

5 Comments

Natasha Stephens says:

at

Any way to make this a function not a sub

Reply
1. excelsirji says:
  
  at
  
  Hi Natasha,
  
  It is not possible to access Interior property of Cells in Excel when using the code as Excel Function / Formula; hence the code needs to be manually called using a button.
  
  Regards
  ExcelSirJi Team
  
  Reply

Is there a way to span this macro to be applied to 25 different sheets in a workbook?

Hi Bob,

You can make use of following code to loop through each worksheet in the workbook and count the number of cells with conditional formatting.

Public Sub CountColorCells()
    'Variable declaration
    Dim rng As Range
    Dim lColorCounter As Long
    Dim rngCell As Range
    Dim wksSheet As Worksheet
    
    For Each wksSheet In ThisWorkbook.Worksheets
        'Set variable value to zero
        lColorCounter = 0
        'Set the range
        Set rng = wksSheet.Range("A2:A11")
        'loop throught each cell in the range
        For Each rngCell In rng
            'Checking Yellor color
            If wksSheet.Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.Color = RGB(255, 255, 0) Then
                lColorCounter = lColorCounter + 1
            End If
        Next
        'Display the value in cell A12
        wksSheet.Range("A12") = lColorCounter
    Next
    
End Sub

Arun says:

at

Hi There,

I want to count the conditionally formatted RED colored cells but its not working…

Range : D40 to D70
Sample Cell : K40
Total Cells : L40

Reply

VBA Code to Count Color Cells With Conditional Formatting

Count Color Cells With Conditional Formatting

Download Practice File

Recommended Articles

Similar Posts

5 Comments

Leave a Reply Cancel reply