Soru Makro ile IF

[sirkülasyon]

If Range("H2") = "+" Then
Dim Tarih As Date, YeniTarih As Date
Tarih = Range("C2")
YeniTarih = DateSerial(Year(Tarih) + CLng(Range("I2")), Month(Tarih) + CLng(Range("J2")), Day(Tarih) + (Range("K2")))
Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
End If
Else

If Range("H2") = "-" Then
Dim Tarih As Date, YeniTarih As Date
Tarih = Range("C2")
YeniTarih = DateSerial(Year(Tarih) - CLng(Range("I2")), Month(Tarih) - CLng(Range("J2")), Day(Tarih) - (Range("K2")))
Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
End If

makro kodundaki hatamın düzeltilmesi için yardımcı olabilir misiniz?

 

[EmrExcel16]

If Range("H2") = "+" Then
Dim Tarih As Date, YeniTarih As Date
Tarih = Range("C2")
YeniTarih = DateSerial(Year(Tarih) + CLng(Range("I2")), Month(Tarih) + CLng(Range("J2")), Day(Tarih) + (Range("K2")))
Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
End If
Else

If Range("H2") = "-" Then
Dim Tarih As Date, YeniTarih As Date
Tarih = Range("C2")
YeniTarih = DateSerial(Year(Tarih) - CLng(Range("I2")), Month(Tarih) - CLng(Range("J2")), Day(Tarih) - (Range("K2")))
Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
End If

makro kodundaki hatamın düzeltilmesi için yardımcı olabilir misiniz?

Aşağıdaki şekilde deneyiniz.

Dim Tarih As Date, YeniTarih As Date
If Range("H2") = "+" Then
    Tarih = Range("C2")
    YeniTarih = DateSerial(Year(Tarih) + CLng(Range("I2")), Month(Tarih) + CLng(Range("J2")), Day(Tarih) + (Range("K2")))
    Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
ElseIf Range("H2") = "-" Then
    Tarih = Range("C2")
    YeniTarih = DateSerial(Year(Tarih) - CLng(Range("I2")), Month(Tarih) - CLng(Range("J2")), Day(Tarih) - (Range("K2")))
    Range("L2") = Format(YeniTarih, "dd.mm.yyyy")
End If

 

[sirkülasyon]

Eline Koluna Canına sağlık.
Teşekkür ederim

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.