kaydet ve çıkış yap

[sinemomec]

userform da kaydet ve çıkış yap diyorum ama hata veriyor acaba nerede nasıl bir hatam var.

 Sub kaydet_cık()
Application.ScreenUpdating = False
If MsgBox("YAPILAN İŞLEMLERİ KAYDETMEK İSTİYORMUSUNUZ?", vbYesNo + vbQuestion, "KAYDET") = vbYes Then
ThisWorkbook.Save

Application.Quit 'Bunu ekle

MsgBox "YAPILAN İŞLEMLER KAYDEDİLDİ.", vbInformation, " KAYIT"
Else
Exit Sub
End If
End Sub

 

[muygun]

Merhaba;
Kodlarınızı;

Private Sub kaydet_cık_Click()
Application.ScreenUpdating = False
sorgu = MsgBox("YAPILAN İŞLEMLERİ KAYDETMEK İSTİYORMUSUNUZ?", vbYesNo + vbQuestion, "KAYDET")
If sorgu = vbYes Then
ThisWorkbook.Save
Application.Quit 'Bunu ekle
MsgBox "YAPILAN İŞLEMLER KAYDEDİLDİ.", vbInformation, " KAYIT"
End If
If sorgu = vbNo Then
Unload Me
End If
End Sub

Şeklinde düzenleyerek deneyin.
İyi çalışmalar.

 

[sinemomec]

peki bunu modül olarak mı yoksa çalışma kitabında mı çalıştırayım

 

[muygun]

modülde deneyin.

 

[sinemomec]

excelde sayfasında calışıyor ancak userfomda çalıştıramadım.