Beş yıl sonrası nasıl bulunur?

[omemo]

Merhaba,

A sütununda 01.06.2016 şeklinde yazılmış çeşitli tarihler var. B sütununa bu tarihten beş yıl sonrasını aşağıdaki örneklerde olduğu gibi yazdırmak istiyorum.

01.06.2016---> 31.05.2021
15.12.2010---> 14.12.2015
01.01.1990---> 31.12.1994

VBA ile bu işlemi nasıl yaparım.

Teşekkürler.

 

[alicimri]

merhaba A1 hücresinde tarih yazıyorsa

DateAdd("yyyy", 5, Range("a1") - 1)

 

[omemo]

merhaba A1 hücresinde tarih yazıyorsa

DateAdd("yyyy", 5, Range("a1") - 1)

Teşekkürler.

 

[baydeniro]

sayın alicimri destek için teşekkürler. Kodun modulleştirilmesini ve hücrede uygulamasını biraz açabilir misiniz lütfen !

 

[dEdE]

sayın alicimri destek için teşekkürler. Kodun modulleştirilmesini ve hücrede uygulamasını biraz açabilir misiniz lütfen !

Merhaba,
Sayın alicimri şu anda çevrimdışı. Ben yanıtlamaya çalışayım.

Sub TarihEkle()
    For i = 1 To 10
        Cells(i, 2).Value = DateAdd("yyyy", 5, Cells(i, 1).Value - 1)
    Next
End Sub

 

[alicimri]

Fonksiyonla da yapıla bilinir.

=TARİH(YIL(A1)+5;AY(A1);GÜN(A1)-1)

 

[baydeniro]

sayın üstadlar dEdE, alicimri çok teşekkür ediyorum, elinize sağlık.

 

[Orion1]

Alternatif.

MsgBox DateSerial(Year(Range("A1")) + 5, Month(Range("A1")), Day(Range("A1")))