Вставка строки макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставка строки макросом (Доработать макрос вставки нижней строки)

Вставка строки макросом

segail

Дата: Понедельник, 14.10.2013, 00:01 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте.
Помогите доработать код.
Нужно доработать макрос вставки нижней строки (кнопкой Строки+) в защищенный лист без пароля с форматом предыдущей. Формат предыдущей строки это границы и формулы ячеек столбцов 36, 37, 38, 39, 41.
За ориентир можно взять ячейку с точкой "." столбца 1, которая на данной момент находится в ячейки А35.
Удаление строк идет корректно.
Файл прилагается.

К сообщению приложен файл: tem.xlsm (25.7 Kb)

Ответить

KuklP

Дата: Понедельник, 14.10.2013, 00:17 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кросс:
http://www.programmersforum.ru/showthread.php?t=245522&page=2

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

doober

Дата: Понедельник, 14.10.2013, 01:22 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 983

Репутация: 340 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub AddRowAbove()
     Const psw As String = ""
     With ActiveSheet
         .Unprotect psw
         With .Columns(1).Find(".")
             .EntireRow.FillDown
             .Offset(1, 0) = "."
         End With
         .Protect psw
     End With
End Sub

[/vba]

[offtop] Да.Идут год а принцип тот же.

Ответить

segail

Дата: Понедельник, 14.10.2013, 01:46 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

doober
Я так понял строка копируются и вставляются на последующую с низу.
Дело в том, что снизу будет контент в диапазоне ячеек F37:AL42 и при добавлении новой строки он должен сдвигаться в низ.

Сообщение отредактировал segail - Понедельник, 14.10.2013, 03:05