vbYesNoCancel Kullanımı

[Tarikkk_]

Merhabalar

Aşağıdaki kodlara göre
vbYes ise Textbox a "E" vbNo ise "H" yazdırıyorum

    If MsgBox("Alış Dahil mi ?", vbQuestion + vbYesNo, "Satış Listesi Sorgusu") = vbYes Then

        UserForm1.TbSatış_AlışDahil = "E"

    Else

        UserForm1.TbSatış_AlışDahil = "H"

    End If

Msgbox Sorusuna aşağıdaki gibi İptal seçeneğinide ekleyerek İPTAL seçtiğimde işlem yapmadan çıkmasını istiyorum. yardımlarınızı bekliyorum şimdiden teşekkür ederim.

    If MsgBox("Alış Dahil mi ?", vbQuestion + vbYesNoCancel, "Satış Listesi Sorgusu") = vbYes Then

        UserForm1.TbSatış_AlışDahil = "E"

    Else

        UserForm1.TbSatış_AlışDahil = "H"

    End If

 

[Necdet]

Merhaba,

Sub Deneme()

    Dim eh  As String
    
    eh = MsgBox("Alış Dahil mi?", vbYesNoCancel, "Sorgu")
    
    If eh = vbYes Then
        MsgBox "Evet Tuşuna Bastınız ...."
    ElseIf eh = vbNo Then
        MsgBox "Hayır Tuşuna Bastınız..."
    Else
        MsgBox "İptal Tuşuna Bastınız...."
    End If
    
End Sub

 

[bmutlu966]

Aşağıdaki şekilde dener misiniz?

cevap = MsgBox("Alış Dahil mi ?", vbQuestion + vbYesNoCancel, "Satış Listesi Sorgusu")

    If cevap = vbYes Then
        UserForm1.TbSatış_AlışDahil = "E"
    ElseIf cevap = vbNo Then
        UserForm1.TbSatış_AlışDahil = "H"
    Else
        UserForm1.Hide
    End If