color counting Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub CountColors()
    y = 0
    g = 0
    p = 0
    oth = 0
    For Each cell In Selection
        Select Case cell.Interior.ColorIndex
            Case 36 'yellow
                y = y + 1
            Case 35 'green
                g = g + 1
            Case 38 'pink
                p = p + 1
            Case Else
                oth = oth + 1
        End Select
    Next cell
    msg = y & " Yellow"
    msg = msg & vbCrLf & g & " Green"
    msg = msg & vbCrLf & p & " Pink"
    msg = msg & vbCrLf & oth & " Other"
    msg = msg & vbCrLf & "Total: " & Selection.Count
    MsgBox (msg)
End Sub
Function SUMIFCOLOUR(TheRange As Range, TheColourCell As Range) As Variant
    Dim TempRange As Range
    Dim Result
    Dim Colour
    Application.Volatile
    On Error GoTo BailOut
    Colour = TheColourCell.Interior.Color
    For Each TempRange In TheRange
        If Colour = TempRange.Interior.Color Then Result = Result + TempRange.Value
    Next
BailOut:
    SUMIFCOLOUR = Result
End Function
Function COUNTIFCOLOUR(TheRange As Range, TheColourCell As Range) As Varian
    Dim TempRange As Range
    Dim Result
    Dim Colour
    Application.Volatile
    On Error GoTo BailOut
    Colour = TheColourCell.Interior.Color
    For Each TempRange In TheRange
        If Colour = TempRange.Interior.Color Then Result = Result + 1
    Next
BailOut:
    COUNTIFCOLOUR = Result
End Function

No	Macro Name
1	color counting
2	collecting / counting colored cells (how many cells in the color I want)
3	excel operators hk
4	Highlight replicators from selection: This macro controls each cell of your selection and highlights duplicate values. You can also change the color of the code.
5	Show multiple repetitive values in a different color in your chosen area / find duplicates
6	watermark printing (faded font on sheet / page background)
7	cell-related codes
8	print command in workbook
9	Color the cell according to the words written in it
10	cleaning specific cells with one button
11	Highlight Less Than Values: After running this code, you will want the value for which you want to highlight all low values.
12	Highlight Over Values Highlight: After running this code, you will want the value you want to highlight all larger values.
13	write the number you want to be colored on the sheet / page in msgbox
14	collects selected fields in status bar
15	search color
16	select cell values with auto-color in specific table
17	Highlight the Top 10 Values: Select a range and run this macro and highlight the top 10 values with green.
18	a macro in a merged cell
19	Can the characters typed in the inputbox appear as "*****" (password or password characters)?
20	reduplicate

Excel Free Macros (VBA)

Color Counting

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords