Магическое исчезновение

[AdminMars]

Добрый день! Подскажите пожалуйста, как можно автоматически переместить строчку с данными в другую таблицу, забив в одну из ячеек этой строчки число?при этом последующая строчка должна встать на место исчезнувшей!по порядковым номерам...если на примере, то допустим Иванову забиваем Дату получения и строка 2...Иванов...12.10.2011...х...попад ает в таблицу Выданные путевки под номером 1....Иванов...12.10.2011...х...а строка 2...Петров...13.10.2011 поднимается выше на строку 1....Петров...13.10.2011!Спасибо заранее

[AdminMars]

неужели не реально???

[Hugo121]

Реально. Но лениво...
А что будете делать, если вдруг не тому дату забили, или в дате ошиблись, или ещё что-нибудь не так пошло?

[nilem]

Полулениво (без проверок и пр.)
Пишем дату в колонку Дата получения.

[AdminMars]

ай, спасибо!)))

[AdminMars]

а как можно туда столбцы загнать. не потеряв работоспособности?

[nilem]

Вот здесь:

If Intersect(Target, Me.ListObjects(1).ListColumns(4).Range) Is Nothing Then Exit Sub

4 - это номер столбца таблицы, куда пишем Дату получения.
А здесь:

With Me.ListObjects(1).ListRows(Target.Row - 1).Range(2).Resize(, 3)
        Sheets("Выданные путевки").ListObjects(1).ListRows.Add.Range(2).Resize(, 3).Value = .Value

Resize(, 3) - диапазон значений (3 ячейки из 2, 3 и 4 столбцов таблицы), которые переносятся в Выданные путевки.
Добавили, например, 2 столбца - пишем Resize(, 5).

[AdminMars]

ругается на .Delete ((((не знает что удалять...я только столбцы добавил и циферки поменял, где нужно

[nilem]

Ну давайте примерчик со всеми столбцами.

[AdminMars]

искомая задача