Страницы: 1
RSS
Макрос переноса строк с постановкой "латки" на место удалённых строк.
 
Доброго дня всем.
Подскажите, пожалуйста, как справится со следующей задачей.
Есть база с множеством стандартных однотипных листов. Есть регистратор, который запросто может перепутать листы и в лист В, например, внести несколько записей (например, с 10 по 17), которые должен был внести в  лист Т, например.
Задача следующая: если подобный косяк замечен, то
1) как поудобнее для регистратора организовать перенос ячеек в выделенных вручную строках с 10 по 17 в примере (именно строки выделяются) с данными с ошибочного листа (В) в первую пустую в столбце D верного листа (Т);
2) как на место перенесенных строк в В вставить "латку" с теми  же строками ( с 10 по 17) из листа ШАБЛОН.
"Латка" нужна потому, что при введении данных в листе В, регистратор при необходимости "забивает" не актуальные формулы. А в новых строках эти формулы должны быть. В  ШАБЛОНе они есть.

Хотелось бы на выходе работать по такому алгоритму: вручную выделил строки на ошибочном листе, клацнул макрос, вручную открыл верный лист, msgBox "Вы открыли лист. Продолжить перенос на него?", код вставляет строки под последней не пустой в D, вставляет "латку" из таких-же строк ШАБЛОНа в ошибочный лист.
 
Цитата
maseur пишет:
клацнул макрос, вручную открыл верный лист, msgBox "Вы открыли лист.

Вот к сожалению не знаю как выбрать лист после показа окна msgbox, однако реализовал через ввод имени листа в InputBox.
 
SkyShark, спасибо большое за помощь.
Самый неизвестный участок остался безответным.
Попробую переделать форму листа и макросов, что с ним работают, чтобы появилась возможность удалять строки без "латки".
 
Цитата
maseur пишет:
Самый неизвестный участок остался безответным.

Какой именно?
 
Во вложении вариант с выбором листа мышкой (без ввода имени).

Выделенные строки и имя листа на котором выделили строки и нажали кнопку "перенести"  запоминаются в комментарии к книге.
Код
ThisWorkbook.BuiltinDocumentProperties("Comments")


Дальнейшая обработка срабатывает при активации другого листа
смотрите
Код
Workbook_SheetActivate
в "ЭтаКнига".

Перед запуском копирования строк появляется MsgBox с указанием на какие строки с кого листа и на какой лист будут скопированы.
Страницы: 1
Наверх