Links in XL worksheet
 

This question was posted in the week and I could not get an answer, I'm
giving a new try to the weekend people that are more relax and comfortable
reading it.
My worsheet have a lot of links that when I click on each one , goes to a
webside (links are copy-paste from the toolbar to the excel worsheet).
FINE.
It ocurred to me that I could do data validation with those links and I did.
But when I drop down and click on any link not results.
worksheet name : websites
links go from : A1 to A300
DV on: B1
Can this be done ? ( acess the website links from DV )
THANKS.
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.

Links in XL worksheet
 

Right click on the sheet's name and select "View Code" and paste this
code in:


Private Sub Worksheet_Change(ByVal Target As Range)
'Range is set to A1, change range to the cell you want to hyperlink
i = Range("A1").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
i, TextToDisplay:=i
End Sub

Links in XL worksheet
 

Thanks but nothing happened.
Maybe indirect formula insteda of macro ( read about it while back )
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.


"GTVT06" wrote:

Right click on the sheet's name and select "View Code" and paste this
code in:


Private Sub Worksheet_Change(ByVal Target As Range)
'Range is set to A1, change range to the cell you want to hyperlink
i = Range("A1").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
i, TextToDisplay:=i
End Sub

Links in XL worksheet
 

Yes it works now. 2 things happened :
first I had to change the ranges to B1 instead of A1
and second I had the hyperlinks edited with names instead of htpp
in order for me to alphabetically sort them
This code works with the pasted links but not after they are edited.
wonder why?
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.


"Learning Excel" wrote:

Thanks but nothing happened.
Maybe indirect formula insteda of macro ( read about it while back )
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.


"GTVT06" wrote:

Right click on the sheet's name and select "View Code" and paste this
code in:


Private Sub Worksheet_Change(ByVal Target As Range)
'Range is set to A1, change range to the cell you want to hyperlink
i = Range("A1").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
i, TextToDisplay:=i
End Sub

Links in XL worksheet
 

On May 31, 6:21*pm, Learning Excel
wrote:
Yes it works now. 2 things happened :
first I had to change the ranges to B1 instead of A1
and second I had the hyperlinks edited with names instead of htpp
in order for me to alphabetically sort them
This code works with the pasted links but not after they are edited.
wonder why?
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.



"Learning Excel" wrote:
Thanks but nothing happened.
Maybe indirect formula insteda of macro ( read about it while back )
--
Socrates said: I only know, I don''''''''t know nothing.
I say : I don''''''''t even know, I don''''''''t
know nothing.

"GTVT06" wrote:

Right click on the sheet's name and select "View Code" and paste this
code in:

Private Sub Worksheet_Change(ByVal Target As Range)
'Range is set to A1, change range to the cell you want to hyperlink
i = Range("A1").Value
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
* * * * i, TextToDisplay:=i
End Sub- Hide quoted text -

- Show quoted text -

It's creating a website hyperlinkbased off of the value that is in B1,
I can see if I can edit it to your needs. You can either create a
table hidden to the side so I can Vlookup the website based off of the
name in B1.