Another Dumb Question From Me

[Dolemitefunk]

So I have this section of code

Set master = ActiveWorkbook
Set factors = master.ActiveSheet
Dim master As Workbook
Dim factors As Worksheet

Set Dest= Workbooks.Open("U:\Dolemitefunk\Testing\Test 1.xls")
Set DestSheet= Dest.Worksheets("Sheet 1")

factors.Range("C5:C66").Copy Destination:=DestSheet.Range("H14:H75")

run;

How would I get this to instead of copy and paste the cells, to link the "datasheet" to the active workbook?

Any help would be greatly appreciated

 

[Dolemitefunk]

bump::

Any help on this would be appreciated!!

 

[xenou]

It's somewhat unusual but you can paste a link using the paste method of the worksheet. Since you cannot give a destination when pasting a link, you must select the range of cells where you want to paste the links (in doing so, to avoid an error be sure to activate the workbook, the worksheet, and finally select the range:

Sub foo()

    Workbooks("Book2.xlsb").Worksheets("Sheet1").Cells(1, 1).Copy
    
    ThisWorkbook.Activate
    Sheet1.Activate
    Cells(1, 1).Activate
    Sheet1.Paste Link:=True

End Sub

As a matter of taste, you might instead just write the formula to the cell...

 

[Dolemitefunk]

Thank you for the response, I tried to copy the cell, but the cell has a formula in it, is it possible to set the destination cell equal to the corrosponding cell so that it is linked to the cell that has the formula as opposed to having the formula itself? I hope that made sense. Again thank you for your help

 

[xenou]

What is the code that you used?
ξ