add sheet / pages 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	sheet / pages with toolbars and menus
3	excel operators hk
4	Try the following code to add sheet / pages. Copies sheet / page 1
5	add sheet / pages
6	add icons menus and buttons to the sheet / page
7	inserts months as sheet / pages Specifies days in detail
8	enter full date and add weeks after and after that date as sheet / pages
9	Add Multiple Worksheets: you can use this code if you want to add multiple worksheets in a single point in your workbook. When you run this macro code, you receive an input box to enter the total number of sheet / pages you want to enter.
10	Custom Header / Footer: This code is for you if you want to add a custom header. In the Run this code entry box, enter a custom value. you can edit the code to change the alignment of the header or footer.
11	add months as sheet / pages
12	hyperlinks to sheet / pages from the active cell
13	sheet / pages showing userform (with code without form)
14	summer adds months to sheet / pages
15	inserts sheet / pages as hyperlinks
16	Encrypt all book and sheet / pages 2
17	back all encrypted sheet / pages
18	Turkish alphabetical sorting also sorts hidden sheet / pages
19	add and delete menus
20	adds months as sheet / pages and goes to that day

Excel Free Macros (VBA)

Add Sheet / Pages As Menus

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords