İşçi İzin Dönüş Tarihi Hesapla

[ozkovlu]

Merhabalar;
İşçi personellerin izin bitiş ve izin dönüş tarihleri ile alakalı kodlar aşağıda belirtilmiştir.
Bu kodlarda izin bitiş tarihinde sıkıntı yok ama işe başlama tarihi izin bitişin 1 gün sonrasına atıyor.
Bundan dolayı İşe başlama tarihini,
-Resmi tatilleri
-Pazar günlerini
atlatarak işe başlama tarihini nasıl düzenleriz.

Function izin_bitis(izin_tarihi, izin_günü)
If izin_tarihi <> "" Then
If izin_günü <> "" Then
For i = 2 To Worksheets("isci").Cells(Rows.Count, "A").End(3).Row
If CDate(izin_tarihi) = CDate(Worksheets("isci").Cells(i, 1).Value) Then
izin_bitis = CDate(Worksheets("isci").Cells(i + izin_günü - 1, 1).Value)
'izin_bitis = CDate(Worksheets("isci").Cells(i + izin_günü, 1).Value)
Exit For
End If
Next
Else
izin_bitis = ""
End If
Else
izin_bitis = ""
End If
End Function

-------------------------------------------
Function ise_baslama(izin_tarihi, izin_günü)
If izin_tarihi <> "" Then
If izin_günü <> "" Then
For i = 2 To Worksheets("isci").Cells(Rows.Count, "A").End(3).Row
If CDate(izin_tarihi) = CDate(Worksheets("isci").Cells(i, 1).Value) Then
ise_baslama = CDate(Worksheets("isci").Cells(i + izin_günü - 1, 1).Value)
'ise_baslama = CDate(Worksheets("isci").Cells(i + izin_günü, 1).Value)
Exit For
End If
Next
Else
ise_baslama = ""
End If
Else
ise_baslama = ""
End If
End Function

 

[feridici_genc]

iyi günlerr,
aynısoruyu bende sormuştum isterseniz bir göz atın.
http://www.excel.web.tr/f48/yyllyk-izinde-gosterilebilecek-tarih-aralyklary-t151643.html

 

[ozkovlu]

İnceledim ama işimi görmedi.
Makroların düzenlenmesi lazım.
Yardımlarınızı bekliyorum.
Saygılar....