Menü Oluşturmak

R

rapaciouss73

Katılım
14 Ocak 2005
Mesajlar
7
benim problemim dosya, duzen gorunum yazan yere onun gibi birsey yapmak istiyorum mesela zemin mekanigi deneyleri gibi ve onu tıkladiginde deneylerin isimleri gorunecek hangi deneyi analiz etmek istiyorsan ona gore makro atanacak makro atamayi hallederimde olusturmak istiyorum dosya duzen gibi bir menu altta kisimlari olacak bilmem anlatabildimmi :)


Edit xxrt:"arkadaslar yardiminiza ihtiyacim var" Konu başlığı,"Menü Oluşturmak"Olarak değiştirildi.
 
X

xxrt

Misafir
1.)Basit Bir Menü Eklemeye ait Kodlar
Bu Kodları boş Bir Modüle yapıştırın
[vb:1:f25ef5ff47]Sub Auto_Open()

Alt_altaMenü_Hazirla' Açılışta Alt_altaMenü_Hazirla makrosunu çalıştırır.
'Açılışta Menüyü ekler
Set x = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton)
With x
.Style = msoButtonIconAndCaption
.Caption = "Menü Hazırlama"
.OnAction = "Deneme1"
End With
End Sub

Sub Deneme1()
'Buraya Yazmak/Yapılmasını İstediğiniz Kodları yapıştırın.
MsgBox "Menü Deneme"
End Sub
Sub auto_close()
'Çıkışta Eklenen Menüyü siler.
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
[/vb:1:f25ef5ff47]

2.)Alt Alta Açılır Menü
1.Maddede bulunan Menü hazırlamayla bağlantılıdır.(Auto_Close)

[vb:1:f25ef5ff47]Sub Alt_altaMenü_Hazirla()
'Menü Açıp Başlığını Hazırlar
Set x = Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)
x.Caption = "Ana Menü"
'1 Alt Menü Hazırlar
Set a = x.Controls.Add(msoControlButton, , , , True)
a.Style = msoButtonIconAndCaption
a.Caption = "1.Alt Menü"
a.OnAction = "Makro1"

'2 Alt Menü Hazırlar
Set b = x.Controls.Add(msoControlButton, , , , True)
b.Style = msoButtonIconAndCaption
b.Caption = "2.Alt Menü"
b.OnAction = "Makro2"
'Bu Þekilde İstediğiniz kadar açabilirsiniz.
'.......
'......
'...
End Sub
Sub Makro1()
MsgBox "1.Menü Çalıştı"
End Sub
Sub Makro2()
MsgBox "2.Menü Çalıştı"
End Sub
[/vb:1:f25ef5ff47]
 
X

xxrt

Misafir
Yukarıdaki mesajımda "Modül1" kelimesi "boş bir Modüle" olarak değiştirildi.

Modül Nedir?Tıklayınız
rapaciouss73' Alıntı:
makro atamayi hallederimde
Genişletmek için tıkla ...
Makrolar Modüllere yazılıyor.Makro atamayı halledebildiğinize göre Modülüde biliyor olacağınızı düşünmüştüm.Ayrıca Dosyayı indirip Alt+F11 Tuşuna Basın.
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
alt altına menü

yukarıdaki çalışmayı inceledim çok güzel am benim bir dileğim var. alt menünün de alttına 1-2 tane alt mönü daha eklemak

okul programı için uyguladım. ama bu çalışma yetersiz kaldı nasıl mı

OKUL2005<YILSONU<ÇARÞAF LİSTELER GİBİ BİR YORDAM YAPMAM GEREKİYOR
 
S

starmetin

Katılım
9 Mayıs 2005
Mesajlar
366
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
16-09-2021
yahuu şu modül olayı ne kadar zor görünüyor :? , bunları tek tek mi yazıyorsunuz,
şimdi ben basit bir menü eklemek için bu modül kodlarını ezberimde mi bulundurcam bence hiçte kolay ve basit gibi görünmüyor , bunun daha kolay yöntemi yok mu.? :kafa: inanın haftalardır şu modül olayına takmış durumdayım ama daha bir adım bile katedemedim..buda herhald benim beceriksizliğimden kaynaklanıyor :agla:
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
Sayın recep,

Aşağıdaki kodları bir bordro programımda kullanmıştım.Hepsini çalıştırın bir inceleyin:

Sub Auto_Open()
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()
Application.CommandBars("Worksheet Menu Bar").Reset

End Sub
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
Sayın starmetin,

Yukarıdaki kodlara bakarsanız ezberlemeniz gereken kısmın aslında çok kısa olduğunu göreceksiniz.Ben bu kodları yazarken hepsini ezbere yazmadım ya.Kopyala yapıştır,isim değiştir mantığı ile yaptım.Hepsini satır satır yazmaya kalksak küçük bir program bile ,yerine göre günlerinizi alır.Bu kodların yazıldığı yere Module deniyor.Alt+F11 ile girdiğiniz sayfada,solda VBAProject kısmı vardır.Burada sağ tıklatıp Insert-Module deyin .Oluşturduğunuz Module'ü çift tıklatıp açın ve yukarıdaki kodları kopyalayıp yapıştırın.Daha sonra ya Kitabı kaydedin,kapatıp açın ya da F5 tuşuna basıp,Ana sayfada Yardım menüsünün yanına bakın.
 
Y

Yakup

Katılım
29 Mart 2005
Mesajlar
61
bedersu' Alıntı:
Sayın recep,

Aşağıdaki kodları bir bordro programımda kullanmıştım.Hepsini çalıştırın bir inceleyin:

