Auto Hyperlinking

[Takron]

Is there some way to make text in a cell auto hyperlink to a search engine when you type it in? Instead of manually linking each text to the site?

 

[Takron]

Bump

 

[Takron]

Bump

 

[Norie]

Not totaly sure what you mean.

If you have the 'base' URL for the search and the search term(s) then you should be able to concatenate them to get the required URL for the search.

Then you can use the HYPERLINK worksheet function to turn that into a hyperlink.

PS Excel might turn it into a hyperlink anyway, but just to be sure that you get the right hyperlink probably best to use HYPERLINK.

 

[Takron]

Let's say that I type Splicing into the cell. I want to be able to set it up so the cell auto links the Splicing word so when you click on it, it takes you to the search engine and searches for Splicing.

 

[Norie]

So where does the URL for the search come from?

 

[Rick Howard]

Cell A1: http://www.google.com/search?q=
Cell A2: splicing

Cell A3: =+A1&A2

Once you convert the formula in A3 to the result, Excel should turn it into a hyperlink automatically.

Does that help?

 

[Takron]

It comes up as a hyperlink but since its generated with the function, it won't let you click it. It just highlights the box for editing.

 

[Jaafar Tribak]

Let's say that I type Splicing into the cell. I want to be able to set it up so the cell auto links the Splicing word so when you click on it, it takes you to the search engine and searches for Splicing.

Right click the worksheet tab and choode View code from the popup menu and place the following code in the white pane sheet module :

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo ErrHandler
    
    If Target.Address = Range("A1").Address Then
        ThisWorkbook.FollowHyperlink _
        "http://www.google.com/search?q=" & Target
    End If
    
ErrHandler:
    MsgBox Err.Description
        
End Sub

This will work for cell A1. change the entry cell address as needed.

 

[Jaafar Tribak]

Or maybe this to add the hyperlink to the entry cell but not to follow the link until the user clicks on it

Private oTarget As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = Range("A1").Address Then
        If Not IsEmpty(Target) Then
            Set oTarget = Target
            Application.OnTime Now + TimeSerial(0, 0, 1), _
            Me.CodeName & ".AddHyperlink"
        End If
    End If
        
End Sub


Private Sub AddHyperlink()

    On Error GoTo ErrHandler
    
    With oTarget
        Hyperlinks.Add Anchor:=oTarget, Address:= _
        "http://www.google.com/search?q=" & .Text, _
        TextToDisplay:=.Text
    End With
    
    Set oTarget = Nothing
    Exit Sub
    
ErrHandler:
   
    MsgBox Err.Description

End Sub