- Katılım
- 25 Ocak 2006
- Mesajlar
- 764
- Excel Vers. ve Dili
- 2019 tr
sayfayı kapattığımda koddaki şartı sağlamıyorsa evet hayırlı msgbox ile uyarı vermesi, evete basılması durumunda kaydet kaydetme uyarısını çıkmadan excele dönmesi, hayıra basılması durumunda ise normal kaydet kaydetme uyarısının gelmesi için yardım gerekiyor.
yapmaya çalıştığım bu şekilde ama olmadı.
Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Komut As Integer
Dim Mesaj As String
Dim Baslik As String
If Application.Sum(Range("c23:t23")) > 0 And Range("b23") = "" Or Application.Sum(Range("c24:t24")) > 0 And Range("b24") = "" Then
Mesaj = "Proje Kapsamı kısmında, ilini yazmamış gibisin... düzeltmek ister misin?"
Baslik = "FIRAT UYARIYOR!"
Komut = MsgBox(Mesaj, vbYesNoCancel + vbQuestion, Baslik)
If Komut = 6 Then
ActiveWorkbook.Close False
Range("b23").Select
Exit Sub
Else
End If
End If
End Sub