bir butona atayıp çalıştırdığınızda D sütunundaki son satıra göre tüm F sütunlarını doldurur
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Worksheets("Sayfa3")
With Sht
SonStr = .Cells(.Rows.Count, "D").End(xlUp).Row
For x = 2 To SonStr
.Range("F" & x).Value = Format(IIf((.Range("H" & x) Mod 2) = 1, _
DateSerial(Year(.Range("D" & x)) + .Range("H" & x) + .Range("L" & x), Month(.Range("D" & x)) + .Range("I" & x) + .Range("M" & x), Day(.Range("D" & x)) + .Range("J" & x) + .Range("N" & x)), _
DateSerial(Year(.Range("E" & x)) - .Range("L" & x), Month(.Range("E" & x)) - .Range("M" & x), Day(.Range("E" & x)) - .Range("N" & x)) _
), "dd.mm.yyyy")
Next x
End With