Sorgu için arama sonuçları: onaction

  1. J

    Sayfaları Menü Halinde Gösterme

    ...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()...
  2. aydgur

    menü ekle

    ...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...
  3. aydgur

    sayfa seç makrosundaki bazı sayfaları seçmemek!

    ...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...
  4. S

    deneme

    ..."Seviyelendirme" MenuObject.BeginGroup = True ' With MenuObject With .Controls.Add(Type:=msoControlButton) .OnAction = "gizle" .FaceId = 462 .Caption = "gizle" End With With .Controls.Add(Type:=msoControlButton)...
  5. H

    Menülere Sayfadan resim eklendiğinde panoya kopyalanan verinin kaybolmaması için ne y

    ..., , sirnoDegYap + 1) 'bir sonrasına kendi komutumuzu yerleştirdik.... .Caption = "&Excelden Worde Yapıştır..." .OnAction = "Worde_Yapistir" ' ThisWorkbook.Sheets(1).Shapes("icoWordGonder").Copy: .PasteFace .Tag = "HsrXLA02B"...
  6. H

    Kendi Yaptığımız Menülerde Face Olarak İcon Kullanmak veya Boş Face Düzenlemek

    ..., , sirno2 + 1) 'bir sonrasına kendi komutumuzu yerleştirdik.... .Caption = "&Degerleri yapistir..." .OnAction = "Degerleri_Yapistir" [COLOR = "RED"] .FaceId = 662 [/COLOR] .Tag = "HsrXLA02" End With...
  7. A

    sayfa ismleri menusu oluşturma

    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.
  8. H

    Vbada Excel için Bir kez Commandbuton tanımlayıp diğer menülere ekleme

    ...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...
  9. H

    Ply menüsünü şartlı olarak değiştirme

    ...With .Controls.Add(msoControlButton) .Caption = "Sayfa Ekle ..." .FaceId = 2646 .BeginGroup = True .OnAction = "SayfaEkle" End With Set cbSKP = cbPLY.Controls.Add(msoControlButton) With cbSKP .Caption = "Aktif Sayfayı Kopyala"...
  10. H

    (If Not c Is Nothing Then) şeklinde menü eklemede Facid Görüntülyeme Sorunu

    ....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...
  11. H

    Çalışma sayfası korumalı ise eklediğim menü gözüksün ama pasif olsun

    ...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 =...
  12. H

    (If Not c Is Nothing Then) şeklinde sağ tuş menüsüne ilave

    ...= 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()...
  13. H

    CommandBars(1)."biçim".Controls.Add(msoControlButt on)

    ...ş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
  14. I

    Excel Kitabına Ait Menü Oluşturma Makrosu

    ...With .Controls.Add(msoControlButton) .Caption = "Yeni Alt Menü 1" .FaceId = 210 .BeginGroup = True .OnAction = "Goster" End With With .Controls.Add(msoControlButton) .Caption = "Yeni Alt Menü 2" .FaceId = 211 .BeginGroup =...
  15. D

    menü kaldırma hakkında

    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...
  16. aydgur

    üçüncü alt menü yapmak

    ...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...
  17. S

    Menü ekleme hakkında

    ...= 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
  18. M

    popup konusunda yardım

    ...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"...
  19. gecemavisi

    Büyük küçük değiştirmede hata

    ...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()...
  20. O

    POP UP MENÜ (LÜTFEN ÇALIŞTIRMAYINIZ !)

    ...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...
Üst