pasting formula on filter cell VBA

[jarri]

I having problems coping a formula to a filter data in Excel (using VBA). I know is because my formula is set on specific cells and when I run the macro it give and Error 1004.

Range(activecells, Range("S1").end(exldown)).Specialcells(Xcellstypevisible).select
Selection.cells. FormulaR1C1 ="IF R[-257]c[-11]="""",(if(R[-257]c[-10]>50,1000....

not sure what to do

Thank you

 

[HaHoBe]

Hi jarri,

maybe try this (although the use of ActiveCell with a given address might lead to unwanted results)

On Error Resume Next      'in case of error continue
With Range(ActiveCell, Range("S1").End(xlDown)).SpecialCells(xlCellTypeVisible)
  .FormulaR1C1 = "IF R[-257]c[-11]="""",(if(R[-257]c[-10]>50,1000...."
End With
On Error GoTo 0           'go back to normal error handling

Ciao,
Holger