Soru Makro ile Tarihe Yıl Ekleme

[dengeceteris]

Sevgili Uzman Arkadaşlar benzer bir şey varsa da sitede bulamadım sorum şu:

Excelde 6. sütunda bir tarih var: 01.03.1977. 19. sütunda ise 56 (yıl) ben bunları aşağıda ki şekilde formüle edebildim ancak öyle yapınca 15.02.2033 yapıyor ama benim 01.03.2033 yada 28.02.2033 rakamına ulaşmam lazım bunu nasıl yazabilirim.

s1.Cells(x, 27) = s1.Cells(x, 6) + s1.Cells(x, 19) * 365

 

[hamitcan]

Fonksiyonu, Tarih ve Yıl kısımlarını düzenleyerek kullanabilirsiniz.

Function TarihTopla()
    Tarih = "01.03.1977"
    Yil = 56
    TarihTopla = VBA.DateSerial((Format(Tarih, "yyyy") + Yil), Month(Tarih), Day(Tarih))
End Function

 

[Necdet]

Merhaba,

Alternatif Olsun :

s1.Cells(x, 27) = DateAdd("yyyy", s1.Cells(x, 19), s1.Cells(x, 6))

 

[dengeceteris]

Sevgili Üstadlar işimi gördünüz ikinize de çok tşk ederim.