Sorgu için arama sonuçları: onaction

  1. Korhan Ayhan

    Girilen değere göre hücredeki şeklin görünür hale gelmesi

    ...= RGB(146, 208, 80) .Transparency = 0.6 .Solid End With Selection.Name = "NormalDeğer " & dLeft & dTop Selection.OnAction = "Makro7" End If '-------------------------------------------------------------------------------------------------...
  2. 1

    Tool Bar'a Makroları Durdurmak ve Çalıştırmak için bir Düğme Eklenebilirmi.

    ...girdiğimde de hep çalışıyor iki fonksiyonuda Sağ klik Menü den ayrı ayrı çalışacak şekilde ayarlayamadım. Destek olacaklara şimdiden çok teşekkür ederim. Kullandığım Kodlar Application.EnableEvents = False (OnAction = "Macro1") yerine Application.EnableEvents = True (OnAction = "Macro2")...
  3. 1

    Tool Bar'a Makroları Durdurmak ve Çalıştırmak için bir Düğme Eklenebilirmi.

    Merhaba ilginiz için teşekkürler Söylediklerinizi yaptım ama ya yanlış yaptım yada yanlış bir şey var. Hiçbir netice alamadım. 1-Boş bir excel açtım ThisWorkbook içine ilk Kodunuzu girdim Dosyayı Farklı olarak Eklenti (xlam) olarak kaydettim 2-Dosyayı tekrar açıp bir modül oluşturup içine diğer...
  4. U

    Tool Bar'a Makroları Durdurmak ve Çalıştırmak için bir Düğme Eklenebilirmi.

    ...Menu Bar").Controls("Menü") _ .Controls.Add(Type:=msoControlButton, ID:=2949) bir.Caption = "AÇIKLAMA" bir.OnAction = "MAKRO_ADI" Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _ .Controls.Add(Type:=msoControlButton, ID:=2949)...
  5. Ömer

    Bir hücre silindiğinde o satırdaki başka sayfadan da silinmesi tüm satırıyla

    ...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "---------Sayfalarda Sil" .OnAction = "Sil" .FaceId = 53 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...
  6. R

    Adı Soyadı düzenleme kodu hk.

    ...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...
  7. Ömer

    Formüllü dolu satırı silince formüllü boş satır oluşturma

    ...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "+ , - Yeni Sil Ve Ekle" .OnAction = "sil_tabloya_ekle" .FaceId = 53 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...
  8. tamer42

    Sayfa ya yeni bir satır eklendiğinde aynı işlemin diğer sayfada da yapılması

    çok teşekkür ederim Ömer hocam
  9. Ömer

    Sayfa ya yeni bir satır eklendiğinde aynı işlemin diğer sayfada da yapılması

    ...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "Sayfalarda Satir Ekle" .OnAction = "deneme" .FaceId = 51 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...
  10. Murat OSMA

    Excel özel sekme oluşturma

    ..., , , True) With menu1 .Style = msoButtonIconAndCaption .Caption = "Karşılaştır" .OnAction = "Karsilastir" .FaceId = 99 End With Set menu2 = bar.Controls.Add(msoControlButton, , , , True) With menu2 .Style = msoButtonIconAndCaption...
  11. Erdem Akdemir

    Excel özel sekme oluşturma

    ...SubMenuItem = Application.CommandBars(1).Controls.Add(Type:=msoControlButton) SubMenuItem.Caption = "deneme" SubMenuItem.OnAction = "mizan" 'çalışması istenen makro SubMenuItem.FaceId = 300 SubMenuItem.BeginGroup = True End Sub
  12. Asri

    Excel özel sekme oluşturma

    ...https://docs.microsoft.com/en-us/office/vba/library-reference/concepts/customize-the-office-fluent-ribbon-by-using-an-open-xml-formats-file onaction da yazılı olan isim makro ismidir. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <tabs>...
  13. sirkülasyon

    Soru Açıklamaya Göre Form Açma ve Silme İşlemi

    ...cbc.Visible = False Next cbc With Application.CommandBars("Cell").Controls.Add(temporary:=True) .Caption = "Mevzuata Göre Yenile" .OnAction = "Mevzuata Göre Yenile" End With With Application.CommandBars("Cell").Controls.Add(temporary:=True) .Caption = "Çalışma Takvimine Göre Yenile" .OnAction...
  14. Asri

    Sağ tıklama ile çıkan menüden rakam seçme

    ...1.5, 2) With MenuObject For i = LBound(myArr) To UBound(myArr) With .Controls.Add(Type:=msoControlButton) .OnAction = "Test" .FaceId = 7 .Caption = myArr(i) End With Next End With Set MenuObject = Nothing Set cb =...
  15. Korhan Ayhan

    Satır silmeyi Engelleme

    ...Sag_Tik_Ana_Menu For Each Sil_Alt_Menu In Sag_Tik_Sil_Menu.Controls If Sil_Alt_Menu.Index = 1 Then Sil_Alt_Menu.OnAction = "Silme_Onaylama_Sutun" If Sil_Alt_Menu.Index = 2 Then Sil_Alt_Menu.OnAction = "Silme_Onaylama_Satir" Next...
  16. B

    Soru Köprü oluşturulmuş resmi excele çekmek

    Pardon ben sadece resmi ekle modülünü kullanacağım için o bölümü almıştım, düzenleyince resim almaya başladı tek sorun. 5 satırdın sadece ilk ve son satırını alıyor aradakileri boş geçiyor. İlk satırdaki resme de 4. satırın ismini veriyor. ActiveSheet.Shapes.AddPicture(yol, True, True...
  17. A

    Soru Köprü oluşturulmuş resmi excele çekmek

    ...Set resim = ActiveSheet.Shapes.AddPicture(yol, True, True, Range("F" & i).Left, Range("F" & i).Top, 60, Range("F" & i).Height) resim.OnAction = "Resim_Büyüt" resim.Name = Range("B" & i) Next End Sub Sub Resim_Büyüt() Dim ActiveShape As Shape ButtonName = Application.Caller Set ActiveShape...
  18. B

    Soru Köprü oluşturulmuş resmi excele çekmek

    Type mismatch hatası veriyor.
  19. A

    Soru Köprü oluşturulmuş resmi excele çekmek

    ...görüleceği hücre Soldan .Top = Range("F" & i).Top 'Resmin görüleceği hücre Üstten .Height = Range("F" & i).Height .Name = Range("B" & i) .OnAction = "Resim_Büyüt" End With Next End Sub Sub Resim_Büyüt() Dim ActiveShape As Shape ButtonName = Application.Caller Set ActiveShape =...
  20. M

    Şekle tıklandığında rengini değiştirme

    Hocam oldu çok çok teşekkür ederim çok sağolun kolay gelsin :)
Üst