Link column of sheet 1 with sheet 2 using VBA

[ACCA369]

Samples
34
12
6
16
14
23
5
14
27
12
17
0
35
30
23
18
32
13
29
22
34
34
27
31
18
20
11
4
25
32
12
0
32
7
1
32


Above data are from sheet1 ,
Pls help me to link all these data to sheet 2 using vba

 

[Joe4]

I think we are missing some very important details!

What do you mean by "link"?
Do you want to create formula reference for each one?, i.e.
=Sheet1!A1

If so, in what range on Sheet1 does the data exist, and in what range on Sheet2 do you want to put these formulas?

If you just want to copy the data, we need the same information regarding ranges.

 

[ACCA369]

I think we are missing some very important details!

What do you mean by "link"?
Do you want to create formula reference for each one?, i.e.
=Sheet1!A1

If so, in what range on Sheet1 does the data exist, and in what range on Sheet2 do you want to put these formulas?

If you just want to copy the data, we need the same information regarding ranges.

1) Yes, create formula reference using VBA
2) sheet 2 range same as sheet 1
3) sheet 1 range (a:a)

 

[Joe4]

Try this:

Sub MyAddLink()

    Dim lr As Long
    
'   Find last row on Sheet1 in column A with data
    lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
    
'   Populate sheet2 with formulas
    Sheets("Sheet2").Range("A1:A" & lr).FormulaR1C1 = "=Sheet1!RC"

End Sub

 

[Joe4]

It seems now that you have posted this question in at least 3 different threads.
Please STOP starting the threads on the same issue! As rules state, all posts should be made back to the original thread.

Original thread: VBA - link sheet 1 and sheet 2 with autofill formula in sheet 2