Есть ещё варианты по решению данного вопроса?

Добавила, не сработало

МатросНаЗебре,  я думала от работает от слов "заказ покупателя 153", поправлю

МатросНаЗебре,  Данные на листе ПР-ВО, не всегда корректные, для более корректного поиска я использовала дополнительную функцию на листе Данные Подскажите как правильно добавить дополнительно Trim(UCase(RelacePunct( к arr(2, 2)(yo, 1) - это же данные для с равнения с Листа Данные?

МатросНаЗебре, а точно, я строчные добавляла для сравнения

МатросНаЗебре, Второй код на отчёт не сработал. Но смысл понятен, с этим я разберусь. А вот с Казанью )), не увенрена

МатросНаЗебре, спасибо огромное. Но по заказу 247 подтянулась одна позиция   Стенд для образцов металлочерепицы Москва, а Стенд для образцов металлочерепицы Казань?

Sanja, здравствуйте. Оставила максимально 50 строк. В лист "Данные" нужно собрать данные из листа ПР-ВО, проблема в том, что данные не всегда чёткие.
Например на листе "Данные" имеется продукция Стенд Террасная доска без ступени (Строка 9), у этой продукции свой заказ и менеджер. Эта же продукция имеется на листе "ПР-ВО", с тем же менеджером и заказом, но в дополнении к концу изделию добавлен город или любая другая информация, например Стенд Террасная доска без ступени Воронеж и Стенд Террасная доска без ступени Казань (строка 46 и 50).То есть не одна позиция а две. Есть макрос, он определяет, что две позиции, и есть макрос, что добавляет две дополнительных строки на Лист "Данные" и в эти строки нужно по столбцу "Изделие" собрать эти позиции из Листа ПР-ВО, а в столбец Кол-во указать кол-во с Листа ПР-ВО. Так же эти данные продублировать в лист Отчёт, чтобы нумерация строк не терялась.

MikeVol, извиняюсь за некорректные данные. Вкладываю максимально сжатый файл. На основании Листа Отчёта, с помощью дополнительного макроса (который определяет отступы, формируется отчёт "Данные", в отчёт "Данные" собираются данные из других отчётов, таких как ПР-ВО, после сборки, "Данные" нужно вернуть на лист "Отчёт", в сгруппированном отдать руководителю.

Всем здравствуйте.
Обращаюсь ко всем представителям знающим VBA и имеющую в глубине душе доброту и отзывчивость.
До сих пор не подружилась с VBA, но методом тыка собрала код который определяет кол-во одниковых сверяемых данных между двумя листами по 3 и более столбцам.
Найденное коло-во с листа ПР-ВО вставляется в таблицу с листом под наименованием "Данные". Но  мне нужно не только кол-во, но все найденные элементы соответствующие этому кол-ву (от первого до последнего), которые будут вставляться по порядку вниз в столбце "Изделие" перед столбцом "Строк по изделию"
Однако бывает такое что, случайно дублируются заказы, тогда нужно сравнить по кол-ву затрат. Если суммарное кол-во больше чем на листе Данные, тогда вставляем найденное значение то, которое или меньше по кол-ву или аналогично кол-ву указанное на листе "Данные".
Как реализовать задачу не имею понятия.
Для вставки вниз будет дублироваться строки, код есть. Пример в файле, начиная с 550 строки в листе "Данные"
Очень прошу откликнуться не равнодушных.    

МатросНаЗебре, спасибо, мне решение понравилось.

МатросНаЗебре, спасибо. У меня конечно окрас до 7000 строк идёт, но я и этому была рада, добавила и чуть переделала макрос " Выделение_1", и теперь выделяет до нужной строки. Обработка около 17 секунд, но для 7000 думаю норм. У меня эксель 2007.  

 

Уважаемые форумчане, хоть кто-то может помочь? Аналогичного ничего не нашла

Всем здравствуйте! Есть таблица в которой нужно сделать фильтр по трём столбцам
У каждого столбца свой критерий
   Sheets("Лист1").Range("$A$6:$D$2000").AutoFilter Field:=2, Criteria1:="<>"
   Sheets("Лист1").Range("$A$6:$D$2000").AutoFilter Field:=3, Criteria1:="="
   Sheets("Лист1").Range("$A$6:$D$2000").AutoFilter Field:=4, Criteria1:="="
По факту отбора, необходимо ячейки выделить и присвоить им цвет (любой для примера)
В данном примере есть ращение, на один столбец, пожалуйста помогите с решением трёх столбов.
Лист1 - как есть
Лист2 - как нужно

MikeVol, Спасибо. Работает .

Вечер добрый. Есть таблица со столбом в котором указано сколько нужно добавить строк. Есть код который добавляет на основании этих данных нужное количество строк.
Но нужно чтобы в эти строки копировались значения с изначальной строки в которой указано, сколько нужно добавить строк.
Ребята помогите доработать код.
Пример во вложение.

Спасибо огромное, понятно и легко.

Добрый день. Создала Userform со списком и командами кнопок, но код кнопки вставляет значение в другую ячейку, а не в нужную. Не дружу с программированием, делала всё исключительно по картинки с сайта https://urok.1sept.ru/articles/549512, и вроде думала, молодец до тех пор, пока не начала проверять работу. Пожалуйста помогите, подкорректировать код в Userform1. Для работы Userform1 работает макрос Кнопка_Щелчек и создана отдельная кнопка 2. Выбрать месяц отчёта

Здравствуйте. Извиняюсь, спешка. Реабилитируюсь.

Отлично работает и конвертируется, правда чуть подправила, мне так удобней.


Павел \Ʌ/, АlехМ спасибо за помощь.
Тимофеев спасибо за подстрекательство.

так работает, но при сохранении в формате .odc и открытии в эксель через диспетчер имён формула не конвертируется (="SUBSTITUTE(SUBSTITUTE([$Лист1.$A1];"")"";"""");""-"";""^"")")

После открытия в LibreOffice в управлении с именами поменял ячейку ПОДСТАВИТЬ(ПОДСТАВИТЬ($Лист1.IW2;")";"");"-";"^") - исправили, сохранили в формат excel 2003 при открытии в excel выдал ошибку файл во вложении. Может столбец A закрепить. попробую сейчас.

не каждый продвинутый пользователь может правильно работать с офисными файлами, поэтому и хотелось уникальную формулу.

Да, на астре открыли через libreOffice Calc, 30 минут разбирались как им запустить макрос ))), потом сохранили в .ods направили обратно, при от открытии через эксель, удалился модуль ))). Макрос не вариант.  

в скобках и без скобок указаны цифры не менее и не более. Сравнивается от 0 до 16000 и более, но не менее ))). Программа по осаго. При завершении, на проверке на astra linux и excel 2003 формулы выдали =#ЗНАЧ!.

Спасибо. Сегодня поставлю эксель 2003 года, посмотрю.
Интересно, а  какое офисное приложение сможет прочитать эти формулы на astra linux?  

Под рукой excel не оказалось, только OpenOffice. Через него вообще всё печально смотреть))). Макросы на работе не желают.

Нужно универсальное решение число из конца текстовой строки для excel 97-2003.
Оно существует?
пример во вложении.

))), тепло).