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
- VBA - Count the number of colored cells
- Count the number of colored cells in excel - Forum - Excel
- Excel vba color cell based on value ✓ - Forum - Programming
- VBA: Color cells in table based on multiple condition ✓ - Forum - Excel
- Sum colored cells in excel without vba ✓ - Forum - Excel
- Vba color cell based on value - 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).