VBA Code to update If Formula on a cell

[shreyanshshah2]

Hi, I am trying to update a formula on a cell using VBA. so far this is my Code
the formula I need is this
=IF('Data'!F42=B10,"X","")
Dim i As Integer

i=1

Do While i <= 1000

ActiveSheet.Range("C10").Select
ActiveCell.Formula=_
"=IF(('Data'!" & Cells(i +41,6))= B10,""X"","""")"

But i am getting an error. Please help me with this

 

[Osvaldo Palmeiro]

Hi.
I didn't quite understand what you want. Do you want to enter this formula in the range C10: C1010, is it?
If so, try this bit of code.

Sub InsertFormula()
 Range("C10:C1010").Formula = "=IF('Data'!F42=B10,""X"","""")"
End Sub