lejari7000
New Member
- Joined
- Apr 2, 2012
- Messages
- 5
Hi all, I am trying to insert this indirect formula and have it copied over multiple rows but obviously I can't drag it down or each cell references the exact same cell as opposed to the one underneath it. The problem appears to be that I don't know how to properly insert the rnum variable into this function. Any ideas?
Sub rform()
Dim rnum As Integer
rnum = 14
For r = 52 To 300
Cells(r, 1).Select
ActiveCell.FormulaR1C1 = "=INDIRECT( ""'Trading Platform'!A['&rnum&']"")"
rnum = rnum + 1
Next
End Sub
Sub rform()
Dim rnum As Integer
rnum = 14
For r = 52 To 300
Cells(r, 1).Select
ActiveCell.FormulaR1C1 = "=INDIRECT( ""'Trading Platform'!A['&rnum&']"")"
rnum = rnum + 1
Next
End Sub