ctrl+p yapıp yazdırdığımda sayfa 2 ye satır olarak yan yana sırası ile kopyalasın

[sattar]

KULLANMIŞ OLDUĞUM EXCELLDE FATURA ÇIKARIYORUM 7,9 VE 11 NOLU SATIRLARA GİRDİĞİM BİLGİLER 27,29,31 NOLU SATIRLARA KOPYALANIYOR ŞUANDA ..BENİM İSTEDİĞİM İSE 7,.9.11 NOLU SATIRDAKİ HÜCRELERE GİRDİĞİM BİLGİLER 27.29.31 E KOPYALANDIKTAN SONRA CTRL+P YAPIP YAZDIRDIĞIMDA SAYFA 2 YE SATIR OLARAK YAN YANA SIRASI İLE KOPYALASIN İSTİYORUM ABONE,AD SOYAD, KURUM,SON ÖDEME , TUTAR OLARAK HÜCRELERE TEK SATIR OLARAK SIRALASIN İSTİYORUM ARKADAŞLAR YAPABİLECEK ARKADAŞLARDAN ALLAH RAZI OLSUN ŞİMDİDEN MSN ADRESİM :mehmet__volkan@hotmail.com

 

[Ömer]

Merhaba,

ThisWorbook sayfasına kopyalayınız..

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PrintOut
Set S1 = Sheets("Sayfa2")
son = S1.[A65536].End(3).Row + 1
    S1.Range("A" & son) = Range("F9")
    S1.Range("B" & son) = Range("F7")
    S1.Range("C" & son) = Range("I7")
    S1.Range("D" & son) = Range("O9")
    S1.Range("E" & son) = Range("O12")
End Sub

.

 

[sattar]

Kardeş kusura bakma ama kopyalamayı fln bilmiyorum kod ları kusura bakma bi el atarsan çok sevinirim

 

[sattar]

Kod kopyalamayı araştırdım buldum ama aynı satıra atıyor her seferinde bir alta nasıl geçirebilirim yeni işlemi?