Başlangıç Tarihi hafta tatiline rastlıyorsa bir gün eklensin

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada Sayfa1 B2 hücresine bir başlangıç tarihi girdiğimde o tarihin haftanın günü B2 ye denk gelince ve Sayfa2 de D2 : D13 aralığında yazılan tarih mevcut ise B1 deki tarihi silip yerine bir gün sonraki tarihi yazsın mesajbox ta "hafta tatili ve bayramlarda başlanmaz" yazsın.

 

[veyselemre]

Sayfa1 in kod sayfasına yerleştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Or Not IsDate(Target.Value) Then Exit Sub
    If Weekday(Target.Value) = [b2].Value Then
        Target.Value = Target.Value + 1
        MsgBox "Girdi&#287;iniz tarih hafta sonuna geldi&#287;inden de&#287;i&#351;tirildi."
    End If
    bayramlar = Sheets("Sayfa2").Range("d2:d" & Sheets("Sayfa2").[d2].End(xlDown).Row).Value
    For Each tatil In bayramlar
        If CDate(tatil) = CDate(Target.Value) Then
            Target.Value = Target.Value + 1
            MsgBox "Girdi&#287;iniz tarih tatil g&#252;n&#252;ne geldi&#287;inden de&#287;i&#351;tirildi."
            Exit Sub
        End If
    Next
End Sub

 

[kelkitli]

Teşekkür ederim Sn.veyselemre,
Eline, emeğine, bilginize sağlık.