Ввод данных через форму

[hamlook]

Доброво вам уважаемые.
Нашел на этом сайте как сделать форму для ввода данных. Подстроил ее под себя, с этим проблемм не возникло.
Но захотелось большего )))
Помогите пожалуйста сделать вторую форму под названием "Удалить запись". При ее активации необходимо чтобы строка с заданным №пп копировалась на лист "Архив" с добавлением новой информации. И соответственно на Лист1 эта строка должна удалится из списка.

[doober]

Я немного изменил вашу форму

[hamlook]

Спасибо большое!!! То что нужно!!!
С нумерацией только небольшие проблеммы (на Лист1). При удалении строки и последующим вводом новых данных запись нумеруется исходя из количества строк. Поэтому номера могут повторятся.
Как сделать обновление нумерации после удаления строки?

[EducatedFool]

Как сделать обновление нумерации после удаления строки?

Достаточно изменить в макросе пару строк (например, убрать cell = cell.Row - 1), и выполнить нумерацию строк при помощи формул типа этой:

  Ячейка: A2      Формула  (стиль A1):   =ЕСЛИ(B2<>"";СТРОКА()-1;"")
                  Формула  (стиль R1C1): =ЕСЛИ(RC[1]<>"";СТРОКА()-1;"")

Пример файла:



PS: Не знаю, как Вам, а мне кажется крайне неудобным удаление строк таким способом...
Не проще ли удалять строки без лишних форм?
Выделили ячейку, нажали кнопку "удалить строку", подтвердили удаление, - и всё.
А так мало того, что приходится вводить номер строки, так ещё надо и дату с фамилией...

[hamlook]

Спасибо EducatedFool
С формулами у меня проблемм нет. Я раньше все делал только с помощью формул. Только недавно узнал что макросом можно удивительные вещи творить ))))
По поводу удаления... Это только называется удалением. На самом деле это сохранение информации о произведенных действиях и о том кто это делал. Это важно. Удаляется только из рабочего списка. А рабочий список постоянно обновляется и поэтому, если применить формулы, через определенное время они закончатся и надо будет их дополнительно копировать. А люди которые работают с этим списком не все способны это сделать. Я еще не знаю получится ли меня их научить работать с формой. Хотя стараюсь все сделать намного упрощенней.
Если нет других вариантов, то я в макрос пропишу после добавления строки данных, добавлять в следующую строку (ячейку) формулу.

[getikalex]

А можно ли формулу для нумерации строк из указанного примера
=ЕСЛИ(B2<>"";СТРОКА()-1;"")
=ЕСЛИ(RC[1]<>"";СТРОКА()-1;"")
вводить из макроса при добавлении новой строки ?
Дело в том, что если кому-то поручить ввод данных, то обяснять что еще нужно вводить вручную функцию в первый столбец... не всякий поймет.

пробовал из макроса так:
cell.Formula = "=ЕСЛИ(B2<>"""",СТРОКА()-1,"""")"
cell.Formula = "=ЕСЛИ(B2<>"""";СТРОКА()-1;"""")"
но ccылку B2 для каждой строки менять не хочет...

[EducatedFool]

Попробуйте так:

cell.EntireRow.Cells(1) = cell.Row - 1

[getikalex]

Если копировать из предыдущей строки - так то оно, конечно пойдет, если в предыдущей строке формула уже есть.
Но если начинать с начала - то предыдущей вроде как нет.
Т.е. начать, и ввести хотябы одну строку придется самому.
Мне придется отправить для ввода данных не очень смышленого товарища далеко от себя. Может сдуру удалить, или подправить первую ячейку, и тогда замучаюсь по телефону обяснять что вводить.
Хотелось бы защиту от дурака - ввод из макроса.

Еще думал оформить таблицей, чтоб автоподстановка формул была и защитить столбец. Но тогда другая беда - не работает ввод в последнюю строку. Оно будет вводить не в последнюю строку таблицы, а под таблицей...

[getikalex]

Спасибо за подсказку Igor.Go
Получилось

[kunar80]

Спасибо всем участникам. По вводу данных проблем нет, да и не было. Хотя некоторые полезные для себя моменты в теме нашёл. Но подскажите, как табличные данные через форму редактировать? Как прописать, чтобы NextRow вычислялась как крайняя левая ячейка (т.е. ячейка колонки А) в строке с активной в данный момент ячейкой?
Исходник прилагаю. Заранее СПАСИБО!