Filter list then change cell value in results

[StuLux]

I am trying to filter a list of records by the value in a cell and then (for the filtered result(s)) change the value in column Y just for the filtered results. This is the code I have at present which filters the records OK but I can't fathom what I need to do to ensure I only chnage the value of the cell(s) in column Y?

ActiveSheet.Range("$A$1:$DC$5000").AutoFilter Field:=1, Criteria1:="GI255"
[COLOR=red]'After filtering I want to change the value in column Y for only the filtered entries[/COLOR]CODE]

 

[njimack]

ActiveSheet.Range("$A$1:$DC$5000").AutoFilter Field:=1, Criteria1:="GI255"
Range("Y2:Y5000").SpecialCells(xlCellTypeVisible).Value = "Your value here"

 

[StuLux]

That works great thanks - initially it was changing some blank cells as well so I changed the range to ensure it only went to the last record using a variable ctRAG. I'm now having a problem when there is no valid record to be filtered - the code in red is my attempt to check whether there are any visible cells but this doesn't work - any suggestions?

Sheets("CMT_RAGs").Select
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$V$186").AutoFilter Field:=2, Criteria1:=ProjPRN
[COLOR=red]If Range("V2:V" & ctRAG) Is Not Null Then[/COLOR]
Range("V2:V" & ctRAG).SpecialCells(xlCellTypeVisible).Value = "CONFIDENTIAL PROJECT"
End If

 

[njimack]

Try changing "Null" to "Nothing"

 

[StuLux]

Worked a treat, thanks.