URL through Pivot Table

newdelhi01

New Member
Joined
Oct 12, 2010
Messages
1
Hi
I have an excel sheet with data about products and live web url links. The data is Part#,Description,Price,Category and a live web URL. When the users click on the URL it takes them to the actual web page. When I pivot the same data, the URL links get converted to text and donot have a click option to take the user to the web page. I am attaching a screen shot of the pivot. How can I make the URL as active live links so that the user can reach the web page through the Pivot also
http://i1223.photobucket.com/albums/dd514/newdelhi01/Pivot.jpg

Any help is deeply appreciated

Thanks
 

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
Hopefully this will do what you want :-
Code:
'=============================================================================
'- 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
'=============================================================================
 
Upvote 0

Forum statistics

Threads
1,223,239
Messages
6,170,947
Members
452,368
Latest member
jayp2104

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top