| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate hyperlink based on cell value
I am trying to automatically activate a hyperlink if a certain cell has a
value in it. Is there a way this is possible? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
hi,
It would have helped to know which cells and where the hyperlink was going but try this. Right click your sheet tab and view code and paste this in. Enter 99 in a1 and a hyperling is created in b1 to sheet 1 a1 Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then ActiveSheet.Hyperlinks.Add Anchor:=Range("B1"), Address:="", _ SubAddress:="Sheet1!A1", TextToDisplay:="MyText" End If End Sub Mike "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
Hi,
Similar solution Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then Range("B1").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, Sorry for the vagueness. The hyperlink is already in Sheet 1, B1. I want the input of a "99" in ceel A1 to bring me to the place that the hyperlink in B1 is set to go. Jeff "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
Mike,
One more try. For my spreadsheet, I converted the code to: Private Sub Worksheet_Change(ByVal Target As Range) If Range("E5").Value = X Then Range("B5").Hyperlinks(1).Follow End If End Sub However when I changed the "99" to an "X" it triggers the hyperlink when I delete the X in the cell, not when I put the X in. Is that a text versus numberic issue? "Mike H" wrote: Hi, Similar solution Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then Range("B1").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, Sorry for the vagueness. The hyperlink is already in Sheet 1, B1. I want the input of a "99" in ceel A1 to bring me to the place that the hyperlink in B1 is set to go. Jeff "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
Hi,
No problem we'll get there. using X in your code makes X a variable and not the letter X. To make it the letter X put it in quotes like below. Now you 'may' encounter another problem because it becomes case sensitive so note how i've included an UCASE statement so if you now enter x or X it works Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Range("E5").Value) = "X" Then Range("B5").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, One more try. For my spreadsheet, I converted the code to: Private Sub Worksheet_Change(ByVal Target As Range) If Range("E5").Value = X Then Range("B5").Hyperlinks(1).Follow End If End Sub However when I changed the "99" to an "X" it triggers the hyperlink when I delete the X in the cell, not when I put the X in. Is that a text versus numberic issue? "Mike H" wrote: Hi, Similar solution Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then Range("B1").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, Sorry for the vagueness. The hyperlink is already in Sheet 1, B1. I want the input of a "99" in ceel A1 to bring me to the place that the hyperlink in B1 is set to go. Jeff "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
Awesome! Thank you.
"Mike H" wrote: Hi, No problem we'll get there. using X in your code makes X a variable and not the letter X. To make it the letter X put it in quotes like below. Now you 'may' encounter another problem because it becomes case sensitive so note how i've included an UCASE statement so if you now enter x or X it works Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Range("E5").Value) = "X" Then Range("B5").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, One more try. For my spreadsheet, I converted the code to: Private Sub Worksheet_Change(ByVal Target As Range) If Range("E5").Value = X Then Range("B5").Hyperlinks(1).Follow End If End Sub However when I changed the "99" to an "X" it triggers the hyperlink when I delete the X in the cell, not when I put the X in. Is that a text versus numberic issue? "Mike H" wrote: Hi, Similar solution Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then Range("B1").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, Sorry for the vagueness. The hyperlink is already in Sheet 1, B1. I want the input of a "99" in ceel A1 to bring me to the place that the hyperlink in B1 is set to go. Jeff "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Activate hyperlink based on cell value
I've encountered another problem. When I use the code below, and type an "X"
in E5, it takes me right to the hyperlink location. However if the X stays in E5 and I type anything anywhere else on the sheet, it activates the link too. How can this code be modified to only activiate the hyperlink right after I type the X in E5, and not all the time if an X exists in E5? "Mike H" wrote: Hi, No problem we'll get there. using X in your code makes X a variable and not the letter X. To make it the letter X put it in quotes like below. Now you 'may' encounter another problem because it becomes case sensitive so note how i've included an UCASE statement so if you now enter x or X it works Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Range("E5").Value) = "X" Then Range("B5").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, One more try. For my spreadsheet, I converted the code to: Private Sub Worksheet_Change(ByVal Target As Range) If Range("E5").Value = X Then Range("B5").Hyperlinks(1).Follow End If End Sub However when I changed the "99" to an "X" it triggers the hyperlink when I delete the X in the cell, not when I put the X in. Is that a text versus numberic issue? "Mike H" wrote: Hi, Similar solution Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 99 Then Range("B1").Hyperlinks(1).Follow End If End Sub Mike "veggies27" wrote: Mike, Sorry for the vagueness. The hyperlink is already in Sheet 1, B1. I want the input of a "99" in ceel A1 to bring me to the place that the hyperlink in B1 is set to go. Jeff "veggies27" wrote: I am trying to automatically activate a hyperlink if a certain cell has a value in it. Is there a way this is possible? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Activate hyperlink based on cell value | Excel Programming | |||
| Activate hyperlink based on cell value | Excel Programming | |||
| Using VBA to Activate a Hyperlink | Excel Programming | |||
| Hyperlink based on cell value in a different worksheet | Excel Worksheet Functions | |||
| Can Excel or Access activate a sound file based on a cell value? | Excel Programming | |||
Linear Mode
