VBA Авт. отрисовка карты полей изм. цвета полилинии.

[BGO31rus]

Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
y = Sheets("Карта").Cells(3, 23).Value
For c = 3 To 15
If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
col = c
Else
End If
Next c
ActiveSheet.Shapes.Range(Array(m)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
        .Transparency = 0
        .Solid
    End With

Next i
End Sub

https://yadi.sk/d/FE3b5XSm3X5Tvi ссылка на файл

[pme]

Привет!
Готовый код ждёт Вас = видео