Menu

VBA - Count the number of colored cells

April 2018




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

Published by jak58. Latest update on July 18, 2010 at 09:17 AM by jak58.
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 (https://ccm.net/).
Excel/VBA - A command to select the last Sheet of a workbook
Network - Excel- path not found