MsgBox da Evet , Hayır dan sonra Vazgeç

[sdegirmenci]

Merhaba;
Aşağıdaki koda üçüncü seçenek olarak "Vazgeç" eklemek istiyorum,
Bu konuda yardımcı olabilirseniz sevinirim. Saygılarımla

Private Sub kapat_Click()
cevap = MsgBox("PROĞRAM KAPATILACAKTIR." & vbCrLf & "KAYDEDEREK ÇIKMAK İÇİN ""EVET"" " & vbCrLf & "KAYDETMEDEN ÇIKMAK İÇİN ""HAYIR"" DÜĞMESİNİ TIKLAYINIZ ", vbYesNo, Application.UserName)
If cevap = vbNo Then

Application.Quit
ThisWorkbook.Close False
Unload Me
End If

If cevap = vbYes Then
ActiveWorkbook.Save
Application.Quit
ActiveWorkbook.Close True

Unload Me
End If
End Sub

 

[programer]

Aşağıdaki linki incelermisiniz. Konu açmadan forumda arama yapsanız daha iyi olur. Saygılar...


http://www.excel.web.tr/f50/msgboxa-3-4-5-satyr-t37182.html

 

[Orion1]

Buyurun.

If MsgBox("Test", vbYesNoCancel, "TEST") = vbCancel Then
    MsgBox "Vazgeçildi"
End If

 

[Murat OSMA]

İlaveten alternatif...

Sub Mesajin_Var()

    Dim Cevap As VbMsgBoxResult
    
    Cevap = MsgBox("..::.. Mesaja Devam Edilsin mi ? ..::.. ", _
    vbYesNoCancel + vbMsgBoxRtlReading, "MsgBox Hakkında")
    
    Select Case Cevap

        Case Is = vbYes
            MsgBox "..::.. Evet Butonuna Basıldı ..::..", vbInformation, "Bilgi !"

        Case Is = vbNo
            MsgBox "..::.. Hayır Butonuna Basıldı ..::..", vbInformation, "Bilgi !"

        Case Is = vbCancel
            MsgBox "..::.. İptal Butonuna Basıldı ..::.. ", vbInformation, "Bilgi !"

    End Select
    
End Sub

 

[sdegirmenci]

Sayın; programeer, Orion1 ve Murat OSMA
İlginize çok teşekkür ederim, Problemi çözdüm, İşleriniz kolay gelsin. Saygılarımla

 

[hukumran1]

Murat beyin verdiği kodlarla Evet Hayır ve İptal butonları çıkıyor. Bu butonların isimlerini ihtiyaca göre nasıl değiştirebiliriz?

 

[pys60]

Murat beyin verdiği kodlarla Evet Hayır ve İptal butonları çıkıyor. Bu butonların isimlerini ihtiyaca göre nasıl değiştirebiliriz?

Buton adlarını mı sorunuzu tam anlamadım

 

[YUSUF44]

Murat beyin verdiği kodlarla Evet Hayır ve İptal butonları çıkıyor. Bu butonların isimlerini ihtiyaca göre nasıl değiştirebiliriz?

MsgBox'taki düğmelerin üstünde yazan metinler değişebilir mi bilmiyorum. Ancak siz kendi isteğinize göre düzenleme yapmak istiyorsanız bir userformda istediğiniz düğmeleri hazırlayıp, istediğiniz gibi düzenleyebilirsiniz.

 

[hukumran1]

Buton adlarını mı sorunuzu tam anlamadım

Evet buton adlarını değiştirmek istiyorum.

 

[hukumran1]

MsgBox'taki düğmelerin üstünde yazan metinler değişebilir mi bilmiyorum. Ancak siz kendi isteğinize göre düzenleme yapmak istiyorsanız bir userformda istediğiniz düğmeleri hazırlayıp, istediğiniz gibi düzenleyebilirsiniz.

Userforma benim çalışmam için uygun olur mu bilmiyorum.

 

[pys60]

Userforma benim çalışmam için uygun olur mu bilmiyorum.

uygun olur siz ekleyin hata verirse düzenleme yaparız elimizden geldiği kadarıyla.

 

[hukumran1]

uygun olur siz ekleyin hata verirse düzenleme yaparız elimizden geldiği kadarıyla.

İlginiz için teşekkür ederim. Yapabilirsem sizi de rahatsız ederim.