Soru Her bir satırı en üst satır ile birlikte dikey duruma getirip ve her birini ayrı ayrı sayfalarda yazdırmak

[phrenicus]

Merhaba,
Elimde var olan ve eklemiş olduğum veri dosyasında Sayfa 1 de yer alan her bir satırı Sayfa 2 de göstermiş olduğum gibi her biri ayrı sayfada olacak şekilde dikey olarak yerleştirip ve ayrı ayrı sayfalarda çıktı almak istiyorum. "Özel yapıştır" komutu ile bir satırı yapmaya çalıştım ama bunun daha kısa bir yolu var mıdır acaba?
Şimdiden teşekkürler.
Veri Dosyası

 

[veyselemre]

Sub yazdir()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    son = s1.Cells(Rows.Count, "A").End(3).Row
    For i = 2 To son
        s1.Cells(i, 1).Resize(, 12).Copy
        s2.Range("B1").PasteSpecial xlPasteValues, , , True
        's2.PrintOut
        s2.PrintPreview
    Next i
End Sub

 

[phrenicus]

Sub yazdir()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    son = s1.Cells(Rows.Count, "A").End(3).Row
    For i = 2 To son
        s1.Cells(i, 1).Resize(, 12).Copy
        s2.Range("B1").PasteSpecial xlPasteValues, , , True
        's2.PrintOut
        s2.PrintPreview
    Next i
End Sub

Merhaba öncelikle teşekkür ediyorum. Kodu çalıştırdım ama sadece ilk satırdaki veriyi istediğim şekilde yapıyor. Ben tüm satırların benzer şekilde yazılmasını istiyorum. Yani her bir satır için 90 tane ayrı sayfa olması lazım. Ben uygulamada mı yanlış bir şey yapıyorum.

 

[phrenicus]

Merhaba öncelikle teşekkür ediyorum. Kodu çalıştırdım ama sadece ilk satırdaki veriyi istediğim şekilde yapıyor. Ben tüm satırların benzer şekilde yazılmasını istiyorum. Yani her bir satır için 90 tane ayrı sayfa olması lazım. Ben uygulamada mı yanlış bir şey yapıyorum.

Çok özür diliyorum sorun çözüldü ben yanlış görmüşüm gayet iyi çalışıyor. Elinize sağlık.
Son olarak acaba verileri bu formatta word dosyası olarak kaydedilme imkanı var mı? (baskı çıktısı halinde görülen formatın her birinin bir word sayfasında olduğu şekilde)

 

[veyselemre]

Mektup Birleştirme |Mail Merge – Excel Gurusu

Inceleyin.

 

[phrenicus]

Mektup Birleştirme |Mail Merge – Excel Gurusu

Inceleyin.

Baktım hocam örnek dosyaya da göz attım ama mevcut kısıtlı bilgim ile çözmem çok zor sanırım . Teşekkür ediyorum tekrardan.