Привет все
Существует два рабочих листа ..необходимо перенести выделенные данные из одного рабочего листа в другой с присвоением следующего порядкового номера
Пример
Лист1
А B C D E
1 (пусто) МИХАИЛ ЛЕОНОВИЧ ЛУПАШКУ 'выделяем две первые строки или выделяем каким то
2 (пусто) ХУСНИДДИ ХОЛБАЕВИЧ ТОЛЛИБОЕВ 'другим способом не знаю. как проще
3 (пусто) ВАХИД ВАХИДОВИЧ МОЛЛИВОЕВ ' эту строку оставляем и при переносе первых двух
Поднимем ей вверх
Лист2
А B C D E
1385 5204 ОЛЕГ АНАТОЛЬЕВИЧ КУЧЕР
1386 5205 ЕВГЕНИЙ ИВАНОВИЧ ЧАВДАРЬ
1387 5206 МИХАИЛ ЛЕОНОВИЧ ЛУПАШКУ 'встовляем их в следующую пустую строку
1388 5207 ХУСНИДДИ ХОЛБАЕВИЧ ТОЛЛИБОЕВ ' и присваиваем следющий номер колонки A и B
полсе переноса выделенных строк в в Листе1 тех кого перенесли удаляем
ВОБЩЕМ вроде объяснил как смог..плиз помагите...
Вот http://www.pashulka.nm.ru/ArthurHome.zip можно скачать небольшой пример подобного макроса. Перед запуском макроса необходимо предварительно выделить строки, которые необходимо перенести в другой рабочий лист, при этом допускается выделение несмежных строк (CTRL)
pashulka
Привет pashulka очень рад что ты откликнулся, судя по постом после нового года форум мало активен был.
По коду все класно... только когда я переделал его на мою книгу не стала работать нумерация колонок A и B
ArturHome, Как Вы наверное уже заметили в моём примере заполнение в столбцах "A:B" происходит без проблем, почему у Вас подобного эффекта не наблюдается можно только предполагать ... Возможно у Вас не заполнены числовыми значениями первые ячейки в этих столбцах, возможно они заполнены, но не числами (даже если внешне это выглядит как число - MS Excel может воспринимать это как текст) В общем, если проблема ещё актуальна, то желательно видеть хотя бы часть исходных таблиц.
pashulka
http://ifolder.ru/907230
ArturHome, Если заполнение должно исходить из последних ячеек этих столбцов и это не приведёт к возникновению повторяющихся значений, то небольшой пример можно скачать http://www.pashulka.nm.ru/ArthurHome_v.2.zip
pashulka Ты гений ..спасибо огромное..
Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)