Tek bir sayfayı farklı isimlerle baskı yapmak

[excel6464]

Tek bir sayfada isim ve soyisim bölümü var. Ben bu tek sayfayı çıktı alırken her seferinde isimleri tek tek yazmak yerine otomatik olarak yazdırmak istiyorum. Böyle bir şey mümkün müdür? Zaman ayırdığınız için şimdiden teşekkürler.

 

[monelogg]

Merhaba, şu kodu dener misiniz?

Sub sdf()
For i = 3 To Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Sheets("defter").Cells(3, 3) = Sheets("Sayfa1").Cells(i - 1, 1)
Sheets("defter").Cells(3, 4) = Sheets("Sayfa1").Cells(i - 1, 2)
Sheets("defter").PrintOut Copies:=1
Next


End Sub

 

[excel6464]

Teşekkürler cevabınız için ama ben bu kodu 2007 de nereye yapıştıracağım. Biraz daha ayrıntılı anlatabilirseniz sevinirim.

 

[excel6464]

Kod çalıştı. Çok teşekkürler. Çok işime yarayacak. Emeğinize ve bilginize sağlık.

 

[monelogg]

Merhaba, ben unutmuşum şu satırı eklerseniz daha verimli çalışır.
Sub sdf()
For i = 3 To Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Sheets("defter").Cells(3, 3) = Sheets("Sayfa1").Cells(i - 1, 1)
Sheets("defter").Cells(3, 4) = Sheets("Sayfa1").Cells(i - 1, 2)
Sheets("defter").PrintOut Copies:=1
Application.Wait (Now) + TimeValue("00:00:10")
Next


End Sub