Макрос на удаление определенного к-ва строк

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на удаление определенного к-ва строк (Макросы/Sub)

ПалычЪ

Дата: Вторник, 05.05.2015, 20:52 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 106

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

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

Excel 2010

Здравствуйте умы!Помогите пожалуйста. В примере приложенном есть две кнопки. Кнопка 1 добавляет строку макросом, кнопка 2 удаляет строку макросом. Добавление строк работает норм. Но вот как дописать макрос на удаление строк который на Кнопке 2, что бы при всем желании удалить все строки, одна желтая строка всегда оставалась...что б ее невозможно было удалить? При чем в листе есть несколько защищенных ячеек и добавлена защита листа (это все нужно оставить как есть)Заранее спасибо! и просьба еще макрос какой сейчас есть в корне не переделывать или изменить по возможности минимум(что б я сам понял что вы в макросе поменяли).

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

Ответить

_Boroda_

Дата: Вторник, 05.05.2015, 21:10 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Не переделывал. Почти. Только удалил лишнее
[vba]

Код

Sub Макрос1()
     Rows("7:7").Insert Shift:=xlDown
     Rows("6:6").Copy Rows("7:7")
End Sub
Sub Макрос2()
     If Range("A7") <> "" Then Rows("6:6").Delete Shift:=xlUp
End Sub

[/vba]

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995