Koşula bağlı yazdırma makrosu

[deliceli]

Merhabalar.
Arkadaşlar kolay gelsin.
Formda arama yaptım ama istediğimi bulamadım.

Ek dosyadaki izin sayfasında izine ayrılanın yerine vekalet verilmişse izin ile görevlendirme sayfasını beraber vekalet yoksa sadece izin sayfasını yazıcıdan çıktı almak için yazdırma makrosu lazım.
ilgileriniz için teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu kullanabilirsiniz:

Sub kaydetyazdırr()
    If Sheets("İZİN").[ac2] = True Then
    Sheets("İZİN").PrintOut Copies:=1, Collate:=True
    Sheets("Görevlendirme").PrintOut Copies:=1, Collate:=True
    Else
    Sheets("İZİN").PrintOut Copies:=1, Collate:=True
    End If
    Range("IB300:IC315").Select
    Selection.Copy
    Sheets("DATA").Select
    Range("A60000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("İZİN").Select
    Range("A1").Select
    ActiveWorkbook.Save
End Sub

Sayfadaki yazdır düğmesine bu makroyu atamayı unutmayınız.

 

[deliceli]

Sayın YUSUF44 bey;

Yazmış olduğunuz ilave makro için teşekkür ederim.Süper oldu.

Sağlıklı güzel günler dilerim.