...durumunu A hücresine bağla
.Name = chkBoxName ' Checkbox ismini satır numarasına göre ver
.OnAction = "CheckBoxClicked" ' CheckBox'a makro atama
End With
End If
' Temizleme...
...image
.Caption = "Sa&yfa Korumayı (Yap/Kaldır)" ' Button gözüken yazı ve ismi ve [ Alt + y (access key)]
.OnAction = "SayfaKorumaArtema" ' Tıklanınca çalışacak makro
End With
Exit For
End If
Next cb
End Sub
Private Sub...
...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...
Selamlar, ilk söylediğiniz yolu denedim fakat buton yine kayboldu. İkincisini deneyemedim. Sayfada çok fazla makro olduğu için hiç girmek istemedim ona, bağlantı ile çözdüm şimdilik. Çok teşekkür ederim.
...btn.Delete
Next btn
Set btn = Me.Buttons.Add(Left:=100, Top:=50, Width:=100, Height:=30)
With btn
.Caption = "Yeni Buton"
.OnAction = " Butonun çalıştıracağı MakroAdı"
End With
End Sub
Bu makro, sayfadaki herhangi bir hücre değiştiğinde butonu yeniden...
...kodu oluşturdum,
Burada "DOĞRU" ve "YANLIŞ" sonuçlarını döndürmekte;
"DOĞRU" ve "YANLIŞ" yerine 1 ve 0 döndürmesi için aşağıdaki kodda .OnAction olayını aktif ettiğim zaman 0 lar seçiliyor fakat 1 leri seçmiyor..
onay kutularını TRUE olarak işaretliyemiyorum
Burada eksiklik yada hata neden...
...Dim myBar As CommandBar
Set myBar = CommandBars.Add(menuName, msoBarPopup)
With myBar.Controls.Add(msoControlButton)
.OnAction = "tBox_Cut"
.Caption = "&Kes"
End With
With myBar.Controls.Add(msoControlButton)
.OnAction = "tBox_Copy"...
...ublic Sub popRightClickMenu()
deleteMenu
With CommandBars.Add(menuName, msoBarPopup)
With .Controls.Add(msoControlButton)
.OnAction = "tBox_Cut"
.Caption = "&Cut"
End With
With .Controls.Add(msoControlButton)
.OnAction = "tBox_Copy"
.Caption...
...Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With
With cmdBtn
.Caption = xStr
.Style = msoButtonCaption
.OnAction = xStr
End With
Next xFNum
On Error GoTo 0
End Sub
Geliştirici > Visula Basic>BuÇalışmaKitabı modüle yapıştırın.
Bu kodları normal bir modüle yapıştırın...
Merhaba
Siz Outtlok ile göndermeye çalışıyorsunuz ama;
Outlook Object Library' i Early Binding yapmadınız mı?
bu olmadan nasıl olacak?
Dim appOutlook As Object
Dim mItem As Object
Set appOutlook = CreateObject("Outlook.Application")
Set mItem = appOutlook .CreateItem(0)
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.