excelde alt alta bütün satırlara sayfa sonu ekleme

[GRANDfather]

Excel de 1000 den fazla yazılmış alt alt satırlar mevcut bunların her birinin ayrı sayfa olması için bütün bu satırlara sayfa sonu eklemek istiyorum bunun kolay pratik bir yöntemi var mı? Mümkünse makro kullanmadan yapmak istiyorum

 

[YUSUF44]

Satır yüksekliğini bir sayfaya sığacak şekilde ayarlayabilirsiniz. Örneğin boş bir excel sayfasında sayfa ayarını hiç değiştirmediğinizde satır yüksekliğini maksimum değer olan 409 (sizde farklı olabilir) olarak ayarlarsanız her satır bir sayfaya sığmaktadır.

 

[GRANDfather]

o şekilde sayfa inanılmaz dercede aşağıya kadar iner elimde bir dosya var örnek olması açısından bunu birisinden aldım yaklaşık 300 e kadar yapmış ama bana bin tane kadar lazım aldığım kişi nasıl yapıldığını bilmiyor o da sanırım başkasından almış dosyaya bir bakarsanız ne yapmak istediğim daha net anlaşılır sanırım.

 

[systran]

dosyayı inceledim.
sayfa sonu yapmaktaki amacın ne? yazdırmada kolaylık sağlamak içinse dediğini WORD de üst bilgi ve sayfa numarası ekleyerek daha kolay yapabilirsin.

 

[YUSUF44]

Örnek dosyada muhtemelen tek tek sayfa sonu eklenmiş.

Eğer sayfanın geri kalanıyla bir işiniz olmayacaksa sayfa yapısını değiştirerek de yapabilirsiniz. Sayfa üst ve alt boşluklarını araya sadece 1 satır sığacak şekilde arttırırsanız ya da kağıt boyutunu elle girip bir satıra göre ayarlarsnız istediğiniz olur.

 

[GRANDfather]

WORD de bu şekilde hem başlık hem sayfa numarasını yukarıda 1 den 1000 e kadar verecek 1000 sayfayı pratik olarak nasıl yapabilirim.

 

[YUSUF44]

Siz bir sayfada belirttiğiniz gibi 1 satır veri olmasını ve bunun kendi arasıdna bir düzen içinde yazdırılmasını mı istiyorsunuz? Yani yazdır dediğinizde diyelim ki 1000 sayfa yazıcıdan çıkacak, her sayfada sadece üstte bir satır veri olacak, istenirse bu bir satır veri her satırda belirli bir düzen içinde değişecek. Doğru mu anlamışım?

eğer öyleyse aşağıdaki makro her seferinde K1 hücresini 1 arttırarak toplam 1000 sayfayı yazdırmaktadır.

Sub yazdır()
For i = 1 To 1000
[k1] = i
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next

End Sub

Denemek istiyorsanız koddaki 1000'i azaltıp (örneğin 2 yada 3 yapıp) öyle deneyin.

 

[systran]

EKLE-> sayfa numarası, üst sağ taraf olanı seçerek,
aynı yere (üstbilgi) kasa defteri yazarak

daha sonra istediğin sayfa sayısı dolana kadar CTRL + ENTER bas.

 

[omerceri]

Sayın GRANDfather

satır sonu eklemek için
say = Range("A65536").End(3).Row
for i = 2 to say
ActiveSheet.HPageBreaks.Add Before:=Range("A" & i)
next

satır sonlarını sıfırlamak için
ActiveSheet.ResetAllPageBreaks