Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim sor

    If Target.Column <> 13 Then Exit Sub

    If Target.Row < 5 Then Exit Sub

    If Target.Rows.Count > 1 Then Exit Sub

    If Target.Value = "" Then Exit Sub

    If Not IsDate(Target) Then Exit Sub

    

    On Error Resume Next

    sor = Application.InputBox("Sayi giriniz..." & vbNewLine & "Not:Sadece sayi giriniz", "Sayi", 0)

    On Error GoTo 0

    If sor = False Or sor = "" Then Exit Sub

    If Not IsNumeric(sor) Then: MsgBox "Rakam giriniz..", vbCritical, "Hata": Exit Sub

    If Val(sor) < 1 Then MsgBox "0 dan büyük rakam giriniz..", vbCritical, "Hata": Exit Sub

    Target.Offset(1).Value = Evaluate("=DATE(YEAR(" & Target.Address & ")+ " & Val(sor) & " ,MONTH(" & Target.Address & "),DAY(" & Target.Address & "))")

    Target.Offset(1).NumberFormat = "dd.mm.yyyy"

End Sub