Mesaj ile Kaydet . Evet-Hayır

[sedat2161]

Hayırlı akşamlar arkadaşlar. Ekte gönderdiğim dosyada buton ile çıkış aldığımda,
Application.ScreenUpdating = False
If MsgBox("YAPILAN İŞLEMLERİ KAYDETMEK İSTİYORMUSUNUZ?", vbYesNo + vbQuestion, "KAYDET") = vbYes Then
ThisWorkbook.Save
MsgBox "YAPILAN İŞLEMLER KAYDEDİLDİ.", vbInformation, " KAYIT"
kodunu bir türlü yapamadım yardımcı olabilir misiniz.

 

[genesis_vision]

Evet'e tıklandığı zaman etkin çalışma kitabını kaydeder.

 

[sedat2161]

Evet'e tıklandığı zaman etkin çalışma kitabını kaydeder.

Merhaba genesis_vision ilginiz için teşekkürler. Yanlız butona tıkladığımda dosyadan çıkış almam gerekirken bu mesajı almam.
Application.Quit
ActiveWorkbook.Close
bu koddan sonra olması gerekiyor. İyi çalışmalar diliyorum.

 

[genesis_vision]

Sadece kaydetmek istediğinizi düşündüm. O zaman şunu deneyin.

 

[sedat2161]

Sadece kaydetmek istediğinizi düşündüm. O zaman şunu deneyin.

Çok teşekkür ederim genesis_vision . Emeğnize sağlık ALLAH Razı olsun. Hayırlı akşamlar

 

[genesis_vision]

Çok teşekkür ederim genesis_vision . Emeğnize sağlık ALLAH Razı olsun. Hayırlı akşamlar

Rica ederim. Güle güle kullanın.