Cevap evet ise kaydetip çıksın, hayır ise hiçbirşey yapmasın?

[girdap]

Değerli Forum üyeleri,
merhaba.

Kaydetme ve kapama işlemine bir mesaj ekledim. Ancak Vbcritical ya da diğer yöntemleri denesem de yapamadım. Mesaja evet yanıtı verildiğinde kaydetip kapama işlemini gerçekleştirsin ama hayır ise hiçbirşey yapmasın istiyorum. kodda nasıl bir değişiklik yapmak gerekecektir.

Private Sub BC12_Click()

Dim Evet
Dim Hayır

if MsgBox = vbYes then
MsgBox "Excel verileri kaydedip kapanmaya hazırlanıyor, devam edilsin mi?", vbYesNo

Workbooks("Takip edilen projeler Vrs.3.XLS").Save
Application.Quit
End Sub


Saygılarımla

 

[CRAYZLOVEIS]

Arkadaşım bunu bir dene ama bende bu işte acemi sayılırım. Bende İşe yaradı umarım sendede yarar

Private Sub BC12_Click()

cvp = MsgBox("Excel verileri kaydedip kapanmaya hazırlanıyor, devam edilsin mi?", vbYesNo)

If cvp = vbNo Then
ActiveWorkbook.Close Saved = True
Else
ActiveWorkbook.Close Saved = False
End If
End Sub

 

[girdap]

Yardımınız için çok teşekkür ederim ama malesef hayır diyince dosya kapanıyor.
Bu konuda yardım edebilecek ustalardan yardım ricaediyorum.

Saygılarımla

 

[cebir]

merhaba.
şöyle deneyin..

Private Sub BC12_Click()
cvp = MsgBox("Excel verileri kaydedip kapanmaya hazırlanıyor, devam edilsin mi?", vbYesNo)
If cvp = vbYes Then
Application.Quit
ActiveWorkbook.Close Save = False
Else
Exit Sub
End If
End Sub

 

[girdap]

Sayın Cebir Merhaba.

Harikasınız. Çok çok teşekkür ediyorum. İşlem tamam. Yolunu da öğrenmiş oldum hocam.

Sağolun

Saygılarımla

 

[cebir]

rica ederim....
saygılar bizden....

 

[aliakgul]

selam,
*****************************
If MsgBox("Excel verileri kaydedip kapanmaya hazırlanıyor, devam edilsin mi?", vbYesNo) = vbNo Then Exit Sub
ActiveWorkbook.Save
Application.Quit
***************************
Böyle de uygulayabilirdin....