kaydet ve çıkış yap

[sinemomec]

Private Sub CmdgelenGelenKayıt_Click()
GELENEVRAK.Show
End Sub
Private Sub CmdgelenGelenKayıt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdgelenGelenKayıt.BackColor = &H80000010
End Sub
Private Sub CmdGidenEvrakKayıt_Click()
gidenevrak.Show
End Sub
Private Sub CmdGidenEvrakKayıt_mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdGidenEvrakKayıt.BackColor = &H80000010
End Sub
Private Sub CmdPersonelÖnKayıt_click()
personelöntanım.Show
End Sub
Private Sub CmdPersonelÖnKayıt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdPersonelÖnKayıt.BackColor = &H80000010
End Sub
Private Sub CmdDesimalDosyaKayıt_click()
desimaldosya.Show
End Sub
Private Sub CmdDesimalDosyaKayıt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdDesimalDosyaKayıt.BackColor = &H80000010
End Sub
Private Sub CmdKaydetVeCıkıs_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdKaydetVeCıkıs.BackColor = &H80000010
End Sub
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CmdgelenGelenKayıt.BackColor = &H8000000F
CmdGidenEvrakKayıt.BackColor = &H8000000F
CmdPersonelÖnKayıt.BackColor = &H8000000F
CmdDesimalDosyaKayıt.BackColor = &H8000000F
CmdKaydetVeCıkıs.BackColor = &H8000000F
End Sub


cmd kaydet ve çıkış yapmak istiyorum ancak bir hata yaptım bulamadım. nasıl düzeltebilirim.
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

 

[sinemomec]

yaptım teşekkür ederim.

 

[Greenblacksea53]

Başka açık Excel dosyası varsa onu da kapatır bu kodların, Application.Quit yerine ThisWorkbook.Close kullanırsan ilgili kitabı kapatır