tarih sorunu

[ismailuguz]

merhaba arkadaşlar ekteki dosyada öğrencilerin rapor başlangıç tarihi B stununda süresi C sütununda yazılı D sütununa raporun bitiş tarihini yazdırmak istiyorum.raporlar 3 aylık 6 aylık 9 aylık 1 yıllık ve 2 yıllık veriliyor c sütununda 2 yıl yazıyorsa d sütununda ikiyıl sonrasının tarihi 1 yıl yazıyorsa 1 yıl sonrasının tarihi 9 ay yazıyora 9 ay sonrasının tarihi 6 ay yazıyorsa 6 ay sonrasınıntarihi 3 ay yazıyorsa 3 ay sonrasının tarihi yazılmalı buna göre nasıl bir uygulama yapabiliriz.
teşekkürler

 

[priorix]

Sub Macro1()
Dim bitis As Date

Range("D2").Select

For i = 2 To [B65536].End(3).Row
rapor = ActiveCell.Offset(0, -2)
sure = ActiveCell.Offset(0, -1)

bitis = DateAdd("m", sure, rapor)
ActiveCell.FormulaR1C1 = bitis
ActiveCell.Offset(1, 0).Select
Next i

End Sub



Eğer yıl değerlerini aya çevirip yaparsan bu kodlar işini görür. sormak istediğin bişey olursa sorabilirsin.

 

[ismailuguz]

teşekkürler sayın priorix
ama yıl değerini aya çeviremem o zaman tarihler karışır

D2=EĞER(C2="1 YIL";B2+00/00/0001)

excel de böyle bir formül denedim ama olmadı

 

[veyselemre]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.
D2 ye
=TarihEkle(B2;C2)

yazın aşağı doğru çoğaltın.

Function TarihEkle(tar As Date, ekle As String) As Date
If InStr(ekle, "YIL") Then
    sure = Val(Trim(Replace(ekle, "YIL", ""))) * 12
ElseIf InStr(ekle, "AY") Then
    sure = Val(Trim(Replace(ekle, "YIL", "")))
End If

If sure > 0 Then
    TarihEkle = DateAdd("m", sure, tar)
    Else
    TarihEkle = "HATA"
End If

End Function

 

[ismailuguz]

çok teşekkür ederim sağolun

 

[veyselemre]

Dosyayı yukarıdaki mesaja ekledim.