B2 hücresi boş ise kapatmayı engelle

[ASMET67]

Selamlar.
Çalışma kitabının Sum Sayfasındaki B2 hücresi boş ise dosyayı Kapatmayı engellemesi için nasıl bir kod yazabirim.


Mesajda Tarih girmeden Dosyayı kapatmazsınız çıkmasını ve kapatmayı engellemsini istiyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Kodları ThisWorkbook' yazınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("sum").Range("b2") = "" Then
Cancel = True
MsgBox "Tarih yazmadan kapatamazsınız."
Else
Cancel = False
End If
End Sub

 

[Recep İpek]

Veya

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If IsDate(Sheets("SUM").Range("B2").Value) = False Then
MsgBox "B2 Hücresine Tarih Girmeden Dosyayı Kapatamazsınız.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Cancel = True
End If
End Sub