kaydet kaydetme macrosundaki hata

[tatarcık]

arkadaşlar aşağıya çıkartmış olduğum macro örneğinin birazını forumdaki sizlerin bilgileri engin bilgilerinizden faydalanarak birazını da kendi çabam ile bir çalışma yaptım ama kaydet ikonuna tıkladığımda yapılan değişikliği kaydetmek istiyormusunuza hayır cevabı verdiğim halde kayıt yapıyor bunu nasıl düzelte bilirim yardımcı olursanız sevinirim. teşekkürler

Sub kaydet_kapat()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
cevap = MsgBox(Prompt:= _
"Yapılan değişiklikleri kabul ediyor musunuz?", Buttons:=vbQuestion + vbYesNo + vbApplicationModal)
If cevap = vbYes Then
MsgBox Prompt:="Değişiklikler kaydedildi!"
End If
If cevap = vbNo Then
cevap = MsgBox(Prompt:= _
"Yaptığınız Çalışma Kaydedilmeyecektir?", Buttons:=vbQuestion + vbOKOnly + vbApplicationModal)
End If
If cevap = vbOKOnly Then
MsgBox "En Son Yaptığınız İşlem Kaydedilmedi?"
End If
End Sub

 

[Mahmut Kök]

Sizin kodlarınızda kaydet (save) komutu en başta yer aldığı için, makro zaten öncee kaydediyor, daha sonra soruyor "kabul ediyor musunuz?" diye.. Bir de, excelden çıkarken zaten otomatik olarak soruyor deeğişikliklerin kaydedilip kaydedilmemesini; siz yine de kodla istiyorsanız, aşağıdakini deneyebilirsiniz.



Sub kaydet_kapat()

Application.Quit
cevap = MsgBox(Prompt:= _
"Yapılan değişiklikleri kabul ediyor musunuz?", Buttons:=vbQuestion + vbYesNo + vbApplicationModal)
If cevap = vbYes Then
For Each w In Application.Workbooks
w.Save
Next w
MsgBox Prompt:="Değişiklikler kaydedildi!"
End If
If cevap = vbNo Then

cevap = MsgBox(Prompt:= _
"Yaptığınız Çalışma Kaydedilmeyecektir?", Buttons:=vbQuestion + vbOKOnly + vbApplicationModal)
Application.Quit
End If
If cevap = vbOKOnly Then
MsgBox "En Son Yaptığınız İşlem Kaydedilmedi?"
End If
ActiveWorkbook.Close false

End Sub

 

[tatarcık]

teşekkür

teşekkür ederim hocam iyi çalışmalar