menü çubuğunun silinmesi ve özel bir menünün oluşturulması Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub Auto_Open()
a = MenuBars(xlWorksheet).Menus.Count
For i = a To 1 Step -1
MenuBars(xlWorksheet).Menus(i).Delete
Next
Dim AnaMenü As CommandBarControl, AnaAltMenü As CommandBarControl

Sheets("Sayfa1").Select
Range("a1").Select
'....................................................................................................
'Ana Menüye Menü ekler

Set AnaMenü = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenü
.Caption = "&Bordro"
.Tag = "MyTag"
.BeginGroup = False
End With
If AnaMenü Is Nothing Then Exit Sub
'....................................................................................................
'Alt Menü 1

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Sabit Bilgi Tanımlamaları"
End With

'Kurum Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kurum Bilgileri"
.OnAction = "kurbil"
.Style = msoButtonIconAndCaption
.FaceId = 1976
.State = msoButtonUp
End With

'Ekders Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ekders Bilgileri"
.OnAction = "ekderbil"
.Style = msoButtonIconAndCaption
.FaceId = 1979
.State = msoButtonUp
End With

'Nakit Fişi Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Nakit Fişi Bilgileri"
.OnAction = "nakfisbil"
.Style = msoButtonIconAndCaption
.FaceId = 44
.State = msoButtonUp
End With

'Sendika Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Sendika Bilgileri"
.OnAction = "senbil"
.Style = msoButtonIconAndCaption
.FaceId = 1980
.State = msoButtonUp
End With

'Özel Gider İndirimi/İlaç Kesintisi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Özel Gider İndirimi/İlaç Kesintisi"
.OnAction = "ozgidkes"
.Style = msoButtonIconAndCaption
.FaceId = 1987
.State = msoButtonUp
End With

'Tazminat İsimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tazminat İsimleri"
.OnAction = "tazis"
.Style = msoButtonIconAndCaption
.FaceId = 1981
.State = msoButtonUp
End With

'Maaş Katsayı Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş Katsayı Bilgileri"
.OnAction = "maaskatbil"
.Style = msoButtonIconAndCaption
.FaceId = 1982
.State = msoButtonUp
End With

'Fark Katsayı Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Fark Katsayı Bilgileri"
.OnAction = "farkatbil"
.Style = msoButtonIconAndCaption
.FaceId = 1983
.State = msoButtonUp
End With

'Gösterge Katsayı Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Gösterge Katsayı Bilgileri"
.OnAction = "goskatbil"
.Style = msoButtonIconAndCaption
.FaceId = 1984
.State = msoButtonUp
End With

'Emekli Tazminat Oranları
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Emekli Tazminat Oranları"
.OnAction = "emetazor"
.Style = msoButtonIconAndCaption
.FaceId = 1985
.State = msoButtonUp
End With

'Lojman Taminat Tutarları
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Lojman Taminat Tutarları"
.OnAction = "lojtaztut"
.Style = msoButtonIconAndCaption
.FaceId = 1016
.State = msoButtonUp
End With

'Gelir Vergisi Dilimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Gelir Vergisi Dilimleri"
.OnAction = "gelverdil"
.Style = msoButtonIconAndCaption
.FaceId = 1977
.State = msoButtonUp
End With

'Yabancı Dil Tazminatı
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yabancı Dil Tazminatı"
.OnAction = "yabdiltaz"
.Style = msoButtonIconAndCaption
.FaceId = 1988
.State = msoButtonUp
End With

'Sakatlık İndirimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Sakatlık İndirimleri"
.OnAction = "sakind"
.Style = msoButtonIconAndCaption
.FaceId = 1995
.State = msoButtonUp
End With

'Tayın Bedelleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tayın Bedelleri"
.OnAction = "taybed"
.Style = msoButtonIconAndCaption
.FaceId = 1996
.State = msoButtonUp
End With

'Ünvan/Taziminat Bilgileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ünvan/Taziminat Bilgileri"
.OnAction = "untazbed"
.Style = msoButtonIconAndCaption
.FaceId = 1997
.State = msoButtonUp
End With

'Özel Kesinti İsimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Özel Kesinti İsimleri"
.OnAction = "ozkesis"
.Style = msoButtonIconAndCaption
.FaceId = 1992
.State = msoButtonUp
End With

'Diğer Kesinti İsimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Diğer Kesinti İsimleri"
.OnAction = "dikesis"
.Style = msoButtonIconAndCaption
.FaceId = 1993
.State = msoButtonUp
End With

