ayların olmayan günlerine veri girişini engelleme

[latif1881]

ayların olmayan günlerine veri girişini engelleme

kasım 2019 30 günden oluşur tablodaki 31. güne veri girişini hertürlü engelleme yapmak istiyorum (yazma kesme sürükleme taşıma kopyalama dahil)
ekim 2019 31 günden oluşur günlerdeki 31.güne her şekilde veri girişi her şekilde yapılır.
şubat 2019 28 günden oluşuyor günler sütununda 29 ncu güne 30 uncu güne 31 inci güne veri girişi yapılmasın
veya
şubat 2020 29 günden oluşuyor 30ncu gün hanesine ve 31 inci gün hanesine veri girişi yapılamasın

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.
İlgili satırdaki tarihin son gününden sonraki sütuna giriş engellenir ve bir alt satırın D sütununa gider.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Yıl As Integer, _
        Ay  As Integer, _
        Sat As Integer, _
        AyG As Integer
    
    Sat = Target.Row
    If IsDate(Cells(Sat, "AJ")) = False Then Exit Sub
    
    Yıl = Year(Cells(Sat, "AJ"))
    Ay = Month(Cells(Sat, "AJ"))
    AyG = Day(DateSerial(Yıl, Ay + 1, 0))

    If Target.Column > AyG + 3 Then Range("D" & Sat + 1).Select
    
End Sub

 

[latif1881]

Üstadım çok teşekkürler deneyip dönüş yaparım size