Dosya boşsa makro dursun

[xlsx]

Selam,
ANA isimli sayfa dosya ilk açıldığında boş olarak geliyor.Kullanıcılar tarafından bu dosyaya veriler eklenerek makro çalıştırılıyor.Bu sayfa boş bırakılarak ALT-F8 yapılarak makro çalıştırılmak istenirse herhangi bir başka adıma geçmeden, ayrıca dosyanın kayıt yapılsın mı sorusu çıkmadan kapanmaya zorlanmasını istiyorum.Hangi kodu kullanmalıyım.
Tşk.

 

[İhsan Tank]

merhaba
sorunuzu tam anlamadım.
biraz daha açıklama yapar mısınız

 

[xlsx]

Selam, içersinde kod bulunan herhangi bir makro dosyası çalıştırıldığında dosyanın X bir sayfası boş ise kod devam etmesin ve uyarı olarak çıkan kayıt yapılsın mı ekrana çıkmadan dosya kapansın istiyorum.

 

[İhsan Tank]

örnek bir dosya ekler misiniz_?

 

[halit3]

Selam,
ANA isimli sayfa dosya ilk açıldığında boş olarak geliyor.Kullanıcılar tarafından bu dosyaya veriler eklenerek makro çalıştırılıyor.Bu sayfa boş bırakılarak ALT-F8 yapılarak makro çalıştırılmak istenirse herhangi bir başka adıma geçmeden, ayrıca dosyanın kayıt yapılsın mı sorusu çıkmadan kapanmaya zorlanmasını istiyorum.Hangi kodu kullanmalıyım.
Tşk.

Kod

If WorksheetFunction.CountA(Sheets("Sayfa1").Cells) <= 0 Then
a = MsgBox("KAYIT YAPILSINMI ?", vbYesNo + vbInformation, " UYARI!")
If a = vbNo Then
Exit Sub
End If
End If

 

[xlsx]

Selamlar,
İlgili kodlarda CountA kullandım, teşekkürler
Uyarı ekranının gözükmemesi ile ilgili de Application.DisplayAlerts kullandım.