Как сравнить цвет ячейки?
Аноним
Мне нужно скопировать содержимое строчек одного листа,
при условии, что цвет ячейки -черный(ColorIndex=0)
на другой лист. Но ничего не происходит, и ошибки не возникает,
т.е., я так понимаю, что он не может понять условие?
Вот код программы.
Private Sub Добавление_нов_орг()
For i = 1 To 200
If (Sheets("Лист1").Cells(i, 2).Font.ColorIndex = 0) Then
Sheets("Лист2").Cells(2, 1).EntireRow.Insert
Sheets("Лист2").Cells(2, 2).Value = Sheets("Лист1").Cells(i, 2).Value
End If
Next i
End Sub