Windows 7 Forums
Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.

Windows 7: Excel experts, is this an impossible task?

29 Nov 2010   #1

Excel experts, is this an impossible task?

Okay, this is a bit strange and I can't think of any way this could work, but maybe the internet can surprise me...

I have data (text, not numbers) in Sheet1. I concatenate it into Sheet2 as part of a hyperlink. How can I make it so that the whole workbook is only Sheet2 with working hyperlinks? (Yes, I have a practical application of this)

Sheet1!A1 says: page
Sheet2!A1 says: =HYPERLINK(CONCATENATE("",Sheet1!A1),Sheet1!A1)
Sheet2!A1 actually reads: "page", and it has a hyperlink to ""

Now, how can I condense the workbook to ONLY Sheet2, maintaining not only the text referenced from Sheet1, but the working hyperlinks as well?
So the workbook will have ONE page with cell A1 reading "page" and hyperlinking to ""

Does that make sense?
Is it even possible?

My System SpecsSystem Spec
30 Nov 2010   #2


Solved on here.

Here's the solution:

Public Sub Example()
Dim rngC As Range
Dim lngEndPos As Long
Dim strURL As String, strFriendly As String
For Each rngC In Sheets("Sheet2").Cells.SpecialCells(xlCellTypeFormulas).Cells
With rngC
If UCase(Left(.Formula, 11)) = "=HYPERLINK(" Then
lngEndPos = InStrRev(.Formula, ",")
strURL = .Parent.Evaluate(Mid(.Formula, 12, lngEndPos - 12))
strFriendly = .Text
.Hyperlinks.Add .Cells(1), strURL, , , strFriendly
End If
End With
Next rngC
End Sub

Thanks to DonkeyOte over there!
My System SpecsSystem Spec

 Excel experts, is this an impossible task?

Thread Tools

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 07:17 AM.
Twitter Facebook Google+

Windows 7 Forums

Seven Forums Android App Seven Forums IOS App