Sayfa Sayfa Yazdırmak.

[talatcd]

Arkadaşlar yapmak istediğim Makro ile Yeni Sınav Tarihi dolu olanların
yani sınavda görev alacakların Kişi sayfasına tek tek aktarılarak (sayfa sayfa)
görev tebliği yapmak. Yardımcı olursanız sevinirim. Selamlar

 

[talatcd]

Acil yardım lütfen

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()
    
    Dim i As Long
 
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        With Sheets("Kişi")
            If Cells(i, "G") <> "" Then
                .Range("B4") = Cells(i, "A")
                .Range("B5") = Cells(i, "B")
                .Range("B6") = Cells(i, "C")
                .Range("B7") = Cells(i, "D")
                .Range("B8") = Cells(i, "E")
                .Range("B9") = Cells(i, "G")
                .PrintOut
                Application.Wait Now + TimeValue("00:00:01")
            End If
        End With
    Next i
    
End Sub

.

 

[talatcd]

Ömer Bey Ellerine Sağlık. İşime çok yaradı. Teşekkür ediyorum. Saygılarımla