Toplu Belge Sırayla Şartlı yazdırmak

[5353]

Ekteki listede "PERSONEL LİSTE" Sayfasında isimlere göre; "Katılım Belgesi" Ad ve soyadı değişecek, topluca liste yazdırılabilir mi ?
TOPLU YAZDIR makrosu başka bir yerden aldım belki fikir verir diye. Şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki gibi olabilir:

Yalnız ilk etapta hatalı veri yazdırmamak için

For X = 2 To Sheets("PERSONEL LİSTE").Range("AB65000").End(3).Row

satırını

For X = 2 To 4

olarak kullanın ki hatalı olmuşsa fazla kağıt harcanmasın.

Option Explicit
 
Sub PERSONEL_İMZA_FORMU_YAZDIR()
    Dim X As Long
 
    If WorksheetFunction.CountA(Sheets("PERSONEL LİSTE").Range("A2:A65000")) = 0 Then
        MsgBox "Yazdırılacak veri girişi bulunamadı !", vbCritical
        Exit Sub
    End If
 
    For X = 2 To Sheets("PERSONEL LİSTE").Range("AB65000").End(3).Row
        If Sheets("PERSONEL LİSTE").Cells(X, "A") <> Empty Then
        Sheets("Eğtm Katlm Belg").[P1] = Sheets("PERSONEL LİSTE").Cells(X, "A")
        Sheets("Eğtm Katlm Belg").[P2] = Sheets("PERSONEL LİSTE").Cells(X, "C")
        Sheets("Eğtm Katlm Belg").PrintOut
        End If
    Next
 
    MsgBox "YAZDIRMA BİTMİŞTİR.", vbInformation
End Sub

 

[5353]

For X = 2 To100 yaptım. Güzel çalıştı usta bilgine sağlık. Çok teşekkürler.