К сожалению, на последней строчке кода возникла ошибка в пути к файлу (" & fn & " что то с этим связанное).

Проблема решена по этой ссылке, Ігор Гончаренко спасибо что уделили внимание моей проблеме!

Удалил мусор - перезалил файл

Добрый день, уважаемые!

Продолжаю придумывать всякие фичи и столкнулся с очередной проблемой:

Есть цикл, который в моей программе делает определённые действия для каждой ячейки, начиная с А2 и заканчивая последней заполненной ячейкой.
По выполнении этих действий я решил создавать отдельный файл с выкопировкой результатов (две вкладки копируются в новую книгу), а затем с помощью того же цикла переименовывать эти файлы, также, начиная с ячейки А2 и заканчивая последней заполненной ячейкой.

Однако на этом этапе у меня всплывает ошибка '1004' Application-defined or object-defined error:

Пробовал немного видоизменять эту строку, разбивая путь к книге и листу, там вылазила другая ошибка.

Не могли бы вы помочь правильно записать этот код, я находил подобный на других форумах и он работал у других людей, но в моём случае, что-то не выходит.

У меня в файле применяется массив с незафиксированной строкой, с помощью которой находятся все идентификаторы при совпадении клейм, а в этой формуле находится только первое совпадение. В этой формуле применяются подстановочные знаки в Excel ("*") которая по идее и должна решить мою проблему, но в формуле массива выдаётся ошибка !ЧИСЛО

PS файл весит 131 кб и он не загрузился
PSS а теперь загрузился

Здравствуйте дорогие форумчане!

У меня возникла такая проблема.
Имеется таблица данных (см. файл Пример2 вкладку "Таблица данных")
На вкладке "Выписка из таблицы" вводится искомое значение "Клеймо" а затем с помощью массива ищется уникальный идентификатор "Номер заявки".

Вопрос:
Как изменить формулу, чтобы он вытягивал идентификаторы не только, когда имеется полное совпадение клейма (в примере 274P), но и в комбинации клейм (6A95/274P-BBE1).

Находил в интернете вот такую формулу

ключевое здесь ("*"&"*)

переработал её под мой массив, но что-то она у меня не заработала, выдаёт ошибку !ЧИСЛО
ссылка на комментарий с этой формулой https://cloud.mail.ru/public/5rgy/MMQJGSUrJ

Да, торопился и даже не было времени вникнуть в последующие сообщения.
Действительно, NEW альтруистически написал для меня код за что ему большое спасибо! Его я по итогу и использовал и теперь у нас в отделе заработала новая программа. По возможности всё автоматизируем собственными силами.

Обожаю 21 век и священный интернет и таких ребят, вроде вас. Аминь

Msi2102, благодарю Вас, по-моему это то самое короткое решение, которое мне нужно.
Испробую, если что отпишусь.

Здравствуйте люди добрые!
Ситуация такая, что я нахожусь на вахте и, к сожалению, меня постоянно дёргают и не дают сосредоточиться.
До этого немного программировал на vba, но уже многое забыл.

Суть проблемы:
У меня есть небольшой алгоритм повторяющихся действий. Таких действий у меня на данный момент 300 с чем то, постепенно будут увеличиваться. В них меняются только номер строки (Range("A2") на Range("A2"); Range("C2") на Range("C3") ). Пример кода:
Чувствую, что решение здесь в небольшом не сложном цикле, которому ещё в школе учат. Не могли бы вы помочь реализовать мою задачу?

Аксакалы, задал тот же вопрос паралелльно на другом форуме.
Судя по всему решение этой задачи так, как я его увидел - не реализуемо силами Excel'а.

Мне предложили другой путь (который я уже впрочем использовал для других блоков):
1) Это разместить на отдельном листе Excela данные блоки с информацией, переносить их на центральный лист (в область печати) не путем "вырезать-вставить", а копипастом.
2) Очищать область печати путем копирования/наложения пустой области (пустые ячейки) со схожими размерами на перенесенную форму.

