Belirli Satır Aralıklarını Birden Fazla Sayfaya Sığdırma

[teyadih]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba arkadaşlar. Örnek dosyada da açıkladığım üzere belirli satır aralıklarını dikkate alarak birden fazla sayfa için sayfaya sığdırma makrosuna ihtiyacım var. Umarım anlatabilmişimdir? Teşekkür ederim.

 

[teyadih]

Yardım edecek yok mu? arkadaşlar

 

[Ömer BARAN]

@teyadih

İsteğinizin tam karşılığı olur mu bilemiyorum.
İlk kod satırında yer alan; sayfa adet bilgisini ve sayfa kesme noktalarının konumlarını kendinize göre düzenlersiniz.

Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap

 

[teyadih]

Teşekkür ederim sayın Baran uygulayıp dönüş yapacağım

 

[teyadih]

Merhaba sayın Baran olmadı maalesef

 

[Ömer BARAN]

En garipsediğim cevabı vermişsiniz.
"olmadı" / "hata verdi"

"Olmayan" haliyle belgenizi kaydedip, foruma eklemezseniz sorunun neden kaynaklandığını nasıl anlayabilirim ki!
Eklediğiniz örnek belgeye göre sonuç alınıyor mu alınmıyor mu öncelikle onu belirmelisiniz.
ARdından da "olmayan" belgeyi eklerseniz iki belge arasındaki fark nedir onu anlamaya çalışırız.

 

[teyadih]

Haklısınız sayın Baran

 

[ExcelDepo]

Merhaba, önceki koddaki "Sayfaya sığdır" (FitToPagesTall) ayarı kullanıldığında Excel elle eklenen sayfa sonlarını dikkate almaz; sonucun beklenen şekilde çıkmamasının nedeni budur. Aşağıdaki makro sayfa sonlarını sizin belirttiğiniz satırlara koyar ve tüm bölümler kendi sayfasına sığana kadar yakınlaştırma oranını otomatik ayarlar. Makro standart bir modüle (Insert > Module) eklenebilir:

Bu kodu görmek için giriş yapmanız gerekmektedir (46 satır). Giriş Yap

Makro nasıl çalışır?

1. A ve AD sütunlarındaki son dolu satır bulunur, yazdırma alanı A1:AD aralığına göre ayarlanır.
2. Sayfa korumanız ("123") geçici olarak kaldırılır, eski sayfa sonları temizlenir.
3. bas dizisindeki her satırın önüne elle sayfa sonu eklenir; 155. satır 2. sayfanın, 265. satır 3. sayfanın ilk satırı olur.
4. Yakınlaştırma oranı %10–%100 arasında aranır. Excel'in kendi eklediği otomatik bir sayfa sonu kalmayan ve sütunların tek sayfa genişliğine sığdığı en büyük oran seçilir.
5. Görünüm eski haline döndürülür ve sayfa yeniden korunur.

Notlar

• Örnek dosyanızda satırlar gizlendikten sonra oran %49, tüm satırlar açıkken %32 oldu; her iki durumda da çıktı tam 3 sayfa ve sayfalar 1.İdari Dava Dairesi, 1.İdare Mahkemesi ve 11.İdare Mahkemesi başlıklarıyla başladı.
• Asıl dosyanızda yalnız bas satırını düzenlemeniz yeterlidir. İlk sayfa 1. satırdan başladığı için diziye 2. sayfadan itibaren her sayfanın ilk satırı küçükten büyüğe yazılır; 10 sayfa için 9 satır numarası gerekir, örneğin Array(155, 265, 380, 490, ...).
• Gizli satırlar değiştikçe oranın kendiliğinden güncellenmesi isteniyorsa Sayfa2'deki Worksheet_Activate kodunun End With satırından sonra Call BolumleriSayfayaSigdir eklenebilir.
• Tüm sayfalar aynı yakınlaştırma oranıyla yazdırıldığı için oran en uzun bölüme göre belirlenir; kısa bölümlerin altında boşluk kalması normaldir.