need help on the 2 following things
I would like to click on any cell in column c on the front page and it goes to the sheet name
How do I make the front page tab always viewable
i have included a file to help with
need help on the 2 following things
I would like to click on any cell in column c on the front page and it goes to the sheet name
How do I make the front page tab always viewable
i have included a file to help with
1) Hyperlinks - Select the relevant cell and press "Ctrl & K". This will open up the hyperlink window. Make sure "Place in this document" is highlighted on the left then scroll through the list to find the tab name you wish to link to from that cell. Select it and click OK. Repeat for other cells as necessary.
2) What exactly do you mean by "always viewable"??
Only one worksheet can be active at any given time. So, you can't keep the Front Sheet visible when you go to another worksheet.
If you right-click on the bottom lower left corner (on the navigation arrows) you will get a pop up list of all worksheets in the workbook. From there you can navigate to any sheet easily.
This code uses the worksheet_BeforeRightClick event to navigate to the sheet.
Code goes in the Front Sheet code module. It also uses a Custom Function (below) to test if the worksheet exists.
Place this code into a standard module.![]()
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim strName As String Dim lastrow As Long lastrow = Cells(Rows.Count, "C").End(xlUp).Row If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C11:C" & lastrow)) Is Nothing Then If Target.Value <> "" Then Cancel = True strName = Target.Value If wsExists(strName) Then Application.Goto reference:=Worksheets(strName).Range("A1"), scroll:=True Else MsgBox ("The sheet named: " & strName & " does not exist"), vbExclamation End If Else Exit Sub End If End If End Sub
Credit for function here by RoyUK - post #3![]()
Option Explicit Function wsExists(wksName As String) As Boolean On Error Resume Next wsExists = CBool(Len(Worksheets(wksName).Name) > 0) End Function
Palmetto
Do you know . . . ?
You can leave feedback and add to the reputation of all who contributed a helpful response to your solution by clicking the star icon located at the left in one of their post in this thread.
i copied and pasted it but it wouldn't work
what i am after about the front page viewable is that i have heaps of sheets but i always want the front sheet tab showing
Another way to create the links is to enter this formula in D1 and copy it to the end of the list. The workbook name is ard coded so you will have to alter that to the real name.
=HYPERLINK("[Grade(1) (1).xls]" & C40 & "!A1",C40)
Another way to create the links is to enter this formula in D1 and copy it to the end of the list. The workbook name is hard coded so you will have to alter that to the real name.
=HYPERLINK("[Grade(1) (1).xls]" & C40 & "!A1",C40)
Last edited by moreeg; 04-21-2012 at 06:40 PM.
The only way I know of to keep the front sheet visible:
http://office.microsoft.com/en-us/ex...001217043.aspx
Maybe some VBA expert can come up with code to create the split view with the front page on one side and the desired sheet on the other.
Last edited by Cutter; 04-21-2012 at 07:07 PM.
Ran perfectly for me when I tested it in your sample workbook.i copied and pasted it but it wouldn't work
Did you attempt to alter the code? Did you put it in the correct sheet module? Did you copy and paste the function code to a standard module?
it didn't for me maybe you could do it and put file on here Palmetto please
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks