Conditional Hyperlink with drop down list

[xzaqus]

I have a drop down list with 4 options - A, B, C, and D. I need that only when C is selected from the list, the cell itself has a hyperlink. So, if cell B4 gets the value C from the drop down list, then C or the cell itself should be hyperlinked to say Google.com. If any other value is selected, then no hyperlink.

 

[xzaqus]

Any help will be appreciated. Thanks.

 

[Tetra201]

Try placing the following sub in the code section of the sheet where you have your dropdown in cell B4:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$4" Then Exit Sub
    If Target.Value = "C" Then
        ActiveSheet.Hyperlinks.Add Target, "http://www.google.com", , , "C"
    Else
        Target.Hyperlinks.Delete
    End If
End Sub

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
On Error GoTo M
If Target.Value = "C" Then
Link = "https://www.Google.com"
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End If
End If
Exit Sub
M:
MsgBox "Bad Link"
End Sub

 

[My Aswer Is This]

Not sure why you would want to do a thing like you asked for in Post #1
But you could go into the data validation list and add values like:

Google,Apple,Cnn,Fox

Then using this script you would be taken to that site when you choose the value from the drop down list.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
On Error GoTo M
Dim ans As String
ans = "https://www."
anss = ".com"
Link = ans & Target.Value & anss
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End If
Exit Sub
M:
MsgBox "Bad Link"
End Sub

 

[xzaqus]

Thank you all.