Soru Onaylı Kapat Butonu

[sirkülasyon]

İftarını açanlara Allah cc Kabul Etsin.
İftarı bekleyenlere Hayırlı İftarlar dileyerek

'Private Sub CommandButton4_Click()
'cevap = MsgBox(" DOSYA KAPATILACAK DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "bilgi")




'End If
'End Sub

HAYIR ise tüm nesnelerin için temizle ve Formu Kapat
EVET ise Sayfaya kaydet tüm nesnelerin için temizle ve Formu Kapat

şeklinde nasıl düzenleyebilirim?

 

[YUSUF44]

Hayırlı iftarlar.

Şu mantıkla olabilir:

Private Sub CommandButton4_Click()
    cevap = MsgBox(" DOSYA KAPATILACAK DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "bilgi")
    If cevap = vbYes Then
        Sheets("Sayfa1").[A1] = TextBox1.Text
        .
        .
        .
        TextBox1.Clear
        .
        .
        .
    ElseIf cevap = vbNo Then
        TextBox1.Clear
        .
        .
    End If
    Unload Me
End If

 

[sirkülasyon]

Yusuf Abi
Teşekkür ederim.