A few words of thanks would be greatly appreciated.

VBA - Count the number of colored cells

Latest update on July 18, 2010 at 09:17 AM by jak58 .

Issue
Solution

Issue

I'm looking for VBA code under which we can determine the index of the last cell (predefined color) in a column columns.

Example: The column containing colored cells up to the line 650, how to get this 650?

Solution

Here is a small code, for this purpose:



Subcolor_count()
'for the test we will use a yellow background = 6 sur 20 ligne
' the last line is no 30

     a = Range("A1").Interior.ColorIndex
     col = CountColor_bacgroung(Range("A1:A120"), 6)
     s = MsgBox("the last cell is : " & col, vbInformation, " line of color")

End Sub

Function CountColor_bacgroung(Index As Range, Color As Long) As Long
Dim C As Variant

Dim X
X = 0
For Each C In Plage
    If C.Interior.ColorIndex = Color Then
    X = C.Row  
    End If
Next
CountColor_bacgroung= X
End Function

Thanks to Bidouilleu_R for this tip.

Count colored cells in excel without vba
Count colored cells in excel vba - Best answers
Count colored cells in excel with vba - Best answers
Excel vba color cell if value ✓ - Forum - Programming
VBA: Color cells in table based on multiple condition ✓ - Forum - Excel
Count conditional formatting colored cells - Forum - Excel
Excel vba pop up message depending on cell value ✓ - Forum - Excel
Excel vba send email to address in cell ✓ - Forum - Excel

This document, titled « VBA - Count the number of colored cells », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).

VBA Command to Select Last Sheet of Excel Workbook

Excel - Calculate the sum based on multiple criteria

Issue

Solution

Subscribe To Our Newsletter!