What is the most number of consecutive colors.

Dear Sixthsense,

I did the wrong test.
The first summer of the year, even if the macros incorrect.

if you don;
E: K is red all data from
value of "0" is doing.
Yet the value "7" will be.

It also handles empty cells will take.
(Empty cells will be traded.)
(Skip empty cells)


This macro message: 11

Sub GetMax()
Dim iColor As Integer, lTemp As Long, lMax As Long, lEndRw As Long, i As Long
Dim rMyRng As Range, r As Range

lEndRw = Cells(Rows.Count, "E").End(xlUp).Row
Set rMyRng = Range("E1:K" & lEndRw)

For i = 2 To lEndRw
    For Each r In rMyRng.Rows(i).Cells
        If r.Font.ColorIndex = 3 Then
            lTemp = lTemp + 1
        Else
            If lTemp > lMax Then lMax = lTemp
            lTemp = 0
        End If
    Next r
    Cells(i, "B").Value = lMax
    lMax = 0
Next i

End Sub

Try this...

Sub GetMax()
Dim iColor As Integer, lTemp As Long, lMax As Long, lEndRw As Long, i As Long
Dim rMyRng As Range, r As Range, x As Byte, sCol As String

lEndRw = Cells(Rows.Count, "E").End(xlUp).Row
Set rMyRng = Range("E1:K" & lEndRw)

For x = 1 To 2
    sCol = "A": iColor = -4105 'For Black
    If x = 2 Then sCol = "B": iColor = 3 'For Black
    
    For i = 2 To lEndRw
        For Each r In rMyRng.Rows(i).Cells
            If r.Value <> "" Then
                If r.Font.ColorIndex = iColor Then
                    lTemp = lTemp + 1
                Else
                    If lTemp > lMax Then lMax = lTemp
                    lTemp = 0
                End If
            End If
        Next r
        Cells(i, sCol).Value = lMax
        lTemp = 0
        lMax = 0
    Next i
Next x

End Sub