veri doğrulamaya koşul getirme

[musculus2]

Merhabalar.
Veri doğrulama ile yılları getirdiğim hücreye makro ile bu yıldan büyük yıl girilmesini engelliyorum.
Büyük yıl girilmesini engelledikten sonra B1 hücresine eski değerini getirebilir miyiz ?
B1 hücresinde 2020 yılı var diyelim.Biz 2023 yılını seçtiğimizde makro ile uyarı veriyor ama B1 de 2023 yılı kalıyor.B1hücresine 2020 yılı geri gelmesi gerekiyor.

 

[ÖmerFaruk]

Mevcut kodlarınıza bazı ilaveler yaptım.

Dim MevcutSene As Integer  'İlave Satır
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    If Range("b1") > Year(Now) Then
    MsgBox ("İLERİ TARİH SEÇİLEMEZ")
    [B1] = MevcutSene 'İlave Satır
    Exit Sub
    End If
   
    Dim Kolon As Range
    Application.EnableEvents = False
    Son = Range("p" & Rows.Count).End(3).Row
    Set Kolon = Range("Q1:AB1").Find(Range("B1"))
    If Not Kolon Is Nothing Then
        Range("P4").Resize(Son - 2, 1).Copy
        Kolon.Offset(3, 0).Resize(Son - 2, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Range("B1").Select
    End If
    Application.EnableEvents = True

End Sub

'İlave kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    MevcutSene = WorksheetFunction.Min([B1], Year(Now))
End Sub

 

[musculus2]

Çok teşekkür ederim ama kodlar çalışmadı.Hiç bir değişiklik olmuyor.

 

[musculus2]

Kodlarınızdan ilham ile hata olduğunda b1 hücresine year(now) şeklinde atama yaptım.Buda işimi çözer.Çok teşekkür ediyorum.