Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автозаполнение формулы при добавлении новой строки, VBA
 
Нужно автозаполнение ячейки формулами из вышестоящих ячеек, при добавлении новой строки. Есть код для макроса, который это выполняет, но там добавление новой строки задан как двойной клик по ячейке. То есть обычным способом, когда добавляешь новую строку формула автоматом не заполняется, но выполняется это действие если сделать двойной щелчок в ячейке (одновременно добавляется новая строка и заполняется формулой). Мне нужно двойной щелчок заменить на обычный способ добавление строки.

Код макроса:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'Updateby Extendoffice 20160725
   Cancel = True
   Target.Offset(1).EntireRow.Insert
   Target.EntireRow.Copy Target.Offset(1).EntireRow
   On Error Resume Next
   Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub
Изменено: Максим Аксенов - 23 Авг 2019 15:27:19
Страницы: 1
Читают тему (гостей: 1)
Наверх