'Anlaşmalı Eczaneler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Anlaşmalı Eczaneler"
.OnAction = "anecz"
.Style = msoButtonIconAndCaption
.FaceId = 1994
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 2

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Memur Bilgileri Girişi"
End With

'....................................................................................................
'Alt Menü 3

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Hesaplama İşlemleri ve Sonuçları"
End With

'Normal Maaş Hesabı/Sonucu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Normal Maaş Hesabı/Sonucu"
.OnAction = "nmaashes"
.Style = msoButtonIconAndCaption
.FaceId = 30
.State = msoButtonUp
End With

'Kıstel Maaş Hesabı/Sonucu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kıstel Maaş Hesabı/Sonucu"
.OnAction = "kmaashes"
.Style = msoButtonIconAndCaption
.FaceId = 31
.State = msoButtonUp
End With

'Fark Maaş Hesabı/Sonucu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Fark Maaş Hesabı/Sonucu"
.OnAction = "fmaashes"
.Style = msoButtonIconAndCaption
.FaceId = 1950
.State = msoButtonUp
End With

'Terfi Farkı Hesabı/Sonucu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Terfi Farkı Hesabı/Sonucu"
.OnAction = "terfarkhes"
.Style = msoButtonIconAndCaption
.FaceId = 1953
.State = msoButtonUp
End With

'Ekders Hesabı/Sonucu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ekders Hesabı/Sonucu"
.OnAction = "ekdershes"
.Style = msoButtonIconAndCaption
.FaceId = 1952
.State = msoButtonUp
End With

'Emekli Kesintileri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Emekli Kesintileri"
.OnAction = "emekes"
.Style = msoButtonIconAndCaption
.FaceId = 1951
.State = msoButtonUp
End With

'Vergi Matrahları
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Vergi Matrahları"
.OnAction = "vermat"
.Style = msoButtonIconAndCaption
.FaceId = 32
.State = msoButtonUp
End With

'Özel Gider İndirimleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Özel Gider İndirimleri"
.OnAction = "ozgidin"
.Style = msoButtonIconAndCaption
.FaceId = 33
.State = msoButtonUp
End With

'Yurtiçi Geçici Görev Yolluğu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yurtiçi Geçici Görev Yolluğu"
.OnAction = "yiçigecgoryol"
.Style = msoButtonIconAndCaption
.FaceId = 34
.State = msoButtonUp
End With

'Yurtiçi Sürekli Görev Yolluğu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yurtiçi Sürekli Görev Yolluğu"
.OnAction = "yiçisurgoryol"
.Style = msoButtonIconAndCaption
.FaceId = 35
.State = msoButtonUp
End With

'Diğer Masraflar Nakit Fişi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Diğer Masraflar Nakit Fişi"
.OnAction = "dmasnakfis"
.Style = msoButtonIconAndCaption
.FaceId = 36
.State = msoButtonUp
End With

'Disketten Reçete Aktarımı
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Disketten Reçete Aktarımı"
.OnAction = "disrecak"
.Style = msoButtonIconAndCaption
.FaceId = 37
.State = msoButtonUp
End With

'Eczane Reçeteleri İşleme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eczane Reçeteleri İşleme"
.OnAction = "ecrecis"
.Style = msoButtonIconAndCaption
.FaceId = 38
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 4

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Genel Raporlar"
End With

'Seçimli Listeler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Seçimli Listeler"
.OnAction = "seclis"
.Style = msoButtonIconAndCaption
.FaceId = 39
.State = msoButtonUp
End With

'Çarşaf Bordro(Hakedişler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Çarşaf Bordro(Hakedişler)"
.OnAction = "cbhaked"
.Style = msoButtonIconAndCaption
.FaceId = 40
.State = msoButtonUp
End With

'Çarşaf Bordro(Kesintiler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Çarşaf Bordro(Kesintiler)"
.OnAction = "cbkes"
.Style = msoButtonIconAndCaption
.FaceId = 41
.State = msoButtonUp
End With

'Çarşaf Maaş+Kıstel(Hakedişler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Çarşaf Maaş+Kıstel(Hakedişler)"
.OnAction = "cmkhaked"
.Style = msoButtonIconAndCaption
.FaceId = 42
.State = msoButtonUp
End With

'Çarşaf Maaş+Kıstel(Kesintiler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Çarşaf Maaş+Kıstel(Kesintiler)"
.OnAction = "cmkkes"
.Style = msoButtonIconAndCaption
.FaceId = 43
.State = msoButtonUp
End With

'Kıstel(Hakedişler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kıstel(Hakedişler)"
.OnAction = "khaked"
.Style = msoButtonIconAndCaption
.FaceId = 44
.State = msoButtonUp
End With

