Excel identificar celulas coloridas

[Netrox92]

Ola preciso da ajuda de vocês mais uma vez,

Estou precisando de um codigo que identifica todas celulas com certa cor e que ele pinte da mesma cor a celula a direita dela

Ex:

---- A ------

1 - Preto

2 - branco

3 - branco

4 - Preto

5 - branco

Nesse caso gostaria que pintase as celulas a direita das que estão na cor preta

ai ficaria

---- A ---------- B ---

1 - Preto ---- Preto

2 - branco ---- sem cor

3 - branco ---- sem cor

4 - Preto ---- Preto

5 - branco ---- sem cor

se alguem puder me ajudar ficarei grato

Obrigado abraços

[jeffsilveira]

Seguindo seu exemplo, o código abaixo pinta as células da direita de preto:

Sub Pintar()
    Dim lin As Long
    lin = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lin
        Cells(i, 1).Select
        If ActiveCell.Interior.ThemeColor = xlThemeColorLight1 Then
        ActiveCell.Offset(0, 1).Interior.ThemeColor = xlThemeColorLight1
        End If
    Next
End Sub

Mas se você quiser repetir todas as cores nas células da direita, use:

Sub Pintar()
    Dim lin As Long
    lin = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lin
        Cells(i, 2).Interior.Color = Cells(i, 1).Interior.Color
    Next
End Sub

Esses códigos funcionam até a última linha preenchida em A.

[Netrox92]

Ola jeffsilveira,

Obrigado pela resposta, mas eu esqueci de mencionar uma coisa, as celulas que precisam ser verificadas estão em ("A1:F30")

Tem como verificar em uma area dessas?

[jeffsilveira]

Poste sua planilha para facilitar a visualização.