Коллеги, посоветуйте способ анализа цен коммерческих предложений от нескольких компаний.
Иногда приходится выделять и вставлять формат по 200 строк

Коллеги, всем доброго дня!
Запуск формирования сводной таблицы_АП_1.xlsm и Запуск формирования сводной таблицы_АП_2.xlsm по не известной мне причине перестали формировать сводную.
Запуск формирования сводной таблицы.xlsm работает без сбоев. С руководителем остановились на этом варианте.

Всем большое спасибо за помощь!!!

Так точно.

andypetr, добрый день!
"Всё нормально, не сильно пока устал. " Благодарю!
В свое время, я в уроке Николая подсмотрел формулу на переход в папку =ГИПЕРССЫЛКА("V:\Служба Эксплуатации\Инженеры МуМу\Общая Папка Инженеры МуМу\1 Отдел ВиК\Бабаев А\2 Снабжение\"&Снабжение!$B3;">>>>>") и макрос который создает папки по адресу расположения файла Автоматизация процессов снабжения и учета_1.XLSM.
Таблицу Автоматизация процессов снабжения и учета_1.XLSM ведут три сотрудника в связи с чем возник вопрос о создании одной сводной.
В Запуск формирования сводной таблицы_АП.xlsm  создает адрес расположения папки и в принципе этого достаточно за исключением, что они по умолчанию залезают в столбец I смотри  IMG-20240227-WA0010.jpg.
Если есть возможность сделать так чтобы ссылки ровнялись по левому краю смотри IMG-20240227-WA0011.jpg и этого будет пока достаточно

andypetr, добрый день!
Честно говоря уже не удобно Вас просить.
Надеюсь, что это последняя просьба.
Если возможно измените пожалуйста форматирование ссылок в столбце J.
Заранее благодарю!

andypetr, добрый день!
Честно говоря уже не удобно Вас просить.
Надеюсь, что это последняя просьба.
Если возможно измените пожалуйста форматирование ссылок в столбце J.
Заранее благодарю!

Уважаемые, Chegga, andypetr, доброго Вам времени суток!
В принципе меня и мое руководство устроил "запуск3" за, что я вам очень благодарен!
Если не сложно, прошу добавить возможность создания рабочих ссылок "Ссылка в папку"
Заранее благодарю!!!

andypetr, доброго Вам времени суток!
Все работает как часы кроме ссылок в папки но это, я думаю, что мы переживем.
Спасибо Вам за помощь!

andypetr, добрый вечер!
Благодарю за отклик!
К сожалению с предупреждением ушли и данные из ячеек.
Не могу понять в чем дело? На домашнем компьютере все работает идеально, а на работе хромает(((
Единственное, что я меняю это:
Else
       eRow = Workbooks(Dir(arr(i))).Worksheets("Снабжение").Cells(Rows.Count, 1).End(xlUp).Row
           Workbooks(Dir(arr(i))).Worksheets("Снабжение").Range("A2:J" & eRow).Copy                            ("A2:J" & eRow) на ("A3:K" & eRow)
           Workbooks(NameBook & ".xlsx").Worksheets("Сводная Таблица").Activate
       eRow = Workbooks(NameBook & ".xlsx").Worksheets("Сводная Таблица").Cells(Rows.Count, 1).End(xlUp).Row
           Range("A" & eRow + 1).Select: ActiveSheet.Paste

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

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

Пример таблицы во вложении.

Заранее благодарю!