Раскраска всей строки не работает с VBA

Question

Я пытаюсь раскрасить целые строки на основе значений из строки, но ничего не происходит.

Столбец AA заполнен значениями от ColorIndex.

 Sub color()

  Dim color As Integer

  For Each cell In Sheets(1).Range("AA2:AA7000")

    If cell.Value = 6 Then
    ColorIndex = 6

        ElseIf cell.Value <> 6 Then ColorIndex = -4142

    End If

    cell.EntireRow.Interior.ColorIndex = color

nextcell:

  Next cell

End Sub

Кто-нибудь знает, что я делаю не так?

Answer 1

Полагаю, вы хотели бы сделать что-то подобное

Sub color()

    Dim color As Long
    Dim cell As Range

    For Each cell In Sheets(1).Range("AA2:AA7000")

        If Not IsEmpty(cell) Then

            If IsNumeric(cell.Value) Then

                If cell.Value = 6 Then
                    color = 6
                ElseIf cell.Value < 35 Then
                    color = -4142
                Else
                    color = cell.Value
                End If
                cell.EntireRow.Interior.ColorIndex = color

            End If
        End If

    Next cell

End Sub