Make URLs Into Live Links In Pivot Table?

[tomhouy]

I have a table with a column of URLs in it that I am using to create a Pivot Table. When I pull this column into the Pivot Table, I would like the individual URLs to be live links, so when I click on them, it will take me to those pages in my default browser.

I've tried making a new column in the table, to convert the URLs to live links (with a formula like "=HYPERLINK(A2,A2)" ), which works in the table, but not when I pull that new column into the Pivot Table.

Can this be done in a Pivot Table? And if so, what would be the best method?

 

[bobhc]

Good day tomhouy and welcome to the forum if you have not already done so please read this link,

http://chandoo.org/forum/threads/new-users-please-read.294/


You will find in the above link that it is common courteous and good manners to let members know that you have posted on other forums.

• Cross Posting, generally it is considered poor practice to cross post, that is to post the same question on several forums in the hope of getting a response quicker.
• If you do cross post, please put that in your post.
• Also, if you have cross posted and get an answer elsewhere, have the courtesy of posting the answer here so other readers can learn from the answer also, as well as stopping people wasting their time on your answered question.

http://www.mrexcel.com/forum/excel-...tables-include-live-links-external-sites.html


A pivot table is there to digest and throw out huge amounts of data, what you want to do is not designed for a pivot, try a dashboard.


This VBA code is supposed to do what you are after, but I AM NOT the author and as far as I know IT HAS NOT BE TESTED.



'=============================================================================
'- DOUBLE CLICK A CELL (string not a hyperlink) TO OPEN A WEB PAGE
'- Brian Baulsom October 2010
'- ** this macro goes into the Worksheet code module
'- right click the tab & View Code
'=============================================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim IE As Object
Dim MyURL As String
Const READYSTATE_COMPLETE As Integer = 4
On Error GoTo WebError
'------------------------------------------------------------------------
MyURL = ActiveCell.Value
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate MyURL
'---------------------------------------------------------------------
'- WAIT UNTIL THE WEB PAGE IS OPEN
Do Until .ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("0:00:01") ' WAIT 1 SECOND
DoEvents
Loop
End With
'-------------------------------------------------------------------------
Set IE = Nothing
Beep
Exit Sub
'-------------------------------------------------------------------------
WebError:
MsgBox ("Could not open " & MyURL)
End Sub
'=============================================================================






A
.