Tüm listeyi çıkış alma ?

[unalh]

S.a Arkadaşlar,

Bir dosyam var burada PİListesi ve İCFormu mevcut


PİListesi: İzin tarihi belirlenmiş personelin listesi mevcut
İCFormu: Burada ise izince çıkacak kişilere çıkış formu düzenliyorum

Yapmak istediğim tüm listeyi tek seferde izin çıkış formundan yazdırabilmek
yani 20 personel varsa 20 tane çıkış formu tabi herbirinde ilgili kişiler yazılı olacak şekilde ?

 

[hamitcan]

Private Sub CommandButton4_Click()
    Unload Me
    With Sheets("PİListesi")
        For i = 2 To .[a65536].End(3).Row
            Sheets("İCFormu").[e6] = .Cells(i, 2)
            Sheets("İCFormu").[e9] = .Cells(i, 4)
            Sheets("İCFormu").[e10] = .Cells(i, 5)
            Sheets("İCFormu").[e11] = .Cells(i, 6)
            Sheets("İCFormu").Printout
        Next
    End With
End Sub

 

[halit3]

S.a Arkadaşlar,

Bir dosyam var burada PİListesi ve İCFormu mevcut


PİListesi: İzin tarihi belirlenmiş personelin listesi mevcut
İCFormu: Burada ise izince çıkacak kişilere çıkış formu düzenliyorum

Yapmak istediğim tüm listeyi tek seferde izin çıkış formundan yazdırabilmek
yani 20 personel varsa 20 tane çıkış formu tabi herbirinde ilgili kişiler yazılı olacak şekilde ?

ekli dosyanızı kontrol ediniz.

 

[unalh]

Hamitcan ve Halit bey ilginiz için çok teşekkür ederim iki dosyada işimi görüyor.


Hayırlı işler dilerim.