Ad doğrulama ve Otomatik yazdırma

[123SAMET123]

Merhaba,

Arkadaşlar sayfa 1 de sıralı olarak AD-SOYAD bilgileri yer alıyor.
Sayfa 2 de ise bir şablon mevcut.
Sayfa 1 de ki verileri sırasıyla sayfa 2 de yer alan şablonda ilgili yere yazdırarak bir çıktı almak istiyorum.
Basit bir excel dosyası hazırladım ektedir.
http://www.dosyaupload.com/4Q3s

Bunu bir kodla yaptırmak mümkün mü Farklı makrolar kaydettim fakat sürekliliği sağlayamadım sayfa 1 deki veri sayısı çok fazla bu nedenle süreklilik önemli.

Bir beyin fırtınası yapalım,Teşekkürler

 

[tactless]

A sütununa ek hücre açıp sıra no verin. 1 - 2 - 3..

Daha sonra Formunuzda adı soyadı alanına

=DÜŞEYARA(M1;Sayfa1!A4:C34;2;0)&" "&DÜŞEYARA(M1;Sayfa1!A4:C34;3;0)

yazın. M1 hücresine kimin adı yazılacaksa onun sıra no numarasını yazın. İlgili kısma adı gelecektir. Otomatik olmasını istiyorsanız makro şart.

 

[erkan1903]

Samet Bey,
Dosyanıza makro ekledim. Çalıştırmadan önce **** içinde yazdığım iki satırı kendinize göre mutlaka uyarlayın. Zira listedeki bütün isimleri yazıcıdan çıktı alırsınız. Boşuna kağıt israfı olmasın
Kolay gelsin

Sub FormYaz()
    Dim satir As Long, isim As String
    
    satir = 4
    Sheets("Sayfa1").Select
    Do While Range("A" & satir) <> ""
        isim = Range("C" & satir)
        Sheets("Sayfa2").Select
        Cells(36, 4) = isim
' **** Yazdır **********************************
        MsgBox ("Bu sayfa yazılacak")
        Sheets("Sayfa2").PrintOut Copies:=1
' **********************************************
        satir = satir + 1
        Cells(40, 4) = satir
        Sheets("Sayfa1").Select
    Loop
    MsgBox ("Bitti")
    
    
End Sub

 

[hopeful]

Sayfa 2'de "A36" hücresine sırasıyla sayıları girerek yapabilirsiniz...
çıktı laırken gözükmemesi adına BEYAZ font ile giriş yapılmıştır...

İyi çalışmalar