loop 4 column

[MR3]

i would like to write a loop that goes through column A data and says if its RED then go and change the interior color of that corresponding row(s) column G of that particular Row red as well.

After vba script (outcome I would like)

 

[villy]

Try...

Sub red()
With Application
    .ScreenUpdating = False
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Set A_Rng = Range("A" & i)    'Change range to suit yours
        Set F_Rng = Range("F" & i)    'Change range to suit yours
        Select Case A_Rng.Interior.ColorIndex
            Case 3
                F_Rng.Interior.ColorIndex = 3
            Case Else
        End Select
    Next
    .ScreenUpdating = True
End With
End Sub

 

[Datsmart]

Sub ColorColumnG()
Dim cell As Range
    LR = Range("A" & Rows.Count).End(xlUp).Row
    MyColor = 3
    For Each cell In Range("$A$1:A" & LR)
        If cell.Interior.ColorIndex = MyColor Then cell.Offset(0, 6).Interior.ColorIndex = MyColor
    Next cell
End Sub

 

[MR3]

thanks both codes work!

 

[villy]

thanks both codes work!

You're most welcome...