Excel'de Tarihe Yıl Eklemek

[ZuCChiNi]

17.07.2009 şeklinde girdiğim tarihe başka bir hücrede yazacağım sayıyı yıl olarak eklemek istiyorum.
Örneğin diğer hücrede "10" yazdıysam üçüncü bir hücrede tarihin 17.07.2019 olmasını istiyorum.

A1: 17.07.2009
A2: 10
A3: 17.07.2019

Yardım rica ediyorum.
Teşekkürler.

 

[Ömer]

Merhaba,

=TARİH(YIL(A1)+A2;AY(A1);GÜN(A1))

Formülü yazdığınız hücrenin biçimini tarih olarak biçimlendiriniz.

Detaylı bilgi için linkleri inceleyiniz..

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

TARİH VE SAAT FONKSİYONLARININ DETAYLI ANALİZİ

.

 

[ZuCChiNi]

Yardımınız için Çok teşekkür ederim.
Verdiğiniz konuları da dikkatle izleyeceğim.

 

[muratkarakas69]

Peki bu işlemi macro ile nasıl yaparız?

 

[İhsan Tank]

Peki bu işlemi macro ile nasıl yaparız?

merhaba
boş bir module kopyalayın ve deneyin
A1'e tarih B1'e rakam giriniz C1'de sonuç'u görebilirsiniz.
Not A1 ve C1 hücrelerini tarih olarak biçimlendiriniz

Option Explicit
Sub tarih_topla()
Range("C1") = Range("A1") + Range("B1")
End Sub

 

[muratkarakas69]

Örneğin textbox1 de 21.08.2011 yazılı ben bu tarihe buton ile 1 yıl eklemek istiyorum.Yani textbox 2 = textbox1+ (1yıl) olacak bunu nasıl yaparız?

 

[İhsan Tank]

Örneğin textbox1 de 21.08.2011 yazılı ben bu tarihe buton ile 1 yıl eklemek istiyorum.Yani textbox 2 = textbox1+ (1yıl) olacak bunu nasıl yaparız?

textboxlarınız userform'da mı sayfadaki nereden bileyim ben
kod'u yazacağım yok bu olmadı diyeceksiniz dosya ekleyin

 

[muratkarakas69]

Hocam dosya ekte CommandButton24 e tıklayınca şunu yapmasını istiyorum;textbox92 de yazan tarihe 1 yıl eklemesi ve sonucu textbox81 e yazarak bir sonraki terfi tarihini göstermesi?

 

[muratkarakas69]

Hocam teşekkür ederim hallettim.

TextBox92.Value = TextBox91

TextBox81.Value = TextBox91 + 1

TextBox81 = Format(TextBox81, "0#"".""##"".""####")

 

[İhsan Tank]

Hocam dosya ekte CommandButton24 e tıklayınca şunu yapmasını istiyorum;textbox92 de yazan tarihe 1 yıl eklemesi ve sonucu textbox81 e yazarak bir sonraki terfi tarihini göstermesi?

merhaba

TextBox81.Value = TextBox91 + VBA.Year(Date)

bu kodu

TextBox81.Value = Format(Day(TextBox91) & "." & Month(TextBox91) & "." & Year(TextBox91) + 1, "dd.mm.yyyy")

bununla değiştirin

 

[muratkarakas69]

Teşekkürler hocam çok sağolun.