Relative Reference

[liseladele]

I've recorded the following macro:

Sub 2()
'
' 2 Macro
' Macro recorded
'
' Keyboard Shortcut:
'
Dim i As Integer
i = 4
Do
ActiveCell.Formula = "=Q6/(HLOOKUP($R$2, $C$3:$O$40, (" & i
")))"
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop Until IsEmpty(ActiveCell.Offset(1, 0))
'
End Sub

My problem is I need the Q6 in the formula to correspond w/ whateve
row it is in. So in row 7 it should be Q7 and in row 8 it should be Q
and so on. I believe this is called relative reference...but I can'
figure out how to make it work. Can anybody help?

Thanks in advance!![/FONT

 

[Guest]

Sub 2()
'
' 2 Macro
' Macro recorded
'
' Keyboard Shortcut:
'
Dim i As Integer
i = 4
Do
ActiveCell.Formula = "=Q" & activecell.row & _
"/(HLOOKUP($R$2, $C$3:$O$40, (" & i & ")))"
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop Until IsEmpty(ActiveCell.Offset(1, 0))
'
End Sub

 

[Guest]

ActiveCell.Formula = "=Q" & activecell.row & _
"/(HLOOKUP($R$2, $C$3:$O$40, (" & i & ")))"