• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tek bir sayfayı farklı isimlerle baskı yapmak

Katılım
3 Ocak 2012
Mesajlar
4
Excel Vers. ve Dili
2003
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.
 

Ekli dosyalar

Merhaba, şu kodu dener misiniz?

Kod:
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
 
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.
 
Kod çalıştı. Çok teşekkürler. Çok işime yarayacak. Emeğinize ve bilginize sağlık.
 
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
 
Geri
Üst