VBA - Count the number of colored cells
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.
Related
- 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).
Subscribe To Our Newsletter!
