Solved

Returning to  'calling' hyperlink cell from another hyperlink.

Posted on 2002-05-01
10
286 Views
Last Modified: 2012-02-07
I'm sure this is quite easy to explain, but as usual I’ll drag it out a bit :)  sorry.

In sheet1 of excel I have hyperlinks to sheet2. In sheet 2 I have one hyperlink "BACK".

How do I make the BACK hyperlink go to the cell in sheet1 that just called it? The problem is that the cells in sheet1 that contain the hyperlinks to sheet2 are likely to move about so no 'hard coding' of cell references is possible.

I have tried to think of a way top make VB do this but failed so I turned to the Microsoft Script Editor, but that's written in Java (at a guess) and I’m even worse with that than I am with VB.

Can anyone make a suggestion of how to do this or if I’ve made myself unclear please post a comment or two asking me questions.

Thanks ppl.
0
Comment
Question by:craigewens
  • 6
  • 4
10 Comments
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Create a global variable of type range.
dim rngHyp as range
When you do click on hyperlink 1, set that variable to cell with hyperlink.
On sheet 2, call hyperlink "back" and do something like:

rngHyp.select


Hope it helps
0
 
LVL 2

Author Comment

by:craigewens
Comment Utility
Thanks for your comment Richie and i understand what your saying (partially) but all the hyperlinks are created through excel rather than VB, this means (as far as i can figure out) that VB has no knowledge of them.

If you have the time, could you add a little more to your previous comment because atm the vb sheet is blank... :(

Thanks

Craig.
0
 
LVL 2

Author Comment

by:craigewens
Comment Utility
Richie, i've played about even more with what you suggested but all the stuff i create in VB through excel requires to be 'run' (macro).

Can you think of a way to do this still?

If your unsure open up excel and try what i am trying to do (takes about 10 seconds), you'll soon see where i'm having the troubles.

Thanks.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
For reason thta is unknown, i did not receive your first comment notif.
Let me see....
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Just a question: why did you use a hyperlink to get this work?
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 
LVL 16

Accepted Solution

by:
Richie_Simonetti earned 100 total points
Comment Utility
we could add a custom commandbar and work with two buttons.
the code behind them would be:

'in a module
Public Sub MovePrevious()
On Error GoTo errTrap
Sheets(ActiveSheet.Index - 1).Activate
Exit Sub
errTrap:
If Err = 9 Then
    Resume Next
End If
End Sub
Public Sub MoveNext()
On Error GoTo errTrap
'Set rngActive = ActiveSheet.ActiveCell
Sheets(ActiveSheet.Index + 1).Activate
Exit Sub
errTrap:
If Err = 9 Then
    Resume Next
End If
End Sub
0
 
LVL 2

Author Comment

by:craigewens
Comment Utility
Thanks ever so much for replying so quickly, once EE started sending out the notifications again :)

But i found this on another question:

Sub BackToWhenceYouCame()
  On Error GoTo skip
  CommandBars("Web").Controls("Back").Execute
  skip:
End Sub

It seems to do what i'm after and works from calling this sub from any command button click.

Can you think of any reasons or situations why i shouldn't use this? (version dependant, OS dependant etc etc)

Of course you can still have the points anyway as almost every question i ask or search for you seem to have given the accepted answer :)

Thanks.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
I don't know if it would works on office97.
Dont care about points, i like points ONLY if i deserve them.
Cheers
0
 
LVL 2

Author Comment

by:craigewens
Comment Utility
Well i tested your code and it is just as effective as the other suggestion i found. Seeing as you have your doubts on if it'll work in other versions of office i guess you ONLY deserve the points after all  :)

Thx
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Well, thanks for "A" grade!
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now