Проверка столбца и перенос на нов.лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Проверка столбца и перенос на нов.лист (Формулы)

foxig

Дата: Суббота, 05.10.2013, 13:18 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте форумчане!
Отвлекусь от темы, но спасибо вам за такой полезный сайт!
К вопросу, есть листы под название №1, №2, №3, №4.
Хотелось бы сделать что при наличии в столбце Е цифры 1 вся строка переносилась на лист№2. Если в листе №1!Е есть цифра 2 то переносилась вся строка на лист №2
а если в листе №3!Е есть цифра 3 то переносить всю строку.

В файле пример.
Лист №1 информация все время будет пополняться.
Цифры (1,2,3) в листе №1!Е будут вводится вручную.

Подскажите как решить такой вопрос?

p.s. Тем таких на форуме много, не разобрался.
Читаю интенсивный курс программирования в excel за выходные.

К сообщению приложен файл: 6446459.xlsx (17.7 Kb)

Сообщение отредактировал foxig - Суббота, 05.10.2013, 14:21

Ответить

AlexM

Дата: Суббота, 05.10.2013, 13:42 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4511

Репутация: 1128 ±

Замечаний: 0% ±

Excel 2003

Где файл с примером?

Цитата (foxig, 05.10.2013 в 13:18, в сообщении № 1)

вся строка переносилась на лист...

Это означает, что с листа №1 строка должна удалятся. Если так, то решение макросом.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Суббота, 05.10.2013, 13:43

Ответить

foxig

Дата: Суббота, 05.10.2013, 14:31 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата (AlexM, 05.10.2013 в 13:42, в сообщении № 2)

Это означает, что с листа №1 строка должна удалятся. Если так, то решение макросом

Копирование бы желательно. ПРобовал с этого примера создать:
Копирование строк на другой лист

[vba]

Код

Sub CopyRows2()

Dim iCells As Range

For Each iCells In Range("A1:A100")

Range(iCells, iCells.Offset(10, 7)).Copy

Workbooks.Add

ActiveSheet.Paste

Next iCells

End Sub

[/vba]

Примерно так, не разобрался с способами написания. В php бы сделал.

либо возможно ли формулой?

Код

=ЕСЛИ(ЕНД(ПОИСКПОЗ(A1;Лист1!$E$1:$E$500;));

а как копировать формулой?? с условием?