Next i

Function óñëîâèå4á(Diapozon As Range) As Long
'äëÿ ñèòóàöèè
Application.Volatile
Dim k As Long, n As Long, i As Long, m As Long
Dim C As Range

k = -2
n = 0
m = 0
For i = Diapozon.Rows.Count To 1 Step -1
Set C = Diapozon.Rows(i)



     If (C.Offset(0, -3).Value <> &#203;&#206;&#198;&#220; Or C.Offset(0, -4).Value = &#203;&#206;&#198;&#220; Or C.Offset(0, -6).Value <> &#203;&#206;&#198;&#220; Or C.Offset(0, -7).Value <> &#203;&#206;&#198;&#220; Or C.Value = 0) And k = -2 Then
        n = 0
        Exit For
     End If
     
     If k = -2 Then
        k = 0
        GoTo Label1
     End If
     
     If C.Offset(0, -6).Value <> &#203;&#206;&#198;&#220; Then
        GoTo Label1
     End If
     
     If C.Offset(0, -7).Value <> &#203;&#206;&#198;&#220; Then
        GoTo Label1
     End If
     
      If C.Offset(0, -5).Value = 0 Then
        GoTo Label1
     End If
         
      
      If C.Value = 0 Then
        GoTo Label1
     End If
     
     If C.Offset(0, -5).Value = 1 Then
           If C.Value = 2 Then
             n = 1
           Exit For
        Else
           n = 0
        Exit For
     End If
     
     
Label1:
     
 Next i

&#243;&#241;&#235;&#238;&#226;&#232;&#229;4&#225; = n
End Function