VBA Auto fill visible cells

[opazzo]

Hi there,

Must be something wrong with the syntax as I get a runtime error 1004 : "Autofill method of range class failed".

Here is my code :

Range("X6").FormulaR1C1 = "=IF(ISNA(RC[16]),"""",RC[16])"
Range("X6").AutoFill Destination:=Range("X6:X" & Lastrow).SpecialCells(xlCellTypeVisible)

What I am trying to do is to autofill a formula to a filtered list. Of course I want the formula copied only in the visible cells.

As much as possible I don't want to define my range as a variable, as I need to do the operations on many different columns.

Appreciate some light on this error. Thanks

 

[AlphaFrog]

Try this...

Range("X6:X" & Lastrow).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=IF(ISNA(RC[16]),"""",RC[16])"

 

[p45cal]

Simplify it:

Range("X6:X" & LastRow).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=IF(ISNA(RC[16]),"""",RC[16])"

 

[opazzo]

Works perfectly. Thanks to both of you