Необходима формула для проставления даты.

[Сергей Ш.]

Добрый день.
Не могу подобрать формулу для проставления даты.
Хотелось бы, чтоб при вводе даты в ячейку №1 автоматически отображалась дата в ячейке №2, только на год вперед.
(Файл во вложении).

[Serge 007]

=ДАТА(ГОД(C3)+1;МЕСЯЦ(C3);ДЕНЬ(C3))

[Сергей Ш.]

А можно это сделать макросом?

[Сергей Ш.]

Необходим именно макрос, может кто поможет?

[IgorGO]

Sub Add1Year2C3()
  MsgBox DateSerial(Year([c3]) + 1, Month([c3]), Day([c3]))
End Sub

[Сергей Ш.]

Хотелось бы, чтоб при вводе даты в колонку "J" автоматически отображалась дата в соседней колонке "K", только на год вперед.
(Файл во вложении).

[Сергей Ш.]

Помогите плиз!

[Watcher_1]

Ловите

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsDate(Target.Value) = True And Target.Column = 10 Then
        Target.Next = Format(DateAdd("yyyy", 1, Target.Value), "dd.mm.yyyy")
    End If
End Sub

[Сергей Ш.]

Спасибо, то что нужно. Очень помогли