Перестать выполнять вложенный цикл если условие истинно

[n1l]

В общем есть код

For k = 4 To x
  lTarif(k) = Sheets("реестр").Cells(k, 19).Value
  lPod(k) = Sheets("реестр").Cells(k, 3).Value
    For f = 3 To y
      For h = 4 To z
      '==================================================
      '==== условие проверки на тариф по умолчанию ======
      '==================================================
        If Sheets("реестр").Cells(h, 19).Value = Empty Then
          If lPod(k) = PodArray(f) Then
             Sheets("реестр").Cells(k, 14).Value = matrix(f, 4)
          End If
      '==========================================
      '==== Если указан код тарифа в листе ======
      '==========================================
        Else
          If (lPod(k) = PodArray(f)) And (lTarif(k) = Sheets("реестр").Cells(h, 19).Value) Then
           Sheets("реестр").Cells(k, 14).Value = matrix(f, h)
          End If
        End If
        
      Next
    Next
  Next

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

PS
кому нужен файл во вложении, знайте он там.

[Казанский]

exit for '

[n1l]

Я имел ввиду, как объяснить ему что хватит? Что то типа if true then...
как это сделать?

[n1l]

Дополнительное условие типа...

[IgorGO]

во внутреннм цикле:
если ПОЛУЧИЛОСЬ then Time2Exit = true: exit for

во внешнем цикле:
if Time2Exit then exit for

[Казанский]

Если нужно выйти из всех циклов по условию, проверяемому во внутреннем цикле, можно использовать GoTo:

for i=1 to 3
  for j=5 to 8
    for each x in MyArray
      if SomeCondition then goto ExitAllLoops
    next
  next
next
ExitAllLoops:

Для идеологических противников Goto такой вариант:

Do
  for i=1 to 3
    for j=5 to 8
      for each x in MyArray
        if SomeCondition then exit do
      next
    next
  next
Loop until true

[slan]

Do
for i=1 to 3
for j=5 to 8
for each x in MyArray
if SomeCondition then exit do
next
next
next
Loop until true

эт хорошо. до такого не додумывался..

но и не идеолог..

[Казанский]

Слэн,
я не сам додумался, подсказали
http://forum.ixbt.com/topic.cgi?id=23:31044

[slan]

все равно респект, ибо там-то это было вообще ни к чему..
а здесь в самый раз

хотя goto все же мне больше нравится