Bir Tarihte Yılı Bir Yıl Artırmak

[ahmed_ummu]

Merhaba arkadaşlar.

"pn" sayfasının "c16" hücresinde, "31.07.2021" tarihi var. Aynı sayfanın "c42" hücresine "31.07.2022" tarihini yazdırmak istiyorum. Yani yıl bir yıl artacak. Aşağıdaki kod ile 31072022 değerini veriyor. Gün Ay Yıl arasına nokta koymuyor. Yardımcı olursanız sevinirim.

pn.Range("C42").Value = "BİR SONRAKİ TERFİSİ " & Format(pn.Range("C16").Value, "dd.mm.yyyy") + 1 & " TARİHİNDE YAPILACAKTIR."

 

[Korhan Ayhan]

Siz kendinize uyarlarsınız..

Sub Test()
    MsgBox VBA.DateAdd("yyyy", 1, Range("A1"))
End Sub

 

[ahmed_ummu]

Siz kendinize uyarlarsınız..

Sub Test()
    MsgBox VBA.DateAdd("yyyy", 1, Range("A1"))
End Sub

Teşekkürler Korhan bey düzeldi.