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) = "DY:DY"
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(OFFICECODESARRA Y(Y)).
SpecialCells(xlCellTypeConstants)
If Application.WorksheetFunction.CountIf(Sheets("Offi ce_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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/201005/1

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"

--
Best Regards,

Luke M
"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe wrote in message
news:a7da20cf1be4f@uwe...
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) = "DY:DY"
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(OFFICECODESARRA Y(Y)).
SpecialCells(xlCellTypeConstants)
If Application.WorksheetFunction.CountIf(Sheets("Offi ce_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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/201005/1