Soru CheckBox İşaretli İken Zamanı Geçince Yılın Bir Artması

[TURKOLOG]

Herkese Merhaba şöyle bir koda ihtiyacım var:
Textbox1de tarih var misal 17.06.2020
Textbox11 de de açıklama var

Benim istediğim checkbox a tik attığımda Textbox1deki tarih 17.06.2020 geçtiği zaman yani 18 olduğunda tarih 17.06.2021 şeklinde
yıl kısmı hep bir yıl artsın 17.06.2021 de 18 olunca gün 17.06.2022 olarak atsın tarih ta ki checkbox işaretli olduğu müddetçe

 

[Korhan Ayhan]

Bu bahsettiğiniz nesneler UserForm üzerinde mi?

 

[TURKOLOG]

Bu bahsettiğiniz nesneler UserForm üzerinde mi?

Doğrudur @Korhan Ayhan Hocam

 

[Korhan Ayhan]

Deneyin bakalım sizde çalışacak mı?

Option Explicit

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        If Date > CDate(TextBox1) Then
            TextBox1 = Format(DateSerial(Year(TextBox1) + 1, Month(TextBox1), Day(TextBox1)), "dd.mm.yyyy")
        End If
    End If
End Sub

 

[Korhan Ayhan]

Bu da olabilir...

Option Explicit

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        If Date > CDate(TextBox1) Then
            TextBox1 = Format(DateAdd("yyyy", 1, TextBox1), "dd.mm.yyyy")
        End If
    End If
End Sub

 

[TURKOLOG]

Hocam iki kodda çalışıyor ama . Form acilip kapandığında checkbox işaretsiz geliyor ve tarih de eski tarih geliyor. Yanı checkbox tikli olduktan sonra yapilan işlem kaydedilmeyince form açılınca işlem hiç yapılmamış kabul ediliyor

 

[Korhan Ayhan]

Bence siz önce userform nasıl kullanılır bunu öğrenmelisiniz. Forumda bunun yüzlerce örneği var. Lütfen arama yapınız.