Но данное решение не подходит мне из за того, что в оригинальном файле в формах у меня также расположены картинки, а при наложении пустых ячеек на них - картинки остаются (записал для большей ясности короткое видео по ссылке - https://vnzm-my.sharepoint.com/:v:/g/personal/svarka_vnzm_onmicrosoft_com/EfAWzZgMRUVOlUXMtQVa­wl4BPi...)

P.S.
По моему, на другом форуме помогли с решением вопроса - опробую тот макрос в течении дня

В исправленном примере у меня есть два блока (которые состоят из объединенных ячеек) - это трубный блок и стыковой.

Суть задачи в том, чтобы показать в специально отведенной ячейке - какой блок сейчас задействован. Т.е если блок в данный момент располагается за пределами зоны печати - он неактивен (в форме выводится ложь, т.к не выполняется условие ЕПУСТО).

Если блок располагается в зоне печати - он активен. (по задумке формула ЕПУСТО не находит текста в его изначальном месте расположения и выводит надпись " Трубная форма активна". Но прием "Вырезать-Вставить" не дает реализовать данную идею)

Сейчас вот только такая мысль у меня в голове - для каждого блока (две кнопки) сделать свой индикатор, который бы показывал активен тот или иной блок (индикатор будет активен при щелчке на кнопку "Трубная форма" и деактивен при щелчке на кнопку "Очистить"). Конечно это менее изящное решение, т.к таких блоков в моем исходном файле большое количество и для каждого придется делать отдельный индикатор

Здравствуйте, товарищи!

У меня такая ситуация:
Имеются объединенные ячейки (т.н "блоки") с разной информацией.
Эти ячейки переносятся в зону печати и обратно на свое место нажатием кнопок. Записывал действия через макрорекордер путем "Вырезать-Вставить".

Появилась Идея - отображать в отдельном блоке (назвал "Индикатор Формы") какая на данный момент форма с информацией активна.

Т.е то что лежит за пределами зоны печати считается неактивным, а то что перенесено в зону печати - активным.

Первое что пытался реализовать - формула "Епусто", которая срабатывает, если в выбранном диапазоне ячеек/ячейки нету текста. (по задумке формула ЕПУСТО не находит текста в его изначальном месте расположения и выводит надпись " Трубная форма активна")

Но так как мои действия заключаются в "Вырезать-Вставить", в момент переноса блока с информацией "Епусто" переносится вместе с ним (более понятно будет на скриншотах "Пояснение 1" и "Пояснение 2")

Скрытый текст

Приходит ли вам на ум более изящный способ оценить какой сейчас блок с информацией активен применительно к моей ситуации

Дмитрий, спасибо за помощь!  Первый вариант кода подошел.

Второй не подошел из за того что у меня значение H20 выбирается в зависимости от 5 условий (вылезла ошибка о числе аргументов), для примера я сократил до двух.  

Извольте
Сократил всё, чтобы сделать фокус на конкретном вопросе.

Условий у меня гораздо больше, и хотелось бы, чтобы в случае, если не выполняется ни одно из n числа условий, в ячейке вылазило значение ЛОЖЬ. Иначе он оставляет предыдущее верное значение, при отсутствии прописанного условия

Дмитрий, дело в том, что ваши решения я пробовал делать, но, повторюсь, при макросе ByVal почему то вылезают ошибки на данное оформление условий

Здравствуйте! Написал множество условий, в зависимости от которых меняется значение ячейки H20.

Хотел в конце макроса сделать команду, "если не выполняется ни одно из условий, вывести в ячейке надпись ЛОЖЬ"

Предисловие: До этого создавал Module макросы, которые срабатывали при нажатии кнопок. Там, каждое условие If я закрывал End If

Этот макрос ByVal у меня идет через лист 1. В нем при закрытии каждого условия If, как вроде бы того требуют правила написания, вылезает ошибка "End If without block If". Это я к тому, что здесь как то правила работают по другому, и, соответственно команда else тоже.

Не могли бы подсказать как прописать мою команду.