Sorgu için arama sonuçları: onaction

  1. V

    Context menu makroyu nasil yeni workbook'la birlestirebilirim?

    ...Temporary:=True) cCont.Caption = "Tabellenverzeichnis" cCont.OnAction = "IndexCode" End Sub ' Ende Kontextmenü für Tabellenverzeichnis Yeni Module: Option Explicit ' Variablendefinition erforderlich...
  2. M

    Add-Ins yerine başka birşey yazdırmak

    ...Menu.Caption = "Telefon Rehberi" With Menu.Controls.Add(msoControlButton) .Caption = "Rehber" .OnAction = "formac" .FaceId = 479 End With End Sub Sub auto_close() On Error Resume Next Application.CommandBars(1).Controls("Telefon Rehberi").Delete End Sub Sub formac() MsgBox "işlem tamam" End Sub
  3. M

    Büyük-küçük harf menüsü

    ...Case 3 .Caption = "abc def" Case 4 .Caption = "Abc def" End Select .OnAction = "CaseChange" End With Next Set cb = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...
  4. 2

    büyük- küçük harf çevirme makrosu

    ...Case MenuItem Case 1 .Caption = "Tümü Büyük Harf" Case 2 .Caption = "Yalnizca Ilk Harf Büyük" Case 3 .Caption = "Tümü Küçük Harf" Case 4 .Caption = "Normal Yazim Düzeni" End Select .OnAction = "Degistir" End With Next Set cb = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub
  5. M

    Excelde standart Menü

    Merhaba, Aşağıdaki kodlarla excele menü eklentisi yapılabiliyormuş (denedim oldu :) ). Ben bu menüyü excel açıldığında normal menü gibi standart olmasını istiyorum bunu nasıl yapabilirim. Şimdiden teşekkürler.
  6. H

    Excel 2007 de menü düzeni

    ...kendi komutumuzu yerleştirdik.... .Style = msoButtonIconAndCaption .Caption = "&YıllıkBilanço" .OnAction = "x_Yili_Biloncosu" .FaceId = 2659 '9594 .Tag = "HsrMSR01" .Parameter = 1 End With With...
  7. 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()...
  8. 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...
  9. 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...
  10. 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)...
  11. 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"...
  12. 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...
  13. 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.
  14. 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...
  15. 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"...
  16. 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...
  17. 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 =...
  18. 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()...
  19. 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
  20. 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 =...
Üst