Автоматическое копирование строки на другой лист по заданным параметрам

Пользователь

Сообщений: 9 Регистрация: 01.01.1970

08.07.2011 09:57:51

Здравствуйте!
Подскажите, пожалуйста, как реализовать такую задачу:
на 1 листе вводится строка с данными, и если в определенной ячейке присутствует заданное значение, эта строка автоматически копируется на другой лист в конец таблицы (например, если в ячейку D4 ввести "2", то вся 4я строчка копируется на второй лист в конец таблички, состоящей из ранее скопированных по такому же принципу данных).
Спасибо.

webley Пользователь Сообщений: 2174 Регистрация: 01.01.1970	#2 08.07.2011 11:58:26 попробуйте Прикрепленные файлы post_239813.xls (32 КБ)

more Пользователь Сообщений: 9 Регистрация: 01.01.1970	#3 11.07.2011 10:04:58 {quote}{login=webley}{date=08.07.2011 11:58}{thema=}{post}попробуйте{/post}{/quote} спасибо) только хотелось бы, чтоб копировалась вся строка..)

webley Пользователь Сообщений: 2174 Регистрация: 01.01.1970	#4 11.07.2011 10:09:08 а вся строка и копируется Копирование происходит после появления в ячейке столбца D "2". Соответственно, надо сначала заполнить другие столбцы и тогда они тоже скопируются

Андрей

Гость

16.07.2011 16:18:38

{quote}{login=webley}{date=11.07.2011 10:09}{thema=}{post}а вся строка и копируется
Копирование происходит после появления в ячейке столбца D "2". Соответственно, надо сначала заполнить другие столбцы и тогда они тоже скопируются{/post}{/quote}

а не мог бы выложить код?? спасибо!

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#6 16.07.2011 16:31:16 Код стоит денег. Пять мильонов тысяч. Вы в файл заглядывали?

Андрей Гость	#7 16.07.2011 17:19:34 да, конечно, приминил в своем файле, все работает за что огромное спасибо, но хотелось бы доработать, в частности копирования не всей строки а лишь необходимые ячейки в строке.

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

16.07.2011 17:23:40

Вы уж определитесь:
"спасибо) только хотелось бы, чтоб копировалась вся строка..)";
"хотелось бы доработать, в частности копирования не всей строки а лишь необходимые ячейки в строке."
Каре?
-=11411=-

Я сам - дурнее всякого примера! ...

Андрей Гость	#9 16.07.2011 17:28:11 извинияюсь, то писал другой участник, функционально смысл вопроса идентичен.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#10 16.07.2011 17:32:10 Да я уж понял. Если судить по пунктуации, то один. Ну Вы еще и в орфографии Тс переплюнули:-) Так, что мой недочет. Я сам - дурнее всякого примера! ...

Андрей Гость	#11 16.07.2011 17:42:23 к сожалению влияние "клавы" распространяется не только на почерк.. честно сказать мне бы макрос доделать..

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#12 16.07.2011 17:53:58 А проблема в чем? Прочитать правила, выложить пример. Откуда кому знать, какие ячейки "лишь необходимые ячейки в строке"? Я сам - дурнее всякого примера! ...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#13 16.07.2011 17:55:54 {quote}{login=KukLP}{date=16.07.2011 05:53}{thema=}{post} Откуда кому знать, какие ячейки "лишь необходимые ячейки в строке"?{/post}{/quote} Я знаю - с первой по пятую.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#14 16.07.2011 18:11:22 Тогда тебе и рисовать:-) 63333 Я сам - дурнее всякого примера! ...

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#15 16.07.2011 21:42:21 Да что там рисовать - переделки полстроки: Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Copy Destination:=Sheets("Лист2").Rows(Sheets("Лист2").Cells(Rows.Count, 4).End(xlUp).Row + 1)

Читают тему