Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Замена формулы на макрос для добавления определенного периода к дате в таблице
 
Всем ДОБРА!
Необходима ваша подсказка, искал в разных похожих темах, но так и не допер. Нужен макрос вместо формул в ячейках Е5:Е9 для автоматического расчета срока действия. Расчет должен проводится только если в ячейках  D5:D9 вводятся даты. Если пусто или иной текст, оставаться пустым либо неизменным. Строки в таблице с ФИО могут добавляться, либо удаляться стандартными средствами. Спасибо.
 
В модуль листа
Код
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
Согласие есть продукт при полном непротивлении сторон.
 
Sanja,Благодарю!
Страницы: 1
Читают тему (гостей: 1)