• Making Pivot Table Hyperlinks Clickable

    If you’ve ever built a PivotTable that contains hyperlinks, you’ll notice that clicking the hyperlinks doesn’t do anything. This can be a bit frustrating as the reason you put that field on the Pivot in the first place is that it’s valuable information you want to use. When you click the hyperlink, you kind of expect it to open!
    Fortunately, even though hyperlinks don’t work in PivotTables by default, we can make it work with just a tiny bit of VBA code.

    Example

    Let’s assume that you have a PivotTable set up like the following:

    Adding the code

    To add the required code, you’re going to need to know two things:

    1. The name of the file you’re working in. This example is based on a file called “Reconciliation.xlsm”
    2. The worksheet that your PivotTable lives in. In this case, it’s “Summary”

    Now, knowing that, let’s make this work:

    • Press Alt+F11 to open the Visual Basic Editor
    • If the Project Explorer (window 1 in the image below) isn’t showing, press CTRL+R to show it
    • Drill down into your workbook and expand the “Microsoft Excel Objects”
    • Locate the worksheet that holds your PivotTable and double click it

    At this point, it will activate the correct code pane for you to past your code into (marked as 2, above). Simply copy the following code and paste it in there after the last line that start with “Option” (if any exist):

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count = 1 Then
            On Error Resume Next
            ActiveWorkbook.FollowHyperlink _
                Address:=CStr(Target.Value), _
                NewWindow:=True
            On Error GoTo 0
        End If
    End Sub
    Finally:

    • Close this window to return to Excel
    • Save the file

    Now you can click on any cell in the worksheet. If it has a valid hyperlink, it will open it for you!

    Caveats

    Using macros blows Excel’s Undo stack. Clicking any cell on this worksheet will cause the Undo actions to clear. It’s nothing serious, just something to be aware of.

    Also, keep in mind that this will only work on this specific worksheet. If you’d like to modify the routine to work on any worksheet, our forums are a good place to ask for help.

     

    I'm afraid that you must be logged in to comment or leave a testimonial. I wish it could be otherwise, but I'm trying to keep my site spam free for everyone's benefit. If you don't yet have an account it's completely free to sign up, and a very quick process. Simply click here to Register. Not only can you post a comment here, but it gives you full access to posts questions in our forum as well!

     

    If you already have an account, and just haven't logged in yet, what are you waiting for? Login Now!

    Comments 1 Comment
    1. jsk685's Avatar
      jsk685 -
      Thanks, the code worked perfectly.
      I appreciate your knowledge!
  • MVP Logo
  • Recent Forum Posts

    Logit

    unduplicated list

    If you also include the "Check Run Date" column in the table as well, that will provide a means of selecting which month.

    Code:
    
    
    ...

    Logit Today, 04:35 PM Go to last post
    BuddyGSD

    unduplicated list

    Is there a way for excel to gather the names of the families from the month of April and May to appear on the Undup Clients tab then?...

    BuddyGSD Today, 04:08 PM Go to last post
    NoS

    Sum cells in each generated row

    Along with writing the form data to the sheet you could write a formula into the O column

    Code:
    Cells(whateverrow, 15).FormulaR1C1="=SUM(RC[-9]:RC[-1])"
    ...

    NoS Today, 02:27 PM Go to last post
    p45cal

    If overide formulae

    Array-enter (Ctrl+Shift+Enter, not just Enter) and copy down:
    =INDEX({"Fail";"Risk";"Pass"},MIN(MATCH(T2:U2,{"Fail","Risk","Pass"},0)))...

    p45cal Today, 12:14 PM Go to last post
    jonespandrew

    If overide formulae

    Sorry I have read you last response wrong Write

    Fail Risk would be a fail
    Risk pass would be a Risk
    Risk Fail would be a fail...

    jonespandrew Today, 11:14 AM Go to last post