...For i = 1 To ActiveWorkbook.Sheets.Count
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = Sheets(i).Name
.OnAction = "sayfaac"
End With
Next
End Sub
Sub sayfaac()
Sheets(Application.CommandBars.ActionControl.Caption).Select
End Sub
Sub auto_close()...
...Before:=100
For Each Sayfa In Worksheets
MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _
Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ"
Next
End Sub **** Bu kod ile araç çubuğuna "KLEOPATRA" menüsü ekleyip,menüden sayfa adını tıklayıp o sayfaya gidiyorum.
((Sub...
...Before:=100
For Each Sayfa In Worksheets
MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _
Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ"
Next
End Sub
Değerli bir katılımcının yukarıdaki kodlarını uyguladım,fakat sayfa_seç makrosunda "aktar","alacak"."borç"."ürün" isimli...
..."Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)...
Selamlar.
Manuel_Nakliye_Menu menusu nün altına aşağıdaki kod ile sayfa isimleri olan alt menu oluşturdum.
Şimdi bu alt menuden hangi sayfa ismine tıklarsam osayfanın gösterilmesini nasıl sayfalarım.
Teşekkürler.
...With cbCLL
Set SutGen_hcr = cbCLL.Controls.Add(msoControlButton)
With SutGen_hcr
.Caption = "Sütun &Genişliği Cm"
.OnAction = "sutun"
.FaceId = 2067
End With
Set SutGen_hcr = Nothing
...............
kod dizisi ile aşağıdaki menülere ayrı ayrı bu...
....Style = msoButtonCaption
.Caption = "BÜYÜK/Küçük &Harf Değiştir"
.OnAction = "Goster_ufBKHD"
.FaceId = 476
End With
End If
End If
Status = False
Set HCR = Nothing
Set BKH = Nothing...
...adı gözüksün ama tıklnamasın.
'*Satır Yüksekliği
Dim SatYuk_hcr As CommandBarControl
Set SatYuk_hcr = Application.CommandBars("Cell").Controls.Add
With SatYuk_hcr
.Caption = "Satır Y&üksekliği Cm"
.OnAction = "satir"
.FaceId = 2068
End With
Set SatYuk_hcr =...
...= Application.CommandBars("Cell").Controls.Add
With SutGen_hcr
.Caption = "Sütun &Genişliği Cm"
.OnAction = "sutun"
.FaceId = 7
End With
Set SutGen_hcr = Nothing
......................
Sub BicimeEkle()...
...şekil ada de görüldüğü gini excelin ilk menüsünde
Dosya, Düzen, Görünüm, biçim, Araçlar, Veri, Pencere, Yardım diye giden toolbarda
biçim menüsü altına nasıl yeni buton eklenir ona basınca ".Onaction = "BicEkMen" çalışacak
pencere menüsü altına nasıl yeni buton eklenir
Sub menu_hazirla()
CommandBars(1).Controls.Add(10, , , , True).Caption = "Yeni Menu"
CommandBars(1).Controls.Add(10, , , , True).OnAction = "mesaj"
End Sub
Sub menu_sil()
CommandBars(1).Controls("Yeni Menu").Delete
End Sub
Ekli dosyada menu_hazırla kodlarını kullanarak yeni menu...
...Set MOge = MNesne.Controls.Add(Type:=msoControlPopup)
Else
Set MOge = MNesne.Controls.Add(Type:=msoControlButton)
MOge.OnAction = PozMakro
End If
MOge.Caption = Baslik
If FaceId <> "" Then MOge.FaceId = FaceId
If Bolucu Then MOge.BeginGroup = True
Case 3
Set...
...= cb2.Controls.Add
MenuObject2.Caption = "Seçili Kaydı Sil"
MenuObject2.BeginGroup = True
MenuObject2.Tag = "MyTagR"
With MenuObject2
.OnAction = "kayitsil"
End With
Set cb2 = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub
...As CommandBar
PopupSil
Set cb = CommandsBar.Add(MenuAdi, msoBarPopup, False, True)
With cb
With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro1"
.FaceId = 71
.Caption = "Makro1"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro2"...
...Case 4
.Caption = "Abc def"
Case 5
.Caption = "Abc Def GHI"
End Select
.OnAction = "CaseChange"
End With
Next
Set cb = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub
'
Sub Auto_Close()...
...i = cb.Controls.Count To 0 Step -1
cb.Controls(i).Delete
Next
With cb
For i = 1 To Sheets.Count
With .Controls.Add(Type:=msoControlButton)
.OnAction = "SayfaGoster"
.FaceId = 7
.Caption = Sheets(i).Name
End With
Next
End With
Set cb = Nothing
End Sub
Sub SayfaGoster()
Dim ac As...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.