'Kıstel(Kesintiler)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kıstel(Kesintiler)"
.OnAction = "kkes"
.Style = msoButtonIconAndCaption
.FaceId = 45
.State = msoButtonUp
End With

'Maaş+Terfi Hakedişler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş+Terfi Hakedişler"
.OnAction = "mthaked"
.Style = msoButtonIconAndCaption
.FaceId = 46
.State = msoButtonUp
End With

'Maaş+Terfi Kesintiler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş+Terfi Kesintiler"
.OnAction = "mtkes"
.Style = msoButtonIconAndCaption
.FaceId = 47
.State = msoButtonUp
End With

'Terfi Hakedişler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Terfi Hakedişler"
.OnAction = "thaked"
.Style = msoButtonIconAndCaption
.FaceId = 48
.State = msoButtonUp
End With

'Terfi Kesintiler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Terfi Kesintiler"
.OnAction = "tkes"
.Style = msoButtonIconAndCaption
.FaceId = 49
.State = msoButtonUp
End With

'Fark Hakedişler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Fark Hakedişler"
.OnAction = "fhaked"
.Style = msoButtonIconAndCaption
.FaceId = 50
.State = msoButtonUp
End With

'Fark Kesintiler
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Fark Kesintiler"
.OnAction = "fkes"
.Style = msoButtonIconAndCaption
.FaceId = 51
.State = msoButtonUp
End With

'Tek Sayfa Maaş Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tek Sayfa Maaş Bordrosu"
.OnAction = "tsmbord"
.Style = msoButtonIconAndCaption
.FaceId = 1839
.State = msoButtonUp
End With

'Tek Sayfa Maaş+Kıstel Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tek Sayfa Maaş+Kıstel Bordrosu"
.OnAction = "tsmkbord"
.Style = msoButtonIconAndCaption
.FaceId = 53
.State = msoButtonUp
End With

'Tek Sayfa Kıstel Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tek Sayfa Kıstel Bordrosu"
.OnAction = "tskbord"
.Style = msoButtonIconAndCaption
.FaceId = 54
.State = msoButtonUp
End With

'Tek Sayfa Maaş+Terfi Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tek Sayfa Maaş+Terfi Bordrosu"
.OnAction = "tsmtbord"
.Style = msoButtonIconAndCaption
.FaceId = 55
.State = msoButtonUp
End With

'Tek Sayfa Terfi Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tek Sayfa Terfi Bordrosu"
.OnAction = "tstbord"
.Style = msoButtonIconAndCaption
.FaceId = 56
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 5

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Diğer Raporlar"
End With

'Genel Nakit Fişi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Genel Nakit Fişi"
.OnAction = "gennakfis"
.Style = msoButtonIconAndCaption
.FaceId = 57
.State = msoButtonUp
End With

'Personel Bildirim
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Personel Bildirim"
.OnAction = "perbild"
.Style = msoButtonIconAndCaption
.FaceId = 58
.State = msoButtonUp
End With

'Özel Gider İndirimi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Özel Gider İndirimi"
.OnAction = "ozgidind"
.Style = msoButtonIconAndCaption
.FaceId = 59
.State = msoButtonUp
End With

'Rapor Kesinti Listesi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Rapor Kesinti Listesi"
.OnAction = "rapkeslis"
.Style = msoButtonIconAndCaption
.FaceId = 60
.State = msoButtonUp
End With

'Memur Nakil Bildirimi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Nakil Bildirimi"
.OnAction = "mnakbil"
.Style = msoButtonIconAndCaption
.FaceId = 61
.State = msoButtonUp
End With

'Hasta Sevk Kağıdı
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Hasta Sevk Kağıdı"
.OnAction = "hsevk"
.Style = msoButtonIconAndCaption
.FaceId = 62
.State = msoButtonUp
End With

'Maaş Defteri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş Defteri"
.OnAction = "mdeft"
.Style = msoButtonIconAndCaption
.FaceId = 63
.State = msoButtonUp
End With

'Yıllık Emeklilik Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yıllık Emeklilik Bordrosu"
.OnAction = "yemekbord"
.Style = msoButtonIconAndCaption
.FaceId = 64
.State = msoButtonUp
End With

'Eczane Reçete Listesi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eczane Reçete Listesi"
.OnAction = "eczreçl"
.Style = msoButtonIconAndCaption
.FaceId = 65
.State = msoButtonUp
End With

'Maliye Disketi Oluşturma
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maliye Disketi Oluşturma"
.OnAction = "mdisko"
.Style = msoButtonIconAndCaption
.FaceId = 66
.State = msoButtonUp
End With

