Belli Bir Şablona Sırayla Listedeki İsimleri Yazdırma

[BedriA]

Arkadaşlar,

Çalışma kitabımda belli bir şablon var ve bu şablonu sürekli, Ad Soyad ekleyerek yazdırıyorum. Düğün davetiyesi gibi... Aynı kitaptaki başka bir sayafadan ad ve soyadları alarak "ad ve soyadı yaz-şablonu yazdır" şeklinde, tüm isimler (davetli listesi) için, yani son dolu satıra kadar bu işlemi yapacak bir makro oluşturabilir miyiz?

Sınav kağıtlarına öğrenci bilgilerini yazdırmak için kullanacağım.

İlgilenecek arkadaşlara şimdiden teşekkürler.

Selam ve saygılarımla.

 

[askm]

Örnek dosya eklerseniz hızlı cevap alırsınız.

 

[BedriA]

İlginiz için çok teşekkür ederim.
Örnek dosya ektedir.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Eğer her etiket değişiminde yazdırmak istemiyorsanız Printout satırını iptal ediniz:

Sub etiket()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    s2 [E4] = s1.Cells(i, "A")
    s2 [E5] = s1.Cells(i, "B")
    s2 [E6] = s1.Cells(i, "C")
    s2.PrintOut
Next
End Sub

 

[BedriA]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Eğer her etiket değişiminde yazdırmak istemiyorsanız Printout satırını iptal ediniz:

Sub etiket()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    s2 [E4] = s1.Cells(i, "A")
    s2 [E5] = s1.Cells(i, "B")
    s2 [E6] = s1.Cells(i, "C")
    s2.PrintOut
Next
End Sub

Hocam ilginiz için çok teşekkür ederim.
Ancak her satır için PDF'e isim vermemi istiyor. İsmini E4 hücresinden alıp son dolu hücreye kadar devam etmesi mümkün mü?

Tekrar teşekkür ederim.

 

[YUSUF44]

Yazıcı olarak pdf seçtiğiniz için öyle oluyordur. Pdf yapmak değil de doğrudan yazdırmak istiyorsanız önce yazıcıyı değiştirin sonra makroyu çalıştırın.

 

[BedriA]

Sub etiket()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    s2 [E4] = s1.Cells(i, "A")
    s2 [E5] = s1.Cells(i, "B")
    s2 [E6] = s1.Cells(i, "C")
    s2.PrintOut
Next
End Sub

Yusuf Hocam,

Yukarıdaki kodu şöyle bir şeyle değiştirmemiz mümkün mü?
Örnek dosya ve açıklama linkte.

http://www.excel.web.tr/f48/vba-kodu-yardym-optik-forma-sim-yazdyrma-t165504.html#post901927