Fill Cell Based on Value

[Jones1413]

Hello,

I have the below code to fill the cell color in column AF if the value of the cell equals 1. I also want to fill in cells in column AG if those cells equal 1. I don't know how to add in the code to do the same thing in column AG that it is doing in column AF.

Sub IT_Report()

Dim Offer As Long
Offer = Range("AF" & Rows.Count).End(xlUp).Row
Dim Offers As Range
For Each Offers In Range("AF2:AF" & Offer)
Select Case True
Case Offers.Value = "1"
Offers.Interior.Color = RGB(216, 228, 188)

End Select

Next Offers

End Sub

 

[JoeMo]

Try:

Sub IT_Report()
Dim Offer As Long
Offer = Application.Max(Range("AF" & Rows.Count).End(xlUp).Row, Range("AG" & _
    Rows.Count).End(xlUp).Row)
Dim Offers As Range
For Each Offers In Range("AF2:AG" & Offer)
    Select Case True
    Case Offers.Value = "1"
    Offers.Interior.Color = RGB(216, 228, 188)
End Select
Next Offers
End Sub