'Memur Maaş Bilgi Listesi(Form1)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Maaş Bilgi Listesi(Form1)"
.OnAction = "mmblform1"
.Style = msoButtonIconAndCaption
.FaceId = 67
.State = msoButtonUp
End With

'Memur Maaş Bilgi Listesi(Form2)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Maaş Bilgi Listesi(Form2)"
.OnAction = "mmblform2"
.Style = msoButtonIconAndCaption
.FaceId = 68
.State = msoButtonUp
End With

'Memur Maaş Bilgi Listesi(Form3)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Maaş Bilgi Listesi(Form3)"
.OnAction = "mmblform3"
.Style = msoButtonIconAndCaption
.FaceId = 69
.State = msoButtonUp
End With

'Kademe Terfisi Gelenler Listesi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kademe Terfisi Gelenler Listesi"
.OnAction = "kadtergel"
.Style = msoButtonIconAndCaption
.FaceId = 106
.State = msoButtonUp
End With

'2003 ve Öncesi Nakit Fişi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "2003 ve Öncesi Nakit Fişi"
.OnAction = "2003öncnf"
.Style = msoButtonIconAndCaption
.FaceId = 107
.State = msoButtonUp
End With

'Çok Amaçlı Raporlama
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Çok Amaçlı Raporlama"
.OnAction = "carap"
.Style = msoButtonIconAndCaption
.FaceId = 108
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 6

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "SSK Raporları"
End With

'SSK İşe İlk Giriş Bildirgesi(Normal)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SSK İşe İlk Giriş Bildirgesi(Normal)"
.OnAction = "iseilkgirn"
.Style = msoButtonIconAndCaption
.FaceId = 109
.State = msoButtonUp
End With

'SSK İşe İlk Giriş Bildirgesi(Emekli)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SSK İşe İlk Giriş Bildirgesi(Emekli)"
.OnAction = "iseilkgire"
.Style = msoButtonIconAndCaption
.FaceId = 110
.State = msoButtonUp
End With

'SSK Aylık Bildirge(Normal)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SSK Aylık Bildirge(Normal)"
.OnAction = "aybiln"
.Style = msoButtonIconAndCaption
.FaceId = 111
.State = msoButtonUp
End With

'SSK Aylık Bildirge(Emekli)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SSK Aylık Bildirge(Emekli)"
.OnAction = "aybile"
.Style = msoButtonIconAndCaption
.FaceId = 112
.State = msoButtonUp
End With

'SSK 4 Aylık Bordro
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SSK 4 Aylık Bordro"
.OnAction = "4aybord"
.Style = msoButtonIconAndCaption
.FaceId = 113
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 7

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Özel Servis İşlemleri"
End With

'Memur Kayıt İptali
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Kayıt İptali"
.OnAction = "memkayip"
.Style = msoButtonIconAndCaption
.FaceId = 201
.State = msoButtonUp
End With

'Memur Sıra No Düzenleme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Sıra No Düzenleme"
.OnAction = "memsnduz"
.Style = msoButtonIconAndCaption
.FaceId = 202
.State = msoButtonUp
End With

'Maaş Hesapları İptal Etme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş Hesapları İptal Etme"
.OnAction = "mhesip"
.Style = msoButtonIconAndCaption
.FaceId = 203
.State = msoButtonUp
End With

'Ay Kapama Açma
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ay Kapama Açma"
.OnAction = "aykapac"
.Style = msoButtonIconAndCaption
.FaceId = 204
.State = msoButtonUp
End With

'Yeni Aya Aktarma İşlemleri
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yeni Aya Aktarma İşlemleri"
.OnAction = "yaaktris"
.Style = msoButtonIconAndCaption
.FaceId = 205
.State = msoButtonUp
End With

'Yıl Sonu İşlemi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yıl Sonu İşlemi"
.OnAction = "yılsonis"
.Style = msoButtonIconAndCaption
.FaceId = 206
.State = msoButtonUp
End With

'Öğr.Dev-Dev.Ekders Aktar
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Öğr.Dev-Dev.Ekders Aktar"
.OnAction = "ögrdevekakt"
.Style = msoButtonIconAndCaption
.FaceId = 207
.State = msoButtonUp
End With

'El İle Emekli Kesintisi İşlemi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "El İle Emekli Kesintisi İşlemi"
.OnAction = "eemkkesis"
.Style = msoButtonIconAndCaption
.FaceId = 208
.State = msoButtonUp
End With

