Variável que liga e desliga

Fala Felipe, tudo bem ?

Pelo que vi, você pensou certo .. Mas fica difícil ver o porque não está rolando se não dermos uma olhada no código. Você poderia colocar aqui pra gente dar uma olhada?

Abraço!

Rafael, o código já está salvo na planilha que mandei o link (será necessário ver a planilha pra entender o código que fiz).

De qualquer forma estarei colocando aqui:

Sub PintaLinhas()
'
'
' Pinta as linhas conforme o código.

Application.ScreenUpdating = False

Dim linha As Integer
Dim linhafim As Integer
linha = 6
linhafim = Range("b1048576").End(xlUp).Row

    Do While linha <= linhafim

        If Cells(linha, 5).Value = 0 Then

            Cells(linha, 1).Select
            Range(Selection, Selection.End(xlToRight)).Select
            With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
            .PatternTintAndShade = 0
            End With
            linha = linha + 1

        Else

            Cells(linha, 1).Select
            Range(Selection, Selection.End(xlToRight)).Select
            With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.149998474074526
            .PatternTintAndShade = 0
            End With
            linha = linha + 1

        End If

    Loop

Application.ScreenUpdating = True

End Sub

Não consegui baixar a planilha. Tem algum drive onde possa compartilhar o arquivo ?

Tenta neste link: https://www.mediafire.com/?d2kucz3kor80r7n

O que esta coluna auxiliar está fazendo? O que ela auxilia?

Eduardo, a coluna auxiliar (E) está com a seguinte fórmula do excel: SE(ÉPAR(SE(B7<>B6;E6+1;E6));0;1).

Essa fórmula verifica se o código da linha de cima é diferente da linha atual, se sim, retorna o valor binário (1 ou 0).

Baseando nesse valor binário que a macro está pintando a linha de cinza ou branco, pois veja que no "IF" que utilizei (que postei anteriormente) a condição utilizada é se o valor da célula na coluna E é 0 ( If Cells(linha, 5).Value = 0).

O que eu pretendo fazer é guardar esse valor binário numa variável, para não precisar mais dessa coluna auxiliar, mas não estou conseguindo.

Na hora do almoço vou baixar sua planilha e tentar entender.

Me tira uma dúvida aqui. As que forem repetidas ficam cinza e as que não forem ficam branca, é isso?

Rapaz tenta substituir sua macro por essa:

Sub PintaLinhas()
'
'
' Pinta as linhas conforme o código.

Application.ScreenUpdating = False

Dim linha As Integer
Dim linhafim As Integer
linha = 6
linhafim = Range("b1048576").End(xlUp).Row

    Do While linha <= linhafim
    If (Cells(linha, 2).Value <> Cells(linha - 1, 2).Value) And (Cells(linha, 2).Value <> Cells(linha + 1, 2).Value) Then

        Cells(linha, 1).Select
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
        End With
        linha = linha + 1

    Else

        Cells(linha, 1).Select
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
        End With
        linha = linha + 1

End If

Loop

Application.ScreenUpdating = True

End Sub

Perdão, amigo, antes não estava intercalando as cores. Agora acho que está intercalando. Veja se dá certo isso aí:

Sub PintarCelulas()
'
'
' Pinta as linhas conforme o código.

Application.ScreenUpdating = False

Dim linha As Integer
Dim linhafim As Integer
Dim testeDeCor As Integer

testeDeCor = 0
linha = 6
linhafim = Range("b1048576").End(xlUp).Row

    Do While linha <= linhafim
    If (Cells(linha, 2).Value <> Cells(linha - 1, 2).Value) And (Cells(linha, 2).Value <> Cells(linha + 1, 2).Value) Then
        testeDeCor = testeDeCor + 1
        Cells(linha, 1).Select
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1

        If testeDeCor Mod 2 <> 0 Then
            .TintAndShade = 0
        Else
            .TintAndShade = -0.149998474074526
        End If

        .PatternTintAndShade = 0
        End With

        linha = linha + 1

    Else
        If Cells(linha, 2).Value <> Cells(linha - 1, 2).Value Then
            testeDeCor = testeDeCor - 1
        End If

        Cells(linha, 1).Select
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1

        If testeDeCor Mod 2 <> 0 Then
            .TintAndShade = 0
        Else
            .TintAndShade = -0.149998474074526
        End If

        .PatternTintAndShade = 0
        End With
        linha = linha + 1

End If

Loop

Application.ScreenUpdating = True

End Sub

Funcionou perfeitamente Eduardo, obrigado pela ajuda.