Adres Mektup birleştirme benzeri makro

[YUSUF44]

Word'deki adres mektup birleştirme özelliğini biliyoruz. Benim yapmak istediğim ise Excel'de sayfa1'in G5 hücresini sırayla Sayfa2'nin A sütununda yer alan isimlerle doldurup, her isim değiştirdiğinde yazıcıdan yazdırmak. Bir sayfalık bir form ve isimlerde 10 ile 20 arasıdna değişiyor, nadiren 20'den fazla da olabilir.

Yardımcı olacaklara şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:66ee989efd]Sub yazdir()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 1 To s2.[a65536].End(3).Row
s1.[g5] = s2.Cells(a, "a")
s1.PrintOut
Next
End Sub[/vb:1:66ee989efd]

 

[YUSUF44]

Teşekkürler Sayın Leventm :bravo: :arkadas: