boş hücre varken uyarı verme

[scrp08]

merhaba forumda daha önce defalarca sorulmuş ama bir türlü beceremedim. yardım eder misiniz ?

excelde A1-A5 hücrelerinden herhangi biri boş kaldığında excel sayfayı kaydetmesin ve uyarı mesajı versin.

çok teşekkürler

 

[Orion1]

thisworkbook modülüne.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountA(Sheets(1).Range("A1:A5")) < 5 Then
    Cancel = True
    MsgBox "A1:A5  aralığında en az 1 hücrede boşluk var!" & vbLf & "Dosya Kayıt edilmedi!!", vbCritical, "UYARI"
End If
End Sub

 

[scrp08]

süper oldu, emeğinize sağlık.

 

[scrp08]

aynı kodu başka bir excelde d5-d11 aralığında yapmak istediğimde "subcript out of range" şeklinde hata veriyor. Nasıl düzeltebilirm acaba ? (kodlarda a yazan yerleri d ile değiştirdim sadece)

 

[scrp08]

çok ilginç a hücrelerinde çalışıyor, d de hata veriyor.

 

[Orion1]

dosyanız ektedir.
dosyayı sayın üyenin isteği üzere sildim.

 

[scrp08]

anladığım kadarıyla aşağıdaki kodu ekleyerek sorunu çözdünüz.
Sub m()
Application.EnableEvents = True
End Sub
hızınız ve ilginiz için nasıl teşekkür etsem bilemedim, sağolun varolun.

 

[cemil_2004]

boş hücreyi boş geçememe

benim yapmak istediğim makro bir kasa takip yaptım...orada para kupürlerine giriş yapıldığı zaman programdaki değerin önce yazılması gerekiyor bunun için B hücrelerinin boş geçilmemesi lazım nasıl bir makro kodu yazabiliriz...yardımcı olacaklara şimdidden teşekkürler