Makro Tarih Hatası

[KuTuKa]

merhaba
j2 hücresine değer girip f2 hücresine 5000 yazıp enter dediğimde değerler geliyor ama 31/01/2020 olarak geliyor tarihin 31/01/2021 olmasi gerekiyor hatamm nerede bir bakabilirmisiniz

 

[Muzaffer Ali]

Merhaba.

Cells(Target.Row + 1, "E") = DateSerial(Year(Date) , 1, 31)

Satırlarını, aşağıdaki gibi yapmalısınız.

Cells(Target.Row + 1, "E") = DateSerial(Year(Date) + 1, 1, 31)

 

[KuTuKa]

Teşekkürler