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
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