Sorgu için arama sonuçları: onaction

  1. Greenblacksea53

    Excelde Kopyalama Yapıp Sadece Değerleri Yapıştırma

    ...End If Next ctrl Set ctrl = cb.Controls.Add(msoControlButton) With ctrl .Caption = "Değerleri Yapıştır" .OnAction = "Paste_Values_Only" End With End Sub Aşagıdaki kodları mödül ekleyip kopyaların Sub Paste_Values_Only() Selection.PasteSpecial...
  2. E

    Güncel Market Fiyatları İnternetten Bulmak

    Vay arkadaş maşallah ya. Kod anlatılmaz yazılır olduğunu defalarca öğrenmiş olduk. Emeğine yüreğine sağlık üstad.
  3. ibere

    Güncel Market Fiyatları İnternetten Bulmak

    Hocam eline sağlık, şu xmlhttp nesnesini öğrenmek istiyorum fakat detaylı bir rehber bulamadım. Yardımcı olursan sevinirim.
  4. H

    Güncel Market Fiyatları İnternetten Bulmak

    ...& iRow + 1).Left, Range("C" & iRow + 1).Top, Range("C" & iRow + 1).Width, Range("C" & iRow + 1).Height) With btn .OnAction = "getDetails" .Caption = "Detay" .Name = "Btn" & iRow End With End If If...
  5. H

    Güncel Market Fiyatları İnternetten Bulmak

    ...& iRow + 1).Left, Range("C" & iRow + 1).Top, Range("C" & iRow + 1).Width, Range("C" & iRow + 1).Height) With btn .OnAction = "getDetails" .Caption = "Detay" .Name = "Btn" & iRow End With End If If...
  6. bulentkars

    Soru Eklenti Menü HK

    ...almam mümkün olur mu acaba? Şİmdiden teşerkkürler With cbAltMenu.Controls.Add(1, 1, , , True) .Caption = "Sipariş Saatlerine Göre Depo Çıkış Grafiği" ' C:\Raporlar\Eklenti\Caption.xls B2 Satırında yazılı olan metni alacak. .OnAction = "Siparis_Saati_Grafik" .FaceId = 698 End...
  7. L

    Soru Resim 1 e çift tıklayınca resim büyüsün tekrar tıklayınca küçülsün

    ...koyu renkli ilaveyi yaparak deneyin. Tabii benim eklediğim dosyadaki buyut isimli makroyuda bir module kopyalamayı unutmayın. shp.onaction= = "buyut" With Shape shp.ShapeRange.LockAspectRatio = msoTrue shp.Left = ActiveSheet.Range("A1").Left shp.Top =...
  8. Korhan Ayhan

    Soru Resim 1 e çift tıklayınca resim büyüsün tekrar tıklayınca küçülsün

    Resmi değiştiren kodunuza eklenen resme makro ataması yapan kodları tanımlayabilirsiniz. Linkteki konular size fikir verebilir. https://www.excel.web.tr/search/255460/?q=onaction&o=date
  9. L

    CommandButton İsim Değiştirme Hk.

    ...Form nesnelerinden bir buton oluşturmak işinize yarar ise oluşturacağınız butona aynı makroyu bağlayabilirsiniz. Örneğin; Dim buton As Shape Set buton = Sheets("Sayfa1").Shapes.AddFormControl(xlButtonControl, 10, 10, 100, 25) buton.TextFrame.Characters.Text = "SAP" buton.OnAction =...
  10. Merhum İdris SERDAR

    Soru Şeritte Calendar seçildiğinde, tarihin günleri niye farklı gözüküyor?

    ...2)) = Day(dtmDate)) Else returnedVal = (Val(Right(control.ID, 2)) = Day(Date)) End If End Sub 'Callback for btnDay01 onAction Sub DayAction(control As IRibbonControl, pressed As Boolean) 'Stop dtmDate = DateSerial(Val(strYear), lngMonth, Val(Right(control.ID, 2)))...
  11. A

    Metin Kutusu Gizle/Göster Makrosu

    ....ShapeRange.IncrementRotation 90 ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoTrue End With Worksheets(1).Shapes("button").OnAction = "off_button" Range("A14").Select End Sub Sub Off_button() Worksheets(1).Shapes("button").Select With Selection .ShapeRange.IncrementRotation...
  12. A

    Modul Makroyu Tüm Sayfalarda Çalıştırma

    ....ShapeRange.IncrementRotation 90 ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoTrue End With Worksheets(1).Shapes("button").OnAction = "off_button" Range("A14").Select End Sub Sub Off_button() Worksheets(1).Shapes("button").Select With Selection .ShapeRange.IncrementRotation...
  13. 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 '-------------------------------------------------------------------------------------------------...
  14. 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")...
  15. 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...
  16. 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)...
  17. Ö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()...
  18. 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...
  19. Ö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()...
  20. 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
Üst