Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
hyperlink item#'s across worksheets
l'm looking for help on how to create a significant number of hyperlinks
(500+) that will go across worksheets. The hyperlink will be based upon an item# in one worksheet and it will need to find it's matching item# on another worksheet. The worksheets are oriented differently so it seems some type of lookup would be needed. Any help would be very appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
hyperlink item#'s across worksheets
How about an alternative?
Use a macro that searches sheet2 column A and if it finds a match, it goes there. I'd drop a button from the forms toolbar in Row 1 of sheet1--and make row 1 always visible (window|freeze panes) Then assign this macro to that button. (The code depends on where the activecell is.) Option Explicit Sub testme01() Dim myRng As Range Dim myCell As Range Dim res As Variant With Worksheets("sheet2") Set myRng = .Range("a:a") End With Set myCell = ActiveCell.EntireRow.Cells(1) res = Application.Match(myCell.Value, myRng, 0) If IsError(res) Then Beep Else Application.Goto myRng(res), scroll:=True End If End Sub Matt Hughes wrote: l'm looking for help on how to create a significant number of hyperlinks (500+) that will go across worksheets. The hyperlink will be based upon an item# in one worksheet and it will need to find it's matching item# on another worksheet. The worksheets are oriented differently so it seems some type of lookup would be needed. Any help would be very appreciated. -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
hyperlink item#'s across worksheets
Dave,
Excellent fix brother! Works fine. "Dave Peterson" wrote: How about an alternative? Use a macro that searches sheet2 column A and if it finds a match, it goes there. I'd drop a button from the forms toolbar in Row 1 of sheet1--and make row 1 always visible (window|freeze panes) Then assign this macro to that button. (The code depends on where the activecell is.) Option Explicit Sub testme01() Dim myRng As Range Dim myCell As Range Dim res As Variant With Worksheets("sheet2") Set myRng = .Range("a:a") End With Set myCell = ActiveCell.EntireRow.Cells(1) res = Application.Match(myCell.Value, myRng, 0) If IsError(res) Then Beep Else Application.Goto myRng(res), scroll:=True End If End Sub Matt Hughes wrote: l'm looking for help on how to create a significant number of hyperlinks (500+) that will go across worksheets. The hyperlink will be based upon an item# in one worksheet and it will need to find it's matching item# on another worksheet. The worksheets are oriented differently so it seems some type of lookup would be needed. Any help would be very appreciated. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Linking item between two worksheets | Excel Worksheet Functions | |||
lookup problem with a table cell with hyperlink item | Excel Discussion (Misc queries) | |||
Automating a line item for several worksheets? | Excel Worksheet Functions | |||
custom toolbar item to use hyperlink to open word file | Excel Discussion (Misc queries) | |||
Hyperlink menu item disabled | Excel Discussion (Misc queries) |