Добрый день, просьба помочь что не так? выбивает ошибку в
Код
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
[U]ActiveSheet.Shapes.Range(Array(m)).Select[/U]
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
.Transparency = 0
.Solid
End With
Next i
End Sub
И Вам здравствуйте! Код следует оформлять соответствующим тегом: ищите такую кнопку и исправьте своё сообщение. И зайдите в свой профиль и поменяйте отображаемое имя (логин).
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
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.