Values in a single row to be equal to values of a column

[ExcelJWS]

Hi guys,


So I want values in a single row to be equal to values elsewhere that are in a single column. So If I change the values in the column the values in the row automatically change.
I've had an attempt at a solution, but isnt working:
Thanks everyone!



Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'

Dim Ccc As Long
Dim Rrr As Long
Dim xxx As Long


For i = 1 To 50

Ccc = -16 - i
Rrr = i - 1
xxx = 22 + i

ActiveCell.FormulaR1C1 = "=Sheet7!R[Rrr]C[Ccc]"
Cells(xxx, 3).Select

Next i
End Sub

[HaHoBe]

Hi, ExcelJWS,

please have a look at Forum Rule#3 to understand why you are asked to apply code-tags to your procedure.

Ciao,
Holger