Mesai yapılmayan günlere göre

[kelkitli]

Değerli Dostlar Selamlar,
Her ayın 1. ve 5. günleri arasında Çalışma kitabının açılışında "tahakkuk" isimli makroyu,
5. günden sonra "ceza" isimli makroyu çalıştırarak sayfalar arası aktarma yapmaya çalışıyorum.
Her ayın ilk mesai günü Sayfa1 deki kayıtlara borç tahakkuk ettirmek ve her ayın 6.günü Sayfa2 ye borç kaydı oluşturmak istitorum.
Bu kayıt ilgili aya ait o günkü tarihle kaydedilince "Plaka No" su ve "O aya ait işlem tarihi" varsa Çalışma kitabı her kapanıp açılınca kayıt yapmamalı.

Private Sub Workbook_Open()
gun = Day(Now)
If gun > 1 And gun < 6 Then
Call tahakkuk
End If
If gun >5 Then
Call Ceza
End If
End Sub

Yukar&#305;daki kodla &#351;unu yapmaya &#231;al&#305;&#351;&#305;yorum:
Ekim 2008 de oldu&#287;u gibi nadir rastlanan bir durum.
Ay&#305;n 1.g&#252;n&#252; Bayram,
Ay&#305;n 2.g&#252;n&#252; Bayram,
Ay&#305;n 3.g&#252;n&#252; &#304;dari &#304;zin,
Ay&#305;n 4.g&#252;n&#252; C.tesi,
Ay&#305;n 5.g&#252;n&#252; Pazar,
&#304;lk &#304;&#351;lem mecburen ay&#305;n 6. g&#252;n&#252;ne sarkt&#305;.
Halbuki ay&#305;n 6. g&#252;n&#252; cezal&#305; oluyor.
Burada &#351;unu yapmam gerekiyor:
Bor&#231; tahakkuku ilk mesai g&#252;n&#252;ne , ceza i&#351;lemi 2. mesai g&#252;n&#252;ne ayarlanmal&#305;.
Sayfa 4 te &#246;zel durumlar kaydedilince i&#351;leme konulmal&#305;