Sayın Bedersu bahsettiğiniz menuleri çalıstırdım gercekten cok hoş olmuş. ama makrolar çalısmıyor. Maliyeci olmam nedeniyle bordro programınızı (Makrolarla birlikte>)bilgisayarıma indirebilmek isterim. windows NT de çalışıyorum. İlgilenirseniz tesekkür ederim.
Saygılarımla ...
Genişletmek için tıkla ...
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
Sayın Yakup,

Makroların çalışmaması normal çünkü yollamadım.bu programı Niğde'de bir okul'a yapmış ve bir ücret almıştım.Þimdi bütün hakları onlarda.Program elimde yok.Sadece txt dosyalarında kodları var.Takdir edersiniz ki bunları da yollamak kul hakkına girer.Ama soracağınız her soruya ,forumdaki diğer arkadaşlarla birlikte ,cevap vermeye çalışırım.
 
V

VisualBasic

Katılım
8 Haziran 2005
Mesajlar
114
Kod: 
Sub Gorunum_Menu_Hazirla()
  Dim AnaMenu As CommandBarControl, AltMenu As CommandBarControl
  
  KomutDugmemiSil "Gorunum"
  Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
  
  With AnaMenu
    .Caption = "AnaMenu"
    .Tag = "Gorunum"
    .BeginGroup = False
  End With
  
  With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Menu1"
    .OnAction = "MakroCagir"
  End With
  
  If AnaMenu Is Nothing Then Exit Sub
  
  Set AltMenu = AnaMenu.Controls.Add(msoControlPopup, 1, , , True)
  
  With AltMenu
.Caption = "Menu2"
  End With
  
  With AltMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.komut"
.OnAction = "MakroCagir"
  End With
  
End Sub

Sub KomutDugmemiSil(Menum As String)
  Do
    On Error Resume Next
    Application.CommandBars.FindControl(, , Menum, False).Delete
  Loop Until Application.CommandBars.FindControl(, , Menum, False) Is Nothing
End Sub

Sub MenüSil()
    KomutDugmemiSil "Gorunum"
End Sub

Sub MakroCagir()
  MsgBox "Geldim : " & Now
End Sub
OnAction = komutu ile makrunuzu hazırlyaıp çağırabilirsiniz.
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
'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
Genişletmek için tıkla ...
seklımda memü oluşturmak için bana kod vermiştin rica etsem yedek al ve yedek aç makrolarını da verebilir misin kendi memüme de ekledim ama makro yu bilmiyorum.
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
sayın recep,

Kodlarda yedek alma işlemi sayfa ve hücre referansları verilerek yapılır biliyorsunuz.Benim size vereceğim kodların işinize yarayabilmesi için, aynı mantıkla yapılmış ve aynı düzene sahip olması lazım çalışmanızın.Bu da çok büyük bir tevafuk olur.bu şekilde yapmak yerine,siz programınızı bitirin,en son yedek alma kısmında bir örneğini yollayın ve beraber yedek alma işlemini yapalım.Hatta bu işi benle sınırlı değil,forumdaki herhangi bir arkadaşla da yapabilirsiniz.
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
ben bir prorogramı bitirebilsem. bu formda kaldığımsürece bu iş bitmeyecek gibi geliyor.her geçen gün yeni bir şeyler bulup üzerine ekli yorum ve dosya büyüdükçe büyüyor. bir ara 40 mb da çıktı. şu an formülleri koda çevirmeye çalışıyorum. bu sayeda e daha az yer kaplayacağını söylediler. ne dersin :?
 
Mahmut Bayram

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
synrecep, hazırlamak istediğiniz programın aynısını ben 3 ay önce bitirmiştim ve benim ~ 4 ayımı aldı. benim dosya boyutum ise 3,5 mb bence bu kadar büyümemeliydi. BİLSA programından beklediğiniz her şey mevcut programımda. geçen haftalarda bu sitede yayınlamıştım.
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
eee şimdi nerede bir incieseydik. benim gözümden kaçmış veya incekediklerimişime yaramamıştır, sınıf mevcutu sınırı uymamıştır en az 50 öğrenci olmalı malum güney doğu anadolu bölgesinde görev yapınca bu mevcutlu ssınıflara giriyorsun.veya vba ları kapaslı ufacık bir değisiklik olunce müdahale edemiyorsum ben su programı bitireyim tüm öğretmenlerimize ve milli eğitim çamiasına armağan edicen not yardımlarından dolayıda bu formahitaf edeceğim.
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
Sayın recep,

Yapmayı düşündüğünüz şey güzel.Formüllerin koda dönüştürülmesi de tabi ki boyutu küçültür ;çünkü sizin abartısız 1000 tane formülle yapacağınız işi,birkaç satırlık kod yapar.Sonuna kadar yardıma hazırım.
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
aynen öyle şöyele ifade edeyim liste adında bir veri tabanı sayfası var ve 1109 satıra kadar hepsinde formül var. hemde tüm sütunlarda256X1109 artık kaç ederse :hey:
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
formüllerin hepsi aynı mı?örnek verir misiniz?
 
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
formüllerin hepsi aynı mı?örnek verir misiniz?
Genişletmek için tıkla ...
=EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>84;5;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>69;4;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>54;3;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>44;2;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>-1;1;" " )))))

BU FORMOL TÜRKÇE NOTUNUN ORTALAMASINI HESAPLAYAN FORMÜL 100LÜK SİSTEMDE ORTALAMA 12345 YAZIYOR BU FORMÜLÜ KADEA ÇEVİRMEME YARDIM EDERMİEİNİZ. BU VE BUNUN GİBİ 1109x12 HÜCREDE BU VE BUNUN GİBİ FORMÜL VAR DİÞİNİN DOSYA BOYUTU NE KADAR ARTTIRMIÞTIR.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst