Pazar Çalışması Hk.

[ByChilavert]

"PERSONEL" sayfasında pazar günleri çalışan ofis çalışanları bulunmaktadır. Ay içerisinde pazar günleri çalışan personelleri "1" çalışmayanları "0" olarak adlandırdım. "MESAİ ÇALIŞMA" sayfasında 04.11.2018 - 11.11.2018 gibi tarihi seçtiğimde pazar günü çalışan personellerin sarı renkle belirttiğim alanlara bilgilerinin gelmesini daha sonra yazıcıdan toplu şekilde çıktısını almak istiyorum. Bunu nasıl yapabilirim yardımcı olabilir misiniz.

...Örnek Dosya...

 

[Ömer BARAN]

Merhaba.

İstenilen işlem; aşağıdaki kod ile gerçekleştirilebilir.
Kod'un işlem yapması için tarih seçilmesine veya MESAİ sayfasında bir işlem yapmanıza gerek yok,
sadece ilgili alanlardaki SARI arkaplan rengini silmeniz ve kod'u çalıştırmanız yeterli olur.

NOT: Yazıcınızın durumuna göre 2 yazdırma işlemi arasındaki bekleme süresini değiştirmeniz gerekebilir.
.

Sub PAZAR_YAZDIR()
Set p = Sheets("PERSONEL"): Set m = Sheets("MESAİ ÇALIŞMA")
sonp = p.Cells(Rows.Count, "B").End(3).Row
If p.Cells(1, Columns.Count).End(xlToLeft).Column = 7 Then Exit Sub
For psut = 8 To p.Cells(1, Columns.Count).End(xlToLeft).Column
    If WorksheetFunction.CountIf(p.Range(p.Cells(5, psut), p.Cells(sonp, psut)), 1) > 0 Then
        m.[B8] = p.Cells(1, psut)
        For sat = 5 To sonp Step 2
            If p.Cells(sat, psut) = 1 Then
                m.[F20] = p.Cells(sat, 2): m.[F21] = p.Cells(sat, 3)
                m.[F22] = p.Cells(sat, 4): m.PrintOut
                Application.Wait (Now + TimeValue("00:00:02"))
            End If
        Next
    End If
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[ByChilavert]

Teşekkür Ederim. Sorunsuz bir şekilde çalıştı. İyi Çalışmalar