Большое спасибо за помощь!!! Немного скорректировал макрос. Все работает как надо.  

да. если фигура не попадает в список проверки (нет в писке объектов) то просто оставьте ее на карте в верхнем левом углу. ну а так все вроде корректно

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

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

Задача по разработке цикла:
1) скопировать номер НД (номер фигуры) и место проведения работы из "Перечень НД" на лист "Ссылка".
2) сравнить место проведения работы с именем объекта (столбец А) по совпадению ключевого слова (GTU, STF, HPF, SPR-600, и т.п.).
3) в случае совпадения, записать номер фигуры в соответствующую ячейку строки объекта (столбец D).
4) переместить фигуру по указанным координатам объекта.
5) скорректировать положение фигуры по оси Y, если к указанному объекту уже перемещена предыдущая фигура.

Файл с макросом во вложении.
За ранее благодарю.

Спасибо. В принципе схема рабочая. Но сначала надо проверить фигуры по ключевому слову (*STF*, *GTU*) в листе "Перечень..." колонка В и сравнить с листом "Ссылка" колонка А. Если есть совпадение - записать имя фигуры в "Ссылка" колонка D в соответствующую строку. Так мы привязываем фигуру к ye;yjve объекту \ месту работы. Если есть пустые строки в колонке D, то игнорируем. Поможете?  

В принципе согласен с вами. макрос писался поэтапно. я пытался вставить привязку фигур к координатам объектов в ранее разработанный цикл (по созданию фигур и заливке), но не нашёл решения как это сделать.  

Добрый вечер.
Прошу очередной помощи по данному файлу \ макросу. В принципе осталось только расставить фигуры на карте по координатам объектов. Сами координаты объектов уже автоматически считаются и записываются в таблицу на листе "Ссылки".

Вижу следующий алгоритм цикла:
1) сравниваем, есть и нет номера фигур на листе "Карта...", с перечнем НД (столбец В). учитываем скрытые строки в перечне.
2) если да, сравниваем в перечне соответствующее место проведения работ (столбец С) с наименованием объектов на листе "Ссылки" в столбце А - по частичному совпадению имени  - например *STF*, *GTU*, *SPR-100*.    
3) если совпадение есть, переносим фигуры на листе "Карты..." по координатам, указанным на листе "Ссылки" в столбцах В,С.
4) при очередном цикле, если фигура уже перенесена, делаем отступ по Y

Прошу помочь. Файл во вложении.
За ранее благодарю.  

спс

Всем доброго дня. Прошу скорректировать код.
Есть книга, в ней 20 листов. 16 из них начинаются на "Карта .....". Необходимо скрыть их и вызывать нужный по команде.
Где у меня ошибка в коде?
 

Огромное спасибо! Все работает. Только i=1 поправил для начала цикла.

Добрый вечер. Порошу ещё раз помочь и посоветовать как скорректировать макрос.
Дело в том, что я не учёл фильтрацию перечня НД. Макрос прекрасно работает с фиксированной таблицей. Но если её отфильтровать по условию (скрыть строки), то он все равно создаёт все фигуры, а не отфильтрованные.

Разобрался как найти первую активную строку (после первых скрытых от шапки перечня). Но как создать цикл для дальнейшего создания только отфильтрованных фигур и их заливки, у меня не получается.

Прошу помочь. Файл во вложении.
За ранее благодарю.    

Большое СПАСИБО!!! все заработало!!! и разделение на 2 макроса не надо.

Разделил выполнение задачи на 2 макроса, как было предложено.
Ошибка больше не появляется, но и обновление заливки фигур не происходит.  

Применил ваш алгоритм.

1) в файле Заливка3... все работает!!

2) в файле Привязка НД карте... макрос выдаёт ошибку - Индекс указанного набора выходит за допустимые пределы.

'    Dim j As Long, a As Variant
'    
'    With Sheets("Перечень НД")
'         For j = 21 To lLastRow
'               a = .Cells(j, .DisplayFormat.Interior.Color
'               Sheets("Карта БС").Shapes(.Cells(j, 2).Value).Fill.ForeColor.RGB = a
'         Next
'    End With
   
   
Поэтому не совсем понимаю где ошибка.

спасибо за комментарий.

В файле "Закраска2.xlsm" макросы (Private Sub и Sub) как раз и работают. А вот в файле "Привязка НД карте - черновик.xlsm" тот же макрос Private Sub выдаёт ошибку. Думаю проблема именно в создании фигур - в первом файле (Закраска2...)  они уже созданы на карте, в во втором (Привязка...) я их создаю макросом Sub.

И мне нужен плавающий Range в столбце Н перечня НД, т.к. перечень постоянно обновляется и изменяется. Так что фиксированный перебор i от 21 до 34 не подходит. Но я эту задачу решил.

Попробую применить ваш алгоритм цикла For....

Всем добрый вечер. Прошу помощи в корректировке макроса.
Задача:
Есть перечень наряд-допусков, которые необходимо визуализировать на карте объекта. В перечне указаны №НД (колонка В) и тип НД (колонка Н). Необходимо создать фигуры (овал) на карте, привязать их к №НД и залить соответствующим цветом по условному форматированию типа НД.
Проблема:
Как создать фигуры и привязать их к №НД я разобрался. Прошу помочь с цветовой заливкой.
На примере (взятом с этого форума) у меня все работает - Закраска2.xlsm.
А вот с моей задачей зашёл в тупик.
За ранее благодарю.