Выбрать дату в календареВыбрать дату в календаре

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

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

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

    For Each Worksheet In ActiveWorkbook.Sheets
        If Worksheet.Name = "Карта" & "*" Then Worksheet.Visible = xlHidden
    Next
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
        
    Sheets("Карта БС").Visible = True
    
 
Создание фигур и их цветовая заливка по условиям, Создание фигур из перечня, нанесение на карту и их заливка цветом по условному форматированию
 
Всем добрый вечер. Прошу помощи в корректировке макроса.
Задача:
Есть перечень наряд-допусков, которые необходимо визуализировать на карте объекта. В перечне указаны №НД (колонка В) и тип НД (колонка Н). Необходимо создать фигуры (овал) на карте, привязать их к №НД и залить соответствующим цветом по условному форматированию типа НД.
Проблема:
Как создать фигуры и привязать их к №НД я разобрался. Прошу помочь с цветовой заливкой.
На примере (взятом с этого форума) у меня все работает - Закраска2.xlsm.
А вот с моей задачей зашёл в тупик.
За ранее благодарю.
Страницы: 1
Наверх