Перенос данніх в зависимости от цвета ячейки

[gavrylyuk]

Добрый день. Помогите пожалуйста с кодом
If Cells(i, "B").Interior.ColorIndex = xlNone Then
Cells(i, "M") = Cells(i, "M") + Cells(n, "N")
Если ячейка B не окрашена то в нее нужно перенести значения, а если окрашена, то пропустить. Как правильно исправить код?
Спасибо

[Serge_Bliznykov]

вроде всё верно....
может там есть окрас - только белый цвет (посмотрите на нужных ячейках - формат ячейки - Вид - цвет...)
или цикл не там крутите...
пройдитесь в отладке...

[gavrylyuk]

У меня на єтих ячейках стоит условное автоформатирование. А так на них заливки нет. Как в этом случае поступить?

[valerij]

Сообщение от gavrylyuk

Добрый день. Помогите пожалуйста с кодом
If Cells(i, "B").Interior.ColorIndex = xlNone Then
Cells(i, "M") = Cells(i, "M") + Cells(n, "N")
Если ячейка B не окрашена то в нее нужно перенести значения, а если окрашена, то пропустить. Как правильно исправить код?
Спасибо

У меня все работает

Sub zxc()
If Cells(20, "B").Interior.ColorIndex = xlNone Then
Cells(20, "M") = Cells(20, "M") + Cells(30, "N")
End If
End Sub

Но хочу отметить, что заливка белым цветом, то же воспринимается, как заливка

[IgorGO]

проверять ...Interior.ColorIndex, если ячека закрашена условным форматированием - бессмысленно. Условное форматирование, не влияет на свойство ...Interior.ColorIndex.
В качестве проверки (закрашено/незакрашено) лучше проверить значение в ячейке по тем же критериям, которые записанным в условном форматировании.

[gavrylyuk]

У меня там в зависимости от дня недели цвет, если выходные, то красный. Как это пропимать подскажите пожалуйста!

[gavrylyuk]

Я пробовал
If Cells(i, "B").FormatConditions.Formula1 = _
"=weekday(i,2)" <= 5 Then

Выдает ошибку, незнаю даже как правильно

[IgorGO]

If weekday(Cells(i, "B"), vbMonday) < 6 then... значит рабочий день

[gavrylyuk]

Спасибо!!!