Спасибо. Спасибо за направление. я так и хочу: Умные головы помогите сделать один ползунок на "Обновить всё" все листы в одном флаконе. Только мозгов не хватает как!!! Буду копать дальше широкие просторы.

Добрый день. Нужна помощь.
Есть книга, в ней несколько листов.
Главный куда всё вносится "KROSS" 1500 строк.
Остальные (PLK_100, PLK_200, PLK_300 тд по 400 строк) забирают с него. Много формул.
При любом изменении на листе "тормоза".Чтобы не тормозил перевел пересчет через макросы.
Не гуру, все брал из интернета и допиливал под себя.

Кнопки обновить лист вызывают макрос, работают. При "Обновить всё" ощущение, что всё зависло.
Обновляется секунд 40-50.
Сделал (нашел) userform. Показывает ползунок выполнения. Сделал только на 3 листа.


Умные головы помогите сделать один ползунок на "Обновить всё" все листы в одном флаконе.
или любое решение показывающее ход выполнения всех макросов.
Пример прилагаю. Всем заранее спасибо.

прикрепить не получилось слишком болльшой. вот ссылка

https://disk.yandex.ru/d/kZsYxox2vlib_Q

Спасибо за помощь. Сам не допер. Тоже работает, только заливку заменил белым цветом шрифта. Респект грамотным людям!!!!

Спасибо огромное, всё заработало. тормозов стало намного меньше

Всем доброго времени суток!
Вопрос к условному форматированию?
ИСКЛЮЧИТЬ ИЗ УФ знак " / "
Есть столбцы (K,J,N т.д. всего 11) с формулами типа   =СЦЕПИТЬ(C31; "/"; D31) в диапазоне строк в каждом =$8:$2000 в которых нужно подсвечивать повторяющиеся значения, это все работает. Но все портят пустые ячейки и в глазах рябит.
Есть ли соображения как исключить из подсветки знак " / " если C и D оказались пустыми и в ячейке получилось " / " , а их много.
" / " эти знаки становятся условно сформатированными и светятся.
Удалять нельзя, формула удаляется. На просторах не нашел, =И($Y41=0;$Y41<>"/") это тоже не работает.

Решил задачу выносом в правый столбец, + формула =ЕСЛИ(СЧЁТЕСЛИ($K$8:$K$2004;ЕСЛИ(СЦЕПИТЬ($E8;"/";$F8)="/";1;СЦЕПИТЬ($E8;"/";$F8)))>1;1;0)
В примере понятнее. Но файл ужасно тормозит при любом изменении, там еще листов 25 с формулами и макросами.
хочу убрать все длинные формулы, потом макросом заменять на значения, но  форматирование победить не хватает знаний. Подскажите люди грамотные. Спасибо заранее.

Долго бился, для таких как я, первая сточка должна  выглядеть так:

Public Function GetAbbr(Sorce As String) As String

Автору спасибо, все работает.

Добрый день. Огромное спасибо. Все работает как и хотел. Удачи Вам в ваших делах и по жизни в целом !!!!!

Доброго времени суток.
Не хватает интеллекта, прошу помощи

Смысл: 2 таблицы,
(цифры (1,2,3,7,28...) и буквы (а,б,в,р,г,) для понимания)
1я 11 столбцов 46 строк - заполнены чётные (1,2,3,7,28...) значения уникальные
2я 23 столбца 46 строк - заполнены НЕ чётные. (а,б,в,р,г, рд, вг, дд,) значения уникальные
из 1й вставляем значение (допустим -15) в любую свободную ячейку  2й таблицы (над допустим "вг") ,
далее ячейка 1й таблицы строкой ниже, под значением 15 идет в таблицу 2, находит 15, видит строкой ниже "вг" и забирает его
=ИНДЕКС($O$5:$AJ$46;ПОИСКПОЗ($H$21;$R$5:$R$46;0)+1;4) не подходит. или я что то делаю не так

это к примеру
Значение 63-ХХХ брать из СЛ АТС (C21:L46), вбиваем ручками в любое место диапазона O5:AJ46, искать  справа за серым столбцом в "ПАНЕЛЬ 1, 2, 3,... (O5:AJ46),
при совпадении вставлять значение из ячейки под совпавшей в ячейку под ячейкой которую искали