Dosyada yazdığım formülde FALSE var, exceli kapatırken msg box çıksın

[murbal]

Merhaba,

*.*xlsx dosyasında herhangi 5 kolona yazdığım formüller içinde FALSE yazan varsa ve exceli kapatıyorsa hata mesajı versin ve tamamı TRUE olana kadar bu hatayı vererek dosyayı kapatmaya izin vermesin.

Acil yardımlarınızı rica ederim.

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz. Dosyanızı kapatmaya çalıştığınızda uyarı mesajını alacaksınız.

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim BUL As Range
    Set BUL = Range("A:E").Find(False, , xlValues, xlPart)
    If Not BUL Is Nothing Then
        MsgBox "Formüllerinizde YANLIŞ değeri içeren hücreler var !" & Chr(10) & _
        "Lütfen kontrol ediniz !", vbCritical
        Cancel = True
        Set BUL = Nothing
        Exit Sub
    End If
End Sub

 

[murbal]

hata veriyor. hata mesajı ekleyemedim. Invalid inside procedure "Option Explicit" bunu işaretliyor

 

[Korhan Ayhan]

Selamlar,

Kodları deneyerek gönderiyorum. Sanıyorum siz uyarlarken hata yaptınız.

Kodu uyguladığınız pencerede "Option Explicit" satırından bir adet olduğuna emin olunuz.

 

[murbal]

Şu dosyayı bir atach yapsanız mümkün mü acaba?

 

[Korhan Ayhan]

Selamlar,

Örnek dosyayı #2 nolu mesajıma ekledim. C ya da D sütunlarından birisinin içeriğini temizleyip dosyayı kapatmayı deneyin.

 

[murbal]

Selam,

Heyecandan görmemişim , tamamdır, çok teşekkür ederim desteğinize çok makbule geçti.

syg,