Creating Buttons to navigate and drop down menus

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi
I need to create buttons so i can navigate from one sheet to the other
inside a workbook, is there some kind of form tool to do this with?

Also i need to create a drop down menu, again a form tool??

Many Thanks in advanced,
Ryan
 
Hi Ryan

Maybe ?

Ctrl Page Up and Ctrl Page Down
Also i need to create a drop down menu, again a form tool??
Click to expand...
right click on the arrows on the left of your first tab
 
No i mean i need actual buttons, like a website on the excel page to navigate
throughout the workbook.
Any Ideas?

Thanks
 
Thanks that could work, what about making it look like a standard square,
grey button with the page text inside.
Also any ideas on the drop down menu?
Thanks
Ryan
 
You can add a button from the forms toolbar and assign a macro like this

ActiveSheet.Previous.Select

ActiveSheet.Next.Select
 
You need VBA to create a Dropdown with sheets in your workbook
Do you want that ?

Don't you like the right click on the arrows
 
Type the list of valid entries in a single column (this column can be hidden,
if desired).
Select the cell or cells that will display the list of entries, choose Data
- Validation, and select the Settings tab.
From the Allow drop-down list, select List. In the Source box, enter a range
address or a reference to the items in your sheet.
Make sure the In-cell dropdown box is selected. This technique does not
require any macros.
You can download ' Andrew's Utilities, besides the Worksheet index - there
are a whole lot of great features you can use in Excel.

http://www.andrewsexceltips.com/tips.htm

To create a worksheet index - from Andrews Utilities


Sub WorksheetIndex()
On Error GoTo Terminator
Dim ws As Worksheet, wsIndex As Worksheet
Dim myRow As Long
Call SetCalcSetting
Set wsIndex = ActiveWorkbook.Worksheets.Add _
(Before:=ActiveWorkbook.Sheets(1))
wsIndex.Name = "Sheet Index"
Range("A1") = "Sheet Index"
ActiveWorkbook.Names.Add Name:="Sheet_Index", RefersToR1C1:= _
"='Sheet Index'!R1C1"
ActiveCell.Font.Bold = True
myRow = 3
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> wsIndex.Name Then
wsIndex.Hyperlinks.Add _
anchor:=wsIndex.Cells(myRow, 1), _
Address:="", _
SubAddress:=ws.Name & "!A1", _
TextToDisplay:=ws.Name
myRow = myRow + 1
End If
Next
wsIndex.Columns("A:A").EntireColumn.AutoFit
Call SetCalcSetting("Restore")
Exit Sub
Terminator: MsgBox "Sorry, there seems to be a problem... " & vbCrLf
& _
"Perhaps the Sheet Index already exists? ",
vbExclamation, "Create Worksheet Index"
Call SetCalcSetting("Restore")
End Sub
 
Back
Top