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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Авт. отрисовка карты полей изм. цвета полилинии. (Макросы/Sub)

BGO31rus

Дата: Понедельник, 04.06.2018, 19:53 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день, просьба помочь что не так? выбивает ошибку в

[vba]

Код

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

[/vba]

ссылка удалена ссылка на файл

Сообщение отредактировал Pelena - Понедельник, 04.06.2018, 20:38

Ответить

Pelena

Дата: Понедельник, 04.06.2018, 20:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19177

Репутация: 4417 ±

Замечаний: ±

Excel 365 & Mac Excel

BGO31rus, внешние ссылки на файлы на форуме запрещены
Удалите скрытые листы, обрежьте карту и приложите файл сюда.

Чтобы не выбивало ошибку можно добавить ON ERROR RESUME NEXT в начале макроса

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816