Вложенные циклы, окрашивание ячеек

[Bape}l{ka]

Народ, помогите плз разобраться, т.к. я совсем еще начинающая
Есть база данных с 2-мя связанными вопросами (в вопросах по несколько колонок).
Надо проверить правильность заполнения (типа, если в В.1 стоит 0, то и в В.2 тоже должен быть 0) построчно + чтобы измененные ячейки окрасились в красный
Написан следующий цикл:

Option Explicit

Sub CheckQ4()
'
' Провекра В.4 на связь с В.5
'
' Обявление переменных
Dim j As Integer ' строка
Dim i As Integer ' столбец
'Dim l As Integer ' длинна таблицы
'Dim SumPokup As Integer ' сумма по покупкам


For i = 39 To 44
For j = 3 To 814
If Cells(j, i) <> 0 And Cells(j, i - 6) = 0 Then
With Cells(j, i - 6)
.Value = 1
.Pattern = xlSolid РУГАЕТСЯ ЗДЕСЬ
.PatternColorIndex = xlAutomatic
.Color = 255 ' красный
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Cells(j, i) = 0 And Cells(j, i - 6) = 1 Then
With Cells(j, i - 6)
.Value = 0
.Pattern = xlSolid И ЗДЕСЬ СООТВЕТСТВЕННО
.PatternColorIndex = xlAutomatic
.Color = 255 ' красный
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next j
Next i

End Sub


Вроде все исправляет, толко окрашивать не окрашивает

[Bape}l{ka]

вышла тз положения тем, что назначила ячейку, в которой можно задать цвет для будущего окрашивания..
тем не менее, не понятно, почему не работает автоматическое окрашивание при выполнении условия

[R Dmitry]

Сообщение от Bape}l{ka

вышла тз положения тем, что назначила ячейку, в которой можно задать цвет для будущего окрашивания..
тем не менее, не понятно, почему не работает автоматическое окрашивание при выполнении условия

достаточно и такой строки

With Cells(j, i - 6)
.Value = 0
.Interior.Color = 255
End With

а ругается из за того что вы пропустили объект
.Interior

[Bape}l{ka]

спасибо большое, я вобщем потом так и подумала, но править уж не стала)))