цикл по строкам

[Morozeckiy]

Товарищи, как продлить цикл по строкам.
Есть такой:

For i = 2 To 62 Step 2
        k = i + 1
        If Cells(i, 2) = "" Then
        ElseIf Cells(i, 2) <> Cells(k, 3) - Cells(k, 2) Then
        Cells(i, 2).Interior.Color = 5263615
        End If
        Next i

он пробегает мне один столбец до 62 строки. столбцов таких где то 40, шаг тоже 2. У меня в голове возникает, что то такое

For i = 2 To 62 Step 2
          For h = 2 To 40 Step 2

        k = i + 1
        If Cells(i, h) = "" Then
        ElseIf Cells(i, h) <> Cells(k, h) - Cells(k, h) Then
        Cells(i, h).Interior.Color = 5263615
        End If
        Next i 
Next h 'бред?

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

[Aleksandr H.]

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

Но что то кажется он по диагонали пойдет или вообще не будет работать.

А попробовать и самому посмотреть как он пройдет с 2 до 40 столбца с шагом 2, потом перейдет на следующую строку и опять пойдет по столбцам?

[Morozeckiy]

Сообщение от Aleksandr H.

А попробовать и самому посмотреть как он пройдет с 2 до 40 столбца с шагом 2, потом перейдет на следующую строку и опять пойдет по столбцам?

invalid Next

[Morozeckiy]

Мне приходит в голову добавить
h=i+2, но тогда я в первом столбце буду сверять данные из второго и т.д.

[Aleksandr H.]

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

invalid Next

верно. NEXT относится к ближайшему FOR

FOR I.....
   for h....
   next h
NEXT I

А может задание озвучишь? или оно "продлить цикл по строкам"?

[Morozeckiy]

Сообщение от Aleksandr H.

верно. NEXT относится к ближайшему FOR

FOR I.....
   for h....
   next h
NEXT I

А может задание озвучишь? или оно "продлить цикл по строкам"?

Конечно, это что то вроде графика, надо проверить соответствие отработанных часов, с периодом.
есть список людей по столбцам, далее идут строки по отработанным дням. По одному человеку сверяю, но дальше придется увеличить код на 40 чел одни и тем же циклом, а так можно и сбиться в номере столбца.
1 сен 2
с 12 до 14
все упрощено до цифр() во вложении
Нужно пробежаться и сверить верен ли период отработанным часам.

[Morozeckiy]

Сообщение от Aleksandr H.

верно. NEXT относится к ближайшему FOR

FOR I.....
   for h....
   next h
NEXT I

А может задание озвучишь? или оно "продлить цикл по строкам"?

 For i = 2 To 62 Step 2
                For h = 2 To 40 Step 2
                k = i + 1
                j = h + 1
                If Cells(i, h) <> Cells(k, j) - Cells(k, h) Then
                Cells(i, h).Interior.Color = 5263615
                Next h
            End If
        Next i

так выдает next withot for. Нужно условие между For?

[Aleksandr H.]

 For i = 2 To 62 Step 2
                For h = 2 To 40 Step 2
                    k = i + 1
                    j = h + 1
                    If Cells(i, h) <> Cells(k, j) - Cells(k, h) Then
                        Cells(i, h).Interior.Color = 5263615
                    End IF
                Next h
        Next i

[Morozeckiy]

Сообщение от Aleksandr H.

 For i = 2 To 62 Step 2
                For h = 2 To 40 Step 2
                    k = i + 1
                    j = h + 1
                    If Cells(i, h) <> Cells(k, j) - Cells(k, h) Then
                        Cells(i, h).Interior.Color = 5263615
                    End IF
                Next h
        Next i

Благодарю, ща попробую

[Aleksandr H.]

Cells(i, h) <> Cells(k, j) - Cells(k, h)

Что за условие, когда надо закрашивать ячейку?