View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
KenInPortland KenInPortland is offline
external usenet poster
 
Posts: 9
Default Indirect Hyperlink from a graphic to a calculated cell or rang

Thanks Bernie,
You put me on the right track, I have some work to do, since I simplified my
situation for the post.

Do you know of a way to accomplish this functionality without a macro or VBA?

The annoying "enable macros" "disable macros" message will create a problem
for the hundreds I distribute this to.

"Bernie Deitrick" wrote:

Ken,

Assign a macro that reads the text from the button and acts on the basis of
the return. For example, assign this to each button to have the buttons
select the ranges addresses listed in K1:K26 - this assumes that the labels
are A, B, C, etc.

Sub WhoRang()
Dim myname As String
Dim myStr As String

myname = Application.Caller
myStr = Left(ActiveSheet.Shapes(myname).TextFrame.Characte rs.Text, 1)
Application.Goto Range(Range("K" & Asc(myStr) - Asc("A") + 1).Value)

End Sub

HTH,
Bernie
MS Excel MVP




"KenInPortland" wrote in message
...
I need to make a hyperlink from a graphic to link indirectly to a cell or a
range of cells in the same worksheet.
The worksheet is alphabetized and I have created graphic buttons across
the
top with the letters A to Z. The number of rows (1000+) changes frequently
and the A to Z tabs are used to index into the correct area of the
spreadsheet, which I have been manually updating.

I can calculate the starting address for each of the tabs, but I have yet
to
find the proper combination of Hypertext, Cell, Indirect, &, ", ', # etc.
to
jump from the 26 graphics labeled A to Z to the proper cells address which
are contained in K1 to K26.