listi.net

Listi.net

             


FormulaR1C1

ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(R[485]C[-1],Explanations!C[-6],1,FALSE)),0,1)"

Becomes

Range("J2").Select
ActiveCell.Formula = _
       "=IF(ISNA(VLOOKUP(I2,Explanations!D:D,1,FALSE)),0,1)"  


=IF(I7="","Never Rated",I7)


I copied it from the cell