| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlink
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lk As Hyperlink How can I have this open up the range in the order it is listed? It opens the hyperlinks in a different order. Like A10, A3, A21, A7. 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then 'for all hyperlink in this range For Each Lk In Range("A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A 24,A27,A28,A29").Hyperlinks 'open hperlink in same window Lk.Follow False Next End If End Sub -- Thank you! |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
Why do you need to open all of those links, and in that order ?
Tim "Doug" wrote in message ... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Lk As Hyperlink How can I have this open up the range in the order it is listed? It opens the hyperlinks in a different order. Like A10, A3, A21, A7. 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then 'for all hyperlink in this range For Each Lk In Range("A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A 24,A27,A28,A29").Hyperlinks 'open hperlink in same window Lk.Follow False Next End If End Sub -- Thank you! |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
I use it to view a list of sector ETF's that I have in alphabetical order on
the excel sheet. It makes it confusing to have them pop up in a different order. It doesn't make sense that they would, but I guess the macro opens the list randomly. -- "Tim Williams" wrote: Why do you need to open all of those links, and in that order ? Tim "Doug" wrote in message ... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Lk As Hyperlink How can I have this open up the range in the order it is listed? It opens the hyperlinks in a different order. Like A10, A3, A21, A7. 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then 'for all hyperlink in this range For Each Lk In Range("A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A 24,A27,A28,A29").Hyperlinks 'open hperlink in same window Lk.Follow False Next End If End Sub -- Thank you! . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
Try this.
Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ "A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True Next x End If End Sub "Doug" wrote in message ... I use it to view a list of sector ETF's that I have in alphabetical order on the excel sheet. It makes it confusing to have them pop up in a different order. It doesn't make sense that they would, but I guess the macro opens the list randomly. -- "Tim Williams" wrote: Why do you need to open all of those links, and in that order ? Tim "Doug" wrote in message ... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Lk As Hyperlink How can I have this open up the range in the order it is listed? It opens the hyperlinks in a different order. Like A10, A3, A21, A7. 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then 'for all hyperlink in this range For Each Lk In Range("A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A 24,A27,A28,A29").Hyperlinks 'open hperlink in same window Lk.Follow False Next End If End Sub -- Thank you! . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
I am recieving a runtime error 438
Object doesn't support this property or method -- Thank you! "Tim Williams" wrote: Try this. Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ "A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True Next x End If End Sub |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
my bad: Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub On Dec 17, 2:09*pm, Doug wrote: I am recieving a runtime error 438 Object doesn't support this property or method -- Thank you! "Tim Williams" wrote: Try this. Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ * * * * * * * * * * * *"A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs * * arrRngs = Split(RNGS, ",") * * 'If you select A30 * * If Not Intersect(Target, Range("A30")) Is Nothing Then * * * * For x = LBound(arrRngs) To UBound(arrRngs) * * * * * * ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True * * * * Next x * * End If End Sub- Hide quoted text - - Show quoted text - |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
Now it is giving me a runtime error 9
Subscript out of range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A24,A27 ,A28,A29" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub -- "Tim Williams" wrote: my bad: Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub On Dec 17, 2:09 pm, Doug wrote: I am recieving a runtime error 438 Object doesn't support this property or method -- Thank you! "Tim Williams" wrote: Try this. Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ "A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True Next x End If End Sub- Hide quoted text - - Show quoted text - . |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
Maybe one of those cells doesn't have a hyperlink.
Tim On Dec 18, 9:10*pm, Doug wrote: Now it is giving me a runtime error 9 Subscript out of range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A24,A27 ,A28,A29" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub -- "Tim Williams" wrote: my bad: Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4" Dim x As Integer, arrRngs Dim c As Range * * arrRngs = Split(RNGS, ",") * * 'If you select A30 * * If Not Intersect(Target, Range("A30")) Is Nothing Then * * * * For x = LBound(arrRngs) To UBound(arrRngs) * * * * * * Me.Range(arrRngs(x)).Hyperlinks(1).Follow * * * * Next x * * End If End Sub On Dec 17, 2:09 pm, Doug wrote: I am recieving a runtime error 438 Object doesn't support this property or method -- Thank you! "Tim Williams" wrote: Try this. Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ * * * * * * * * * * * *"A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs * * arrRngs = Split(RNGS, ",") * * 'If you select A30 * * If Not Intersect(Target, Range("A30")) Is Nothing Then * * * * For x = LBound(arrRngs) To UBound(arrRngs) * * * * * * ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True * * * * Next x * * End If End Sub- Hide quoted text - - Show quoted text - .- Hide quoted text - - Show quoted text - |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Hyperlink
I'm really sorry I didn't catch that
-- Thank you! "Tim Williams (Theravance)" wrote: Maybe one of those cells doesn't have a hyperlink. Tim On Dec 18, 9:10 pm, Doug wrote: Now it is giving me a runtime error 9 Subscript out of range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14,A15,A20,A21,A24,A27 ,A28,A29" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub -- "Tim Williams" wrote: my bad: Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4" Dim x As Integer, arrRngs Dim c As Range arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) Me.Range(arrRngs(x)).Hyperlinks(1).Follow Next x End If End Sub On Dec 17, 2:09 pm, Doug wrote: I am recieving a runtime error 438 Object doesn't support this property or method -- Thank you! "Tim Williams" wrote: Try this. Tim Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const RNGS As String = "A2,A3,A4,A6,A7,A9,A10,A13,A14," & _ "A15,A20,A21,A24,A27,A28,A29" Dim x As Integer, arrRngs arrRngs = Split(RNGS, ",") 'If you select A30 If Not Intersect(Target, Range("A30")) Is Nothing Then For x = LBound(arrRngs) To UBound(arrRngs) ActiveSheet.Range(arrRngs(x)).Hyperlink.Follow True Next x End If End Sub- Hide quoted text - - Show quoted text - .- Hide quoted text - - Show quoted text - . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Can't make hyperlink function work for hyperlink to website | Excel Worksheet Functions | |||
| Moving rows with Hyperlink doesn't move hyperlink address | Excel Discussion (Misc queries) | |||
| Intra-workbook hyperlink: macro/function to return to hyperlink ce | Excel Discussion (Misc queries) | |||
| Macro to Copy Hyperlink to another file as a HYPERLINK, not text... | Excel Programming | |||
| reading html when hyperlink address not hyperlink text diplayed | Excel Programming | |||
Linear Mode
