VBA Background color if?

[jamada]

Hi

Col H has every second row colored with a grey scale backround.

For each of the rows colored I would like Columns I and J to also match the backround color in Col H?.


Or for that matter, I would like to have Columns I:J match the back ground colors of identical rows in column H.

Is this easy?

Tks jamada

 

[MARK858]

Possibly...

Sub xxx()
    Range("H1:H" & Range("H" & Rows.Count).End(xlUp).Row).Copy
    Range("I1:J" & Range("H" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteFormats)
    Application.CutCopyMode = False
End Sub

or

 Sub xxx2()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("I1:J" & Range("H" & Rows.Count).End(xlUp).Row)
        c.Interior.ColorIndex = c.Offset(, -1).Interior.ColorIndex
    Next
    Application.ScreenUpdating = True
End Sub

depending if there is other formatting you want copied or not. Test on a copy of your sheet.
Or just use the format painter.

 

[jamada]

Hi Mark ........ Your code worked fantastic...... Tks Veru Much!
Jamada