İzin Bitiş ve Göreve Başlama Tarihi

[ozkovlu]

Merhabalar;
Personel Statülerine göre İzin bitiş ve Göreve başlama tarihlerini hesaplatmak, Ayrıca İzin başlangıç tarihini(C17) Takvim yardımıyla seçim yapmak istiyorum.

EĞER Personel Statü Memur ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü Sözleşmeli ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü İşçi ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesini dahil et, Pazar ve Resmi Tatillleri dahil etme
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü Toplum Yararına Program ve İzin Türü Ücretsiz İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil etme
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü (Memur veya Sözleşmeli veya İşçi veya Geçici İşçi veya Toplum Yararına Program) İzin Türü (Yıllık İzinin haricindeiler) ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

Dosya ektedir.

Saygılarımla...

 

[ozkovlu]

Ayrıca İzin başlangıç tarihini(C17) Takvim yardımıyla seçim yapmak istiyorum.

RDB Tarih Seçici eklentisini indirin

Çalışma Sayfanızdaki VBA kodu ile Tarih Seçici'yi açın

Aşağıdaki kod ile Tarih Seçici'yi açıp / kapatabilirsiniz. Diğer VBA projelerindeki makroyu, Hücre menüsündeki menü öğelerini kullanmak yerine çalışma sayfanızda tarih eklemek için Takvim'i açıp kapatabilirsiniz.

Sub CallDatePickerFromOtherWorkbooks()
    Dim TestWkbk As Workbook
    Dim obj As Object

    If Val(Application.Version) >= 12 Then
        Set TestWkbk = Nothing
        On Error Resume Next
        Set TestWkbk = Workbooks("WinDatePicker.xlam")
        On Error GoTo 0
        If TestWkbk Is Nothing Then
            MsgBox "Sorry the Date Picker add-in is not open."
        Else
            Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj
        End If
    End If
End Sub