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
blog comments powered by Disqus