Hata Veren Sayfanın Nedeni..?

[EKREM1661]

Arkadaşlar..! Mustafa (leumruk) hocamızdan aldığım kodu, hiç değiştirmeden bir başka dosyaya yaptığım uyarlamada hata alıyorum.. Her iki sayfanın da gerek properties ve gerekse biçim özelliklerini kontrol ettim ve bir farklılık bulamadım. Dolayısıyla işin içinden çıkamadım.. Neden hata aldığım konusunda yardımcı olabilir misiniz..?

Çalışan Sayfa1 ve çalışmayan Sayfa2 bir dosyada aşağıda eklidir..

 

[YUSUF44]

2. sayfadaki yazdırma alanını temizleyince çalışıyor.

 

[EKREM1661]

Yusuf bey.. ! dediğin doğru, hatta çalışan sayfanın sayfa sonu çizgilerini oynattığın an hataya dönüşüyor.. Bunun önlemini almak için araştırmak lazım.. Çünkü kod'un kullanım imkanını darltıyor..

 

[uzmanamele]

Merhaba

    sat = [a65536].End(3).Row
If sat <= 30 Then Exit Sub
If sat <= 30 And sat >= 50 Then Exit Sub

Burada bulunan son satır değeri kriterler içirsinde kalıyorsa kod çalışmasın denmiş.
Kodda ve sayfada hata yok, kriteri gözden geçirin.

 

[EKREM1661]

Süleyman bey..! Öncelikle ilginize teşekkür ederim. Yalnız, konuya dair bir fikir yürütemedim..
Kriterleri değiştirmek veya tamamen kaldırmak bir şeyi değiştirmiyor..
Hatta, sayfasonu önizleme pozisyonunda, sayfasonu çizgillerini değiştir ve sonra eski haline getirsen bile hata vermekten kurtulmuyor..