Hyperlink condition for a cell

[Karti]

Hi all,

Hope some one can advise me on this. I have a worksheet with a cell that will have a possible list of numbers 1,2,3 and 4 etc.

This would be Cell A1

Dependant on the number in the cell, I would like the hyperlink to point to a different area/site

I am assuming that it would have to be done in VBA but not really used it much

I see it as:

If A1 = 1 then goto "http://www.google.co.uk"
or
If A1 = 2 then goto "http://www.yahoo.co.uk"
or
If A1 = 3 then goto "Cell AA2"

If anyone could give me some advice this would be greatly appreciated.

Regards

K

 

[DreamAlchemist]

Create a list on another worksheet with your information where column A is your list of numbers, and Column B is your list of websites that correspond to your numbers in A.

Then on a new worksheet in cell B1 put in a formula to do a VLOOKUP(A1,Your Data range on other Worksheet,2, false).

This will then give you a link to click on to go to whereever.

 

[Karti]

DreamAlchemist,

Many thanks for your prompt response. After trying this it gives me the correct link but not as a hyperlink and not in the actual number cell, but rather in the one to its left.

Is there a way using VLOOKUP that I could do both of the above as well?

Many thanks

K

 

[Karti]

Hi I have played about and can get this to work:

Private Sub CommandButton1_Click()

Application.Run "Book2.xlsm!Sheet3.Macro32"

End Sub


Sub Macro32()
'
' Macro1 Macro
' Create Number Related Hyperlink

    If Range("D5") = 1 Then
    Range("D5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.com"
    End If
    
    If Range("D5") = 2 Then
    Range("D5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.yahoo.com"
    End If
    
    If Range("D5") = 3 Then
    Range("D5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="\\wd-netcenter\linux"
    End If
    
End Sub

If someone could perhaps advise on a way to tidy the code up that would be great.

Regards

K