Soru Toplu yazdırda son aşamaya geldim yardım ederseniz sevinirim..

[balanar]

Rapor sayfamdaki CommandButton'a tıkladığımda kişi adı ve tcsini tek tek çekip yazdırma işlemi yaptıracagım.

Şuanda tam istediğim gibi olmadıgı için 's2.PrintOut kodunu aktif etmedim.

İşin içinden çıkamadığım şey şu, şuanda Set S3 = Sheets("Pazartesi-Salı-Çarşamba"): Set s2 = Sheets("Rapor")

buradaki tarih bilgilerini aldırıyorum. Ama benim rapor kısmına tek tek çektireceğim bilgilerde kişi Pazartesi-Salı-Çarşamba grubuna aitse o sayfa isminde tarihlerle gelmesi. Eğer Çarşambe-Perşembe-Cuma gününe aitse o sayfanın tarih bilgileri ile gelmesi ve akabinde s2.PrintOut ile yazdırmak.

Tek tıkandığım Yazdır dediğimde StajyerListesi sayfasında hangi gruba aitse kişi * işareti var. Ona göre rapor sayfasına tarihleri ile birlikte gelmesi umarım anlataiblmişimdir..

 

[ÖmerFaruk]

Şöyle deneyin.

Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim s1son As Long, i As Long

Set s1 = Sheets("StajyerListesi"): Set s2 = Sheets("Rapor")
s1son = s1.Range("B" & Rows.Count).End(3).Row

For i = 2 To s1son
    If s1.Cells(i, 2).Value <> "" Then
        s2.Range("C3").Value = s1.Cells(i, 1).Value
        s2.Range("G3").Value = s1.Cells(i, 2).Value
        If s1.Cells(i, 3) = "*" Then
            Set s3 = Sheets("Pazartesi-Salı-Çarşamba")
        Else
            Set s3 = Sheets("Çarşamba-Perşembe-Cuma")
        End If
        SonTarih = WorksheetFunction.Count(s3.Range("D5:R5"))
        s2.Range("C5:C19").ClearContents
        s3.Range("D5:R5").Copy
        s2.Range("C5:C19").PasteSpecial xlValues, , , True
        's2.PrintOut
    End If
Next i
    's2.PrintOut
Set s1 = Nothing: Set s2 = Nothing
s1son = 0:  i = 0
End Sub

 

[balanar]

Ömer bey eline koluna sağlık büyük dertten kurtardın bizi