add excel sheets as menus Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Dim MyControl
Sub Auto_Open()
MyMenu
Range("A1").Select
End Sub
Sub MyMenu()
On Error Resume Next
If Not MyControl Is Nothing Then GoTo ResumeSub:
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
MyControl.Delete
On Error GoTo 0
Set MyBar = Application.CommandBars("standard")
Set NewCombo = MyBar.Controls.Add(Type:=msoControlComboBox)
ResumeSub:
With NewCombo
.Clear
.Text = "Sayfa secin"
.Tag = "MyMenu"
.Width = 150
.Text = ActiveSheet.Name
For i = 1 To Worksheets.Count
.AddItem Sheets(i).Name, i
Next
.DropDownLines = 5
.DropDownWidth = 90
.OnAction = "MyCombo"
End With
Set NewCombo = Nothing
Set MyBar = Nothing
Set MyControl = Nothing
End Sub

Sub MyCombo()
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
Sheets(MyControl.Text).Select
Set MyControl = Nothing
End Sub

Sub DelMyMenu()
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
MyControl.Delete
Set MyControl = Nothing
End Sub

Sub Auto_Close()
DelMyMenu
End Sub

No	Macro Name
1	add sheet / pages as menus
2	add excel sheets as menus
3	add icons menus and buttons to the sheet / page
4	sheet / pages with toolbars and menus
5	deleting the menu bar and creating a custom menu
6	excel operators hk
7	add sheet / page automatically in cell a1
8	sheet / page hide never show
9	Cancel copy and paste
10	Try the following code to add sheet / pages. Copies sheet / page 1
11	add sheet / page write name to inputbox
12	add sheet / page if a1 is 1
13	add sheet / pages
14	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
15	add and delete menus
16	add menu to file edit menu
17	Create your own extensions and functions in excel
18	finds formulas on active sheet / page lists new sheet / page
19	is the size of a file in bytes?
20	printing and prompting

Excel Free Macros (VBA)

Add Excel Sheets As Menus

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords