Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summary sheet
I have workbook contain about 45 sheets, and I need to create one Summary
sheat containing buttons for names of all sheats. The qustion is How to make a each Button open a specified sheet. best regards |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summary sheet
Private Sub CommandButton1_Click()
Sheets("Sheet2").Activate End Sub If this post helps click Yes --------------- Jacob Skaria "NIDAL" wrote: I have workbook contain about 45 sheets, and I need to create one Summary sheat containing buttons for names of all sheats. The qustion is How to make a each Button open a specified sheet. best regards |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summary sheet
Rather than add lots of buttons to a worksheet use a custom toolbar with
single button. This when pressed, will produce menu of all worksheets in your workbook - click on required sheet to goto to it. ensure code is pasted where instructed Hope helpful ''''''''Palce this code in thisworkbook'''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''' Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("Get Sheet").Delete On Error GoTo 0 End Sub Private Sub Workbook_Open() createmenubar End Sub ''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' ''''''''place this code in standard module'''''' '''''''''''''''''''''''''''''''''''''''''''''''' Sub createmenubar() On Error Resume Next Application.CommandBars("Get Sheet").Delete On Error GoTo 0 With Application.CommandBars.Add .Name = "Get Sheet" .Protection = msoBarNoProtection .Visible = True .Position = msoBarTop With .Controls.Add(Type:=msoControlButton) .Width = 100 .OnAction = "SelectSheet" .Caption = "Select Sheet" .Style = msoButtonIconAndCaption End With End With End Sub Sub SelectSheet() Dim ws1 As Worksheet If ActiveWorkbook.Sheets.Count <= 16 Then Application.CommandBars("Workbook Tabs").ShowPopup 500, 225 Else Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute End If Set ws1 = Worksheets(ActiveSheet.Name) End Sub -- jb "NIDAL" wrote: I have workbook contain about 45 sheets, and I need to create one Summary sheat containing buttons for names of all sheats. The qustion is How to make a each Button open a specified sheet. best regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy two summary ranges to master summary sheet | Excel Programming | |||
How to copy from each sheet and paste to a summary sheet | Excel Programming | |||
Generate sheet names from list, assign data to summary sheet. | Excel Programming | |||
How can i copy data from a tabbed working sheet to a summary sheet | Excel Discussion (Misc queries) | |||
Relative Sheet Reference (Summary Sheet) | Excel Discussion (Misc queries) |