Exelde listeyi şablona yerleştirmek

[rasdas]

Merhabalar
Exelde 100 kişilik bir liste var diyelim bu listede kişilerin ad soyad, branş, dtarihi gibi bilgiler var. Bir butona bastığımda bu bilgileri önceden hazırlanmış şablonda ilgili yerlere yerleştirerek sırayla kişi bilgilerinin yazdırılmasını istiyorum. Bunu nasıl yapabilirim teşekkürler.

 

[Ömer]

Merhaba,

Bir örnek:
Verilerin olduğu data Sayfa1 adlı sayfada, A,B,C,D sütunlarında düşünülerek, yazdırılacak sayfa Sayfa2 adında ve B4,C4,E8,D9 hücrelerinde ad,soyad,branş, d.tarihi düşünüldü.
Kendi dosyanıza bu düzene göre uyarlarsınız.

Sub test()
    
    Dim S1 As Worksheet, S2 As Worksheet, i As Long
    
    Set S1 = Sheets("Sayfa1") 'verilerin olduğu sayfa
    Set S2 = Sheets("Sayfa2") 'yazdırılacak sayfa
    
    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        S2.Range("B4") = S1.Cells(i, "A") 'ad
        S2.Range("C4") = S1.Cells(i, "B") 'soyad
        S2.Range("E8") = S1.Cells(i, "C") 'branş
        S2.Range("D9") = S1.Cells(i, "D") 'd.tarihi
        S2.PrintOut
        Application.Wait (Now + TimeValue("00:00:01"))
    Next i
        
End Sub

 

[rasdas]

Çok teşekkür ederim. İstediğim şablona uyarladim istediğim gibi çalışıyor.