Replacing Filtered Results

[waxb18]

Im writing a macro...
So far i have applied the filter and filtered out the results i dont need to look at...

I now need to replace the contents of the results in column D with "CANX"...

This is what i have:

ActiveSheet.Range("A:Q").AutoFilter Field:=4, Criteria1:="<>CANX", _
Operator:=xlAnd, Criteria2:="<>COMP"

Range("D1").End(xlDown).Select

ActiveCell.FormulaR1C1 = "CANX"
With ActiveCell.Characters(Start:=1, Length:=4).Font
.Name = "MS Sans Serif"
.FontStyle = "Regular"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With

 

[baitmaster]

try

Range("D1").End(xlDown).specialcells(xlcelltypevisible).value = "CANX"

instead of SELECT and the entire last section of your code after it

 

[waxb18]

this has filled every cell with in the sheet with CANX
???

 

[Richard Schollar]

Try:

With Activesheet.Autofilter.Range
  Intersect(.Offset(1).Resize(.Rows.Count-1),Range("D:D")).SpecialCells(xlCellTypeVisible).Value = "CANX"
End With

 

[waxb18]

Lovely

THANX :D