Замена формулы на макрос для добавления определенного периода к дате в таблице

Пользователь

Сообщений: 52 Регистрация: 12.01.2016

13.03.2018 16:23:08

Всем ДОБРА!
Необходима ваша подсказка, искал в разных похожих темах, но так и не допер. Нужен макрос вместо формул в ячейках Е5:Е9 для автоматического расчета срока действия. Расчет должен проводится только если в ячейках D5:D9 вводятся даты. Если пусто или иной текст, оставаться пустым либо неизменным. Строки в таблице с ФИО могут добавляться, либо удаляться стандартными средствами. Спасибо.

Прикрепленные файлы

primer.xlsb (11.98 КБ)

Sanja

Модератор

Сообщений: 16560 Регистрация: 10.01.2013

13.03.2018 17:26:50

В модуль листа

Код

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("D")) Is Nothing And Target.Count = 1 Then
    If IsDate(Target) Then Target.Offset(, 1) = WorksheetFunction.EDate(Target.Value, 1)
End If
End Sub

Прикрепленные файлы

primer.xlsb (15.49 КБ)

Согласие есть продукт при полном непротивлении сторон

rudik Пользователь Сообщений: 52 Регистрация: 12.01.2016	#3 13.03.2018 18:12:50 Sanja,Благодарю!