В первый раз программа ругалась, что макросы (из Модуля) не видны или отсутствуют. Невнимательность: кнопка обращалась по пути к Книге. Сейчас второй раз переместил их из Книги в Модуль, изменил путь к Модулю и все заработало. И с ActiveWorkbook и просто с Worksheets. Всем спасибо, вопрос решен

Весь код выше уже писал. Вот видоизмененный:

Dim wb As Workbook сработал. Спасибо. Почему не работает простой макрос, так и не понял

Есть однотипные файлы, содержащие листы Оборудование и Результаты. Макросы вынес в качестве надстройки, код сидит в ЭтаКнига, потому что из Модуля Макросы не видны. Задача, чтобы макрос из надстройки срабатывал в активной книге с листами Оборудование-Результаты  

Это не решает "out of range". Может это быть как-то связано с кодировкой кириллицы в названиях листов?
апд. Поменял имена листов на латиницу, ситуация не изменилась...

Создал файл надстройки для упрощения однотипных действий. Пока там всего два макроса. Но один из них не работает, жалуется на обращение вне диапазона (subscript out of range). Макрос элементарный - скопировать несколько строк с данными на соседний лист: Второй макрос (переход к первой пустой строке) из этой же надстройки работает, т.е. подключена надстройка правильно. Что не так с первым макросом, если внутри конкретного файла он работает без проблем?

После обновления офиса до 2021 заметил, что перестали работать расширенные параметры вставки (транспонирование и пр.) при переносе в другие файлы. Скорей всего из-за того, что файлы открыты в разных процессах. Файлы по работе приходится открывать и в самом эксель, и через проводник винды, и через Тотал Комммандер.
Как обойти данную загвоздку со вставкой? И можно ли заставить эксель открывать файлы в одном процессе?

Есть ли какой-то способ для этой процедуры?

Я так и пробовал, Но не получилось. Либо дальнейшие шаги делаю неверно

Добрый день. Встала задача сделать мелкие правки в массиве файлов (в папке). В частности, заменить отдельное слово , пусть будет "запах", на "Запах". Вроде как Квери это может, но я никогда прежде с ним не работал. Попытался дойти своим умом, но не вышло.
Получаю данные из папки, формируется таблица файлов. Дальше пробую через Заменить, но не получается. Прошу помощи

Спасибо, тоже сработало. Вот же, 30 лет за экселем и каждый раз как в первый ))

Обалдеть! Работает. Спасибище. Ни разу не сталкивался с таким хаком и, есчесно, не совсем понимаю как работает...
На всякий напишу это же в кириллице:
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A1;"-";ПОВТОР(" ";1000));1;1000))

Встала задача удалить часть текста в ячейках, следующие от символа "-". К примеру "Ваня Петров - хороший человек" на "Ваня Петров". Попытался начать с ПОИСК и НАЙТИ, но понял, что они вряд ли справятся. Поскольку помимо поиска тут еще выделение и удаление/замена. Макросы - единственный способ решить задачу поиска и выделения внутри ячейки?

А откуда берется цифра 2 в формуле смещения? Откуда отсчитывется? Вставил формулу в свою таблицу, у меня это значение вышло 4
upd, Понял. Это номер строки откуда отсчитывается диапазон

Спасибо огромное, что-то я все же не докрутил, ведь и так тоже пытался. Еще тогда вопрос: зачем использовать для диапазона в пром.итогах формулу СМЕЩ(B2;СТРОКА(B2:B27)-2;)? Это принципиально для подсчета? Просто подставить диапазон нельзя? Попробовал диапазон, формула сбилась.

upd. Понял, в т.ч. и связку с суммпроизв, где нужна именно единица для подсчета. Только как она работает в формуле понять не могу

Встала подобная задача с применением фильтра и промежуточных итогов по доп. условию, только надо подсчитать количество результатов, а не сумму. То есть формула суммпроизв не применима (или нужно будет ее допилить условием "если-то-1"?). Пробовал разные варианты, в том числе ввода формулы (=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;вид)*(вид="вес")) массивом, но решения так и не нашел.
В итоге стоит задача совместить в одной ячейке промежуточные итоги, к примеру, по году и весу, или году и приложению