Alttaki kodu sayfa koduna ekleyip deneyiniz abey.

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 & 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 den büyük rakam giriniz..", vbCritical, "Hata": Exit Sub

    Target.NumberFormat = "dd.mm.yyyy"

    Target.Offset(1).Value = WorksheetFunction.EDate(CDate(Target), 12 * Val(sor))

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

End Sub