Input in Column IV if countif satisfied

[FIRSTROUNDKO via OfficeKB.com]

Hi,

I am trying to input "WRONG" in COLUMN IV if the countif changes the cell
colour.

this part of the code is not working though

Range("IV" & ActiveCell.Row) = "WRONG" 'MY FAILED CODE

My full code: -



OFFICECODESARRAY(1) = "DYY"
OFFICECODESARRAY(2) = "EL:EL"
OFFICECODESARRAY(3) = "EQ:EQ"
OFFICECODESARRAY(4) = "HT:HT"
OFFICECODESARRAY(5) = "HV:HV"

For Y = 1 To 5 Step 1
For Each cell In Sheets("Import_Data_Here").Columns(OFFICECODESARRAY(Y)).
SpecialCells(xlCellTypeConstants)
If Application.WorksheetFunction.CountIf(Sheets("Office_codes").Range("A1:
A700"), cell.Value) > 0 Then
Else
cell.Interior.ColorIndex = 6 'Validate Yellow
Range("IV" & ActiveCell.Row) = "WRONG" 'MY FAILED CODE
End If
Next cell
Next Y

Thanks in Advance

 

[Luke M]

Do you really mean to refer to the ActiveCell? If there is no active cell,
this could cause problems...perhaps you meant:
Range("IV" & cell.Row) = "WRONG"