Koşullu Yazdırma

[okankoc25]

Ekte verdiğim dosyada günlük çalışma çizelgesi var. Bu her ay isim isim çıkarmak istemiyorum bunun her servisi çalışanının tek bir tuş ile yazdırma istiyorum bu mümkün mü?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub yazdir()

    Dim i As Long
    
    Application.ScreenUpdating = False
    Sheets("MESAİ CETVELİ").Select
    
    With Sheets("Veri Girişi")
        For i = 4 To .Cells(Rows.Count, "E").End(xlUp).Row
            Range("B6") = .Cells(i, "E")
            ActiveSheet.PrintOut
            Application.Wait (Now + TimeValue("0:00:01"))
        Next i
    End With
    
    Application.ScreenUpdating = True
    
End Sub

Not: Deneme yapmadım.

.

 

[okankoc25]

Elleriniz sağlık tam istediği gibi oldu tşk ederim.