Yazdırma Sorunu

[kama46]

merhaba iyi akşamlar herkese ;
excel sayfa1 deki yaklaşık 40 adet sütüna 100 satıra yakın veri girdim
sayfa ikiye bir şablon hazırladım ve bu şablona srası ile sayfa1" deki belirlediğim ilgili hücreleri (=sayfa1!c1) yazdım ancak yazdırma alanı sabit olmak üzere her print aldığımda sayfa1 deki bir alt satırın verilerini versin istiyorum bunu makro ile yapamadım devamlı kopyala yapıştır yapıp hücre hedeflerini değiştiriyorum daha kolay bir yolu varmı acaba Teşekkürler .

 

[Necdet]

Merhaba,

Örnek dosya ile sorunuzu destekleyiniz. Anlaşılması ve çözümü daha hızlı olur.

 

[kama46]

örmek dosyayı ekliyorum ilginize teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Sub Yaz()
Set s1 = Sheets("LISTE")
Set s2 = Sheets("ÖDEME_SABLONU")
Dim i As Long
s1.Select
For i = 3 To [B65536].End(3).Row
    s2.[B3] = Cells(i, "B")
    s2.[B4] = Cells(i, "C")
    s2.[B6] = Cells(i, "D")
    s2.[B7] = Cells(i, "F")
    s2.[B8] = Cells(i, "G")
    s2.[B9] = Cells(i, "A")
    s2.[B13] = Cells(i, "J")
    s2.[C13] = Cells(i, "K")
    s2.[B14] = Cells(i, "L")
    s2.[C14] = Cells(i, "M")
    s2.[C15] = Cells(i, "N")
    s2.[C17] = Cells(i, "I")
    s2.[C18] = Cells(i, "O")
    s2.[C20] = Cells(i, "P")
    s2.[C22] = Cells(i, "Q")
    s2.[G12] = Cells(i, "R")
    s2.[G13] = Cells(i, "S")
    s2.[G14] = Cells(i, "T")
    s2.[G15] = Cells(i, "U")
    s2.[G16] = Cells(i, "H")
    s2.[G17] = Cells(i, "V")
    s2.[G21] = Cells(i, "W")
    s2.PrintPreview     'Yazdırmak için bu satırı kaldırın
'    s2.PrintOut        'Yazdırmak için bu satırı kullanın
Next i
End Sub

 

[kama46]

uyguladım ve harika oldu üstadım ellerinize sağlık o kadar büyük bir yükten kurtuldum ki Tekrar Teşekkür ederim.

 

[Necdet]

Rica ederim, güle güle kullanınız.