transferring hyperlinks across cells

[jonnyw74]

I have a document list on one worksheet which are hyperlinked. (150 docs)
I have another worksheet using formula to extract these documents into a shorter list but the hyperlink is not brought across, only the text.
Is there a piece of code,formula or format command to make the hyperlink copy across.

 

[Damon Ostrander]

Hi Jonnyw74,

Hyperlinks cannot be set by formulas or worksheet functions. There is a HYPERLINK worksheet function that enables following a hyperlink, but I do not believe this is what you want. Fortunately, it is quite easy to copy hyperlinks in VBA. The following line of code will copy a hyperlink from one cell to another. In this case from cell B4 on Sheet1 to cell A2 on Sheet2.

Sheet2.Hyperlinks.Add Sheet2.[a2], Sheet1.[b4].Hyperlinks(1).Address

If this example is not specific enough to your problem feel free to follow up.