'Tasarruf Teşvik Nema Ödeme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tasarruf Teşvik Nema Ödeme"
.OnAction = "ttnemaod"
.Style = msoButtonIconAndCaption
.FaceId = 209
.State = msoButtonUp
End With

'Fiili/İtibari Hizmet Zammı
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Fiili/İtibari Hizmet Zammı"
.OnAction = "fiithizzam"
.Style = msoButtonIconAndCaption
.FaceId = 210
.State = msoButtonUp
End With

'Toplu Diğer Kesinti İşleme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Toplu Diğer Kesinti İşleme"
.OnAction = "tdkesis"
.Style = msoButtonIconAndCaption
.FaceId = 211
.State = msoButtonUp
End With

'Toplu Özel Kesinti İşleme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Toplu Özel Kesinti İşleme"
.OnAction = "tökesis"
.Style = msoButtonIconAndCaption
.FaceId = 212
.State = msoButtonUp
End With

'Maaş Kontrol(Önceki Ayla)
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Maaş Kontrol(Önceki Ayla)"
.OnAction = "makont"
.Style = msoButtonIconAndCaption
.FaceId = 213
.State = msoButtonUp
End With

'Toplu Bilgi İşleme
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Toplu Bilgi İşleme"
.OnAction = "tbilis"
.Style = msoButtonIconAndCaption
.FaceId = 214
.State = msoButtonUp
End With

'Eğitime Hazırlık Bordrosu
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eğitime Hazırlık Bordrosu"
.OnAction = "ehazbord"
.Style = msoButtonIconAndCaption
.FaceId = 215
.State = msoButtonUp
End With

'Memur Hizmet Belgesi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Hizmet Belgesi"
.OnAction = "memhizbel"
.Style = msoButtonIconAndCaption
.FaceId = 216
.State = msoButtonUp
End With

'Yazı Yazma
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yazı Yazma"
.OnAction = "yyazma"
.Style = msoButtonIconAndCaption
.FaceId = 217
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 8

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Teknik Servis İşlemleri"
End With

'Rapor Dizaynı Oluşturma
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Rapor Dizaynı Oluşturma"
.OnAction = "rapdiz"
.Style = msoButtonIconAndCaption
.FaceId = 114
.State = msoButtonUp
End With

'Memur Sıra No Taraması
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Memur Sıra No Taraması"
.OnAction = "msntar"
.Style = msoButtonIconAndCaption
.FaceId = 115
.State = msoButtonUp
End With

'Dosyaların Teknik Bakımı
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Dosyaların Teknik Bakımı"
.OnAction = "tekbak"
.Style = msoButtonIconAndCaption
.FaceId = 116
.State = msoButtonUp
End With

'....................................................................................................
'Alt Menü 9

Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "Yedekleme İşlemleri"
End With

'Yedek Alma İşlemi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yedek Alma İşlemi"
.OnAction = "yedal"
.Style = msoButtonIconAndCaption
.FaceId = 117
.State = msoButtonUp
End With

'Yedek Geri Dönme İşlemi
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Yedek Geri Dönme İşlemi"
.OnAction = "yedgerd"
.Style = msoButtonIconAndCaption
.FaceId = 118
.State = msoButtonUp
End With

On Error Resume Next
End Sub

Sub auto_close()
MenuBars(xlWorksheet).Reset
End Sub

No	Makro Adı
1	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
2	makrolar kutusu ve makrolar görünsün
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın
5	find menüsü oluşturma
6	veri sıralar ve isim bulur
7	veri sıralar ve isim bulur
8	Özel Araç Çubuklarını Göster / Gizle & Excel'in Yerel Araç Çubuklarını Kaldırma / Geri Yükleme
9	kopyala-yapıştırı engelleme
10	istediğim mükerrer olanlari silmesi(satır silme olabilir)
11	excel sayfasının isteğe göre kısıtlanması
12	sözlük kodlari
13	listbox'tan seçilen hücreyi silmek.
14	sayfa gizleme hiç göstermeme
15	araç çubuklarının özelleştirilmesi ve geri dönmesi
16	textboxta metni iki yana yaslama ve tab özelliği
17	sayfada sabitlik
18	araç çubuklarının özelleştirilmesi, dosya menüsü kalır
19	sayfa silme & adlandirmayi engeller
20	sayfa silme & adlandırmayı engelleme

Excel Hazır Makrolar (VBA)

Menü Çubuğunun Silinmesi Ve Özel Bir Menünün Oluşturulması

Robotik Kodlama

Hizmetler

Size nasıl yardımcı olabiliriz?

Youtube Kanalımıza Abone Oldunuz mu?

Anahtar Kelimeler