Soru Tarihe (gün) eklemek

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F4:H65536")) Is Nothing Then

E sütununda tarih var
F4 : H221 Arasına rakam girdikçe "I" sütununa sayı olarak topluyor.
T sütununa E sütunundaki tarihe "I" sütunundaki günü ekleyecek yeni tarihi yazacak.
Ama;
İlk önce ayları tanımlamak
E sütununda ki tarihin kaç ay çektiğini bulmak
"I" sütununda ki günü de ekleyince yeni tarihi bulmak istiyorum.
Yardım edebilirmisiniz bana

 

[Necdet]

Merhaba,

Paylaşım sitelerinden birine örnek dosyanızı ekleyiniz.


Tarihe gün eklemek iki sayıyı toplamak gibidir.

 

[sirkülasyon]

Necdet abi
Örnek Dosya

 

[Necdet]

Merhaba,

Dosyayı indirdim, açıklamalarınızı yeniden okudun defalarca, tam olarak ne yapmak istediğinizi anlamadım.
Verdiğiniz örneklerle dosyadaki verileri eşleştiremedim.

 

[sirkülasyon]

Necdet abi
F, G, H sütunlarına rakam girdikçe I sütununa topluyor. Amacım, E sütünun da bulunan tarihe I sütununa ki gün sayısını ekleyerek T sütununa yeni tarihi yazmak. Yalnız bu kodu Private Sub Worksheet_Change(ByVal Target As Range) başlığının altında
I sütunundaki rakam değiştikçe yazmak istiyorum.

 

[çıtır]

Aşağıdali şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F4:H1000]) Is Nothing Then Exit Sub
Cells(Target.Row, "I") = WorksheetFunction.Sum(Range("F" & Target.Row & ":" & "H" & Target.Row))
Cells(Target.Row, "T") = CDate(Cells(Target.Row, "E") + WorksheetFunction.Sum(Range("F" & Target.Row & ":" & "H" & Target.Row)))
End Sub

 

[Necdet]

Merhaba,

Bir deneyin bakalım doğru mu anlamışım.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [F:H]) Is Nothing Or Target.Row < 4 Then Exit Sub
    
    Range("I" & Target.Row) = Range("F" & Target.Row) + Range("G" & Target.Row) + Range("H" & Target.Row)
    Range("T" & Target.Row) = Range("E" & Target.Row) + Range("I" & Target.Row)
    
End Sub

 

[sirkülasyon]

Sayın çıtır ve Necdet abime teşekkür ederim.
Tam istediğim gibi olmuş.

 

[çıtır]

Sayın çıtır ve Necdet abime teşekkür ederim.
Tam istediğim gibi olmuş.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.