Count and report the number of red colored cells in a row
 

Hello,

I like to get a module which gives me the number of background red colored cells within each row (a loop)

Row 2 till last
The number of red colored cells in this row to report in column B.
The range to look at is in active row column C till F and in the same row also in column K till S.

If in the first range 1 cell is colored red and in the other range 3 cells, then in this row column B should be reported 1+3 - 4.

If somebody can help me out.

THANKS.

regards, Johan

Count and report the number of red colored cells in a row
 

Hi Johan,

Am Sat, 19 Nov 2016 00:14:23 -0800 (PST) schrieb :

Row 2 till last
The number of red colored cells in this row to report in column B.
The range to look at is in active row column C till F and in the same row also in column K till S.

try:

Sub CountColor()
Dim myRng As Range, rngC As Range
Dim LRow As Long, i As Long, Counter As Long

With ActiveSheet
LRow = .Cells(.Rows.Count, "C").End(xlUp).Row
Set myRng = .Range("C2:F" & LRow & ",K2:S" & LRow)
For i = 2 To LRow
Counter = 0
For Each rngC In Intersect(myRng, Rows(i))
If rngC.Interior.Color = vbRed Then
Counter = Counter + 1
End If
Next
.Cells(i, "B") = Counter
Next
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016

Mua sắm an toÃ*n vÃ* tiện lợi vá»›i hình thức giao hÃ*ng nháº*n tiá»�n của chúng tôi. Má»�i thứ bạn cần được Ä‘Æ°a đến báº*c cá»*a nhÃ* bạn chỉ sau 1 cú nhấp chuá»™t
_________________
kinky videos

https://t.co/3x41dVyRLl

Count and report the number of red colored cells in a row
 

On Saturday, November 19, 2016 at 9:14:30 AM UTC+1, wrote:
Hello,

SuperThanks. Works !!

regards,
Johan