Soru Otomatik Şablon Doldurma ve Yazdırma

[engin12]

Merhabalar

Ekte ki örnek bir şablonda eski no alanı Sayfa 2 den veri almak yeni seri no ise düşeyara ile sayfa 2 den veri çekiyor. Yine ad soyad kısmında aynı şekilde düşeyara ile çekiyor.

Burada sorun ben Sayfa 1 kısmına buton koyacağım ve yazdır deyince eski seri no alanı otomatik çekecek. Sayfa 2 de ne kadar veri varsa yazdıracak.

Bu mümkün müdür?

Teşekkürler.

 

[ÖmerBey]

Merhaba,
Mümkündür, deneyiniz...

Sub kod()
dz = Sayfa2.Range("A2:A" & Sayfa2.Cells(Rows.Count, "A").End(3).Row)
For a = LBound(dz) To UBound(dz)
    Sayfa1.Range("D8") = dz(a, 1)
    Sayfa1.PrintOut '!!!Dikkat yazdırma kodu!!!
Next
End Sub

 

[engin12]

Merhaba,
Mümkündür, deneyiniz...

Sub kod()
dz = Sayfa2.Range("A2:A" & Sayfa2.Cells(Rows.Count, "A").End(3).Row)
For a = LBound(dz) To UBound(dz)
    Sayfa1.Range("D8") = dz(a, 1)
    Sayfa1.PrintOut '!!!Dikkat yazdırma kodu!!!
Next
End Sub

Teşekkürler hocam. İşe yaradı.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...