Hi guys,
New to the forum.
Hoping you guys can help, i have searched the forum already but none of the solutions make sense to me.
I have attached a sample file along with an explanation of my problem:
So here goes, each cell needs to have a hyperlink to the same directory but the file name is dynamic. Is there any way to do this quicker instead of doing linking each cell?
Try this coded solution,
Place the code in a standard code module.
Sub Macro1() ' Dim rngCell As Range Dim strPath As String strPath = "C:\Documents and Settings\My Documents\" ' For Each rngCell In Range("A1", Cells(Rows.Count, 1).End(xlUp)).Cells ActiveSheet.Hyperlinks.Add Anchor:=rngCell, Address:=strPath & rngCell.Value, _ TextToDisplay:=rngCell.Value Next End Sub
Hi Andy,
Sorry, only got around to the solution now. Thanks for the response, it works in the sample problem sheet i attached, however when importing the module to another sheet(the original one), i get an error. Apparently the last two lines are invalid, but they work on the old sheet?
COPY DOWNB1=C:\Documents and Settings\My Documents\ C1=HYPERLINK(B1&A1,A1)
I need your support to add reputations if my solution works.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks