Перенос данных на другой лист

[milavski]

Прошу помощи в создании простой системы регистрации, например, заказов. На первом листе - простой однострочный бланк регистрации (номер, заказчик, дата и т.п.) с кнопкой "Архив". После заполнения бланка и нажатия на кнопку "Архив" данные удаляются и переносятся на следующий лист в общий список заказов (строки добавляются сверху вниз). Номер последнего зарегистрированного заказа показывается красным шрифтом под окном "Номер заказа" в опустевшем бланке регистрации.
Пример прилагается. Заранее спасибо!

[SAS888]

Посмотрите один из возможных вариантов во вложении.
Если нужно, можно добавить проверку: существует ли такая запись в архиве, или нет.

[milavski]

Сообщение от SAS888

Посмотрите один из возможных вариантов во вложении.
Если нужно, можно добавить проверку: существует ли такая запись в архиве, или нет.

Огромное спасибо, SAS888! Все работает именно так, как требовалось.
Раз уж Вы сами предложили контроль повторения записей, то неплохо бы это сделать, но только в отношении номера заказа (только они должны быть уникальными).
И еще маленькое замечание. Кнопка "Архив" не действует, пока не выйдешь из последней заполненной клетки. Люди с низким IQ могут не додуматься и мучаться с вводом данных.

[SAS888]

Кнопка "Архив" не действует, пока не выйдешь из последней заполненной клетки

Пока Excel находится в режиме редактирования данных ячейки, кнопка будет недоступной. Обойти этот момент можно, если отказаться от кнопки, а использовать событие активации требуемой ячейки (см. вложение).
Также, во вложении добавлена проверка на уникальность номера заказа при вводе данных.

[asas2010]

SAS888 , спасибо, а вот как расположить ячейки в архиве по другому, как в моем примере, это возможно? и если нетрудно, покажите пожалуйста. Спасибо. Простите чуток тормознул

[SAS888]

Сообщение от asas2010

...как расположить ячейки в архиве по другому, как в моем примере...

Где пример?

[asas2010]

Подправил 5 пост. Спасибо

[SAS888]

Посмотрите один из возможных вариантов во вложении.
По-моему, Вы там что-то напутали со строками. Я сделал, опираясь на "здравый смысл". Т.е. данные берутся не из тех ячеек, которые Вами указаны, а из ячеек, предназначенных для ввода значений. Макрос простой, поэтому, разобравшись, Вы сами сможете все сделать так, как требуется. Также, отслеживается событие активации ячейки "J19" (а не "J20").
Нужны ли какие-либо проверки перед вставкой значений, Вы не указали. Поэтому их и нет.

[asas2010]

SAS888 Спасибо, то что надо, данные берутся опираясь на "здравый смысл", я это и имел ввиду . Спасибо

[asas2010]

Здравствуите,
Подскажите пожалуиста как написать, чтобы после переноса данных на другои лист ячеик опустели
[B5:H5].Copy: Sheets("архив").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlValues
[B5:H5].ClearContents неодходимо чтобы опустели не эти ячеики а - "B7", "D7", "F7", "H7", "J7", "B9", "D9", "F9", "H9", "J9", "B11", "B13", "J13", "B15", "B17", "F17", "J17" , Спасибо
Методом прб и ошибок выяснил -
[B7,D7,b10,f7,h7,j7,d10,f10,h10,j10, b12,b14,j14,b16,b18,f18,j18].ClearContents , только плохо что если ячеики объединены то выдает ошибку, сперва не понимал почему возникает ошибка.