Ekders düzenleme formu...

[aliakgul]

Ekders düzenlemeyi biraz daha pratikleştirelim dedik. Umarım işe yarar...

 

[aliakgul]

Küçük bir ekleme;
Çalışmada "YAZDIR" tıklandığı zaman ilgili sayfalar tek suret olarak yazdırılmaktadır. Bilindiği gibi ekders ücret çizelgeleri üçer suret halinde düzenlenmektedir. Bunun için yazdır düğmesi altındaki kodlarda yer alan sayfa kopya sayıları 3 olarak düzenlenmelidir.(Toplam 5 tane 1 düzeltilecek)

a = WorksheetFunction.CountIf(Range("c9:c108"), [Q1].Value)
If a <= 20 Then
Sayfa3.PrintOut Copies:=1
Else
If a <= 40 Then
Sayfa4.PrintOut Copies:=1
Else
If a <= 80 Then
Sayfa5.PrintOut Copies:=1
Else
Sayfa6.PrintOut Copies:=1
End If
End If
End If
Else
If MsgBox([Q1] & " İçin Belge Yazılacak...", vbInformation + vbYesNo, "yazma onayı") = vbNo Then Exit Sub
Application.Run "duzenle"
Sayfa8.PrintOut Copies:=1, Collate:=True