For example, I have descriptions in C1:C10. I would like to turn these into hyperlinks that link to every 61 rows on the same sheet.
Example:
C1 links to A61
C2 links to A122
C3 links to A183
and so on...
Is this possible?
Thank you
For example, I have descriptions in C1:C10. I would like to turn these into hyperlinks that link to every 61 rows on the same sheet.
Example:
C1 links to A61
C2 links to A122
C3 links to A183
and so on...
Is this possible?
Thank you
How about this pasqualebaldi?
Sub linkage() Dim ws As Worksheet Dim i As Long Set ws = Worksheets("Sheet2") 'change to correct sheet name For i = 1 To 10 ws.Hyperlinks.Add Anchor:=ws.Range("C" & i), Address:="" & ws.Range("A" & i * 61).Text & "" Next i End Sub
Please help by:
Marking threads as closed once your issue is resolved. How? The Thread Tools at the top
Any reputation (*) points appreciated. Not just by me, but by all those helping, so if you found someone's input useful, please take a second to click the * at the bottom left to let them know
There are 10 kinds of people in this world... those who understand binary, and those who don't.
I was doing a little more research and I might be able to incorporate a hyperlink match function. I've never used one before, so if I cant get it to work, then I will definitely go with this macro.
This is my function so far, but it is not working.
On Sheet2 I'm trying to look up a list on Sheet1 and if any value in Sheet2 column B matches, then link to that match.=HYPERLINK("#"&"Sheet2!" & ADDRESS(MATCH(Sheet1!C8,'Sheet2'!B:B),2), Sheet1!C8 )
What am I doing wrong?
Sub MakeHypers() Dim i As Integer Dim r As Long Dim vTxt, vSht, vAddr vSht = ActiveSheet.Name For i = 1 To 10 r = r + 61 vTxt = Range("C" & i).Value If vTxt = "" Then vTxt = "Link" vAddr = vSht & "!" & "A" & r ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:=vAddr, TextToDisplay:=vTxt Next End Sub
Oh haha, my bad, you wanted to link TO the cells, not use their content...
Try this ... replace BOOK! with your workbook name
=HYPERLINK("[Book1]Sheet2!" & ADDRESS(MATCH(Sheet1!B8,Sheet2!B:B,0),2,2,1))
Enter this formula in D1 and copy down as needed:
=HYPERLINK("#A"&ROWS(D$1:D1)*61,"Go")
Biff
Microsoft MVP Excel
Keep It Simple Stupid
Let's Go Pens. We Want The Cup.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks