if statement to determine cell fill colour

[Legacy 93538]

Hi

I have written an If statement which sit's inside a loop which loops through a cell range. The if statement should look at the active cell in the cell range and should say if the cell fill colour of the cell in the previous column in the corresponding row is RGB 255 255 0 then paste the following in to the sheet variable PPCWBSht in column 4. However it seems to ignore this and go into the rest of the macro.

I might have written it wrong but i am not sure.

                If PPFWB.Sheets("IRFORM").Range(cell.Offset(, -1)).Interior.Color = RGB(255, 255, 0) Then
                    PPCWBSht.Cells(NRow, 4).Value = "Sum " & "F" & cell.Row & ":" & "R" & cell.Row

Does anyone know why this code would not work?
Thank you

jessicaseymour

 

[Legacy 93538]

Hi dont worry about it i figured it out i did write it wrong!

it should have been

If PPFWB.Sheets("IRFORM").Range(Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", cell.Column - 1, 1) & cell.Row).Interior.Color = RGB(255, 255, 0) Then

not:

If PPFWB.Sheets("IRFORM").Range(cell.Offset(, -1)).Interior.Color = RGB(255, 255, 0) Then