VBA Code to Sum Cells By Color

Recently some of our subscribers have requested us to share a VBA code that can sum the cells by its color. To help our subscribers and developers, we are sharing 2 codes that be used to sum the cells with specific color and returns the total sum of the matching color cells

First VBA Code to Sum Cells by Color

Public Function SumByColor(rng As Range, Red As Long, Green As Long, Blue As Long) As Double

    'Variable declaration
    Dim dblSum As Double
    Dim rngCell As Range
    
    'Loop throught each cell in the range
    For Each rngCell In rng
        'Checking and sum color
        If rngCell.Interior.Color = RGB(Red, Green, Blue) Then
            If IsNumeric(rngCell.Value) = True Then
                dblSum = dblSum + rngCell.Value
            End If
        End If
    Next
    
    'Return the value
    SumByColor = dblSum
    
End Function

Second VBA Code to Sum Cells by Color

Public Function SumByColor(rng As Range, ColorCell As Range) As Double

    'Variable declaration
    Dim dblSum As Double
    Dim rngCell As Range
    
    'Loop throught each cell in the range
    For Each rngCell In rng
        'Checking and sum color
        If rngCell.Interior.Color = ColorCell.Interior.Color Then
            If IsNumeric(rngCell.Value) = True Then
                dblSum = dblSum + rngCell.Value
            End If
        End If
    Next
    
    'Return the value
    SumByColor = dblSum
    
End Function

Note It is worth to mention that both the above codes do not count the cells where colors are coming through conditional formatting.

How can I use this VBA code?

If you want to use this code in your VBA tool, then follow below steps:

Step 1: Open the Excel file in which you want to copy this code

Step 2: Press Alt+F11 to open VBA editor

Step 3: Insert a new module from Insert > Module menu

Step 4: Paste the code in the module

Step 5: Now you are ready to use this code as Excel Function/Formula

Step 6: Type the formula in the cell where you want to get the sum specific colored cells

First Code Example: =SumByColor(A2:A11,146, 208, 80)

The first parameter of the formula is the range from which you want to sum the specific color cells. The second, third and fourth parameters are RGB code of the color.

Second Code Example: =SumByColor(A2:A11,A3)

The first parameter of the formula is the range from which you want to sum the specific color cells. The second parameter is the cell from which you want to compare the color.

Note: In the first VBA code, we have used RGB color codes to find the matching cells and sum the values. You can find RGB codes of any color using following steps:

Step 1: Select the cell which contain the color you want to use

Step 2: Right click and select ‘Format Cells…’

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

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

Thanks for reading the article, subscribe us to get more VBA tricks

Download Practice File

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

Recommended Articles

VBA Code to Add Border to Excel Range

Byexcelsirji

Through formatting the cells, you can make your Excel data more beautiful and easier to understand. If you record a macro to add borders to Excel range, you will notice that it generates 30 plus lines of code for just a small work. Here we are sharing one line of code which does the same thing.

Excel VBA and Macros | Productivity and Automation

VBA Code to Hide Menu Ribbon in MS Access

ByKailash Sharma

VBA CODE TO HIDE MENU RIBBON IN MS ACCESS In MS Access, there are multiple ways to protect your code or tool from un-authorized access and edits. Some developers prefers to hide MS Access ribbons…

Advanced Excel Techniques

Time Management Tools and Trackers

ByPradeep Kumar

Time Management is very effective way of managing the available time. Current competitive world is making the time management crucial. There are various ways, tools and techniques by which time management can be done easily.

Excel VBA and Macros | Productivity and Automation

VBA Code to Sort Data

Byexcelsirji

VBA Code to Sort Data HERE IS A ONE LINE CODE FOR DEVELOPER’S REFERENCE WHICH CAN BE USED TO SORT DATA ‘Sort data in ascending order on Column F (Created At) Sheet1.Range(“A1:G” & Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row).Sort Key1:=Sheet1.Range(“F1”),…

Productivity and Automation | Excel VBA and Macros

VBA Code to Get User Name

Byexcelsirji

This Excel VBA Code helps to Get User Name. Here is an example environ(username) or Application.username.This macro gets the username from active directory.

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

2 Comments

Hi,

How to Count (D71) CONDITIONALLY FORMATTED RED COLOR CELL only (D40:D70)?

Pls guide…

Thanks

excelsirji says:

at

If you want to count from single cell then formula will be =SumByColor(D71,256,0,0)

Reply

VBA Code to Sum Cells By Color

First VBA Code to Sum Cells by Color

Second VBA Code to Sum Cells by Color​

How can I use this VBA code?

Download Practice File

Recommended Articles

Similar Posts

2 Comments

Leave a Reply Cancel reply

Second VBA Code to Sum Cells by Color