Цикл For next делает только одну итерацию

[jirtreck]

Нужно, чтобы макрос задавал вопросы и давал баллы в зависимости от ответов ( Пока написано только решение, вывода в ячейки с оформлением нет )



Если 0, то спрашивает да-нет, а если 1, то надо заполнить пропуск. Затем макрос сверяется с нужным ответом и в зависимости от этого начисляет баллы из Е. В G1 указано количество вопросов задаваемое пользователем самостоятельно.

При запуске макроса работает только одна итерация цикла, задает самый первый вопрос, и он завершается.
Как это исправить?

Sub Тестирование()
N = Worksheets("Лист2").Range("A1").Offset(1, 6).Value

For i = 0 To N


If Range("A1").Offset(i, 0).Value = 0 Then
If Range("A1").Offset(i, 3).Value = "Нет" Then a = vbNo
If Range("A1").Offset(i, 3).Value = "Да" Then a = vbYes
MsgBox (Worksheets("Лист2").Range("A1").Offset(i, 1).Value)
ans = MsgBox(Worksheets("Лист2").Range("A1").Offset(i, 2).Value, vbYesNo + vbQuestion)
If ans = a Then
ball = ball + Worksheets("Лист2").Range("A1").Offset(i, 4).Value
End If
End If

If Range("A1").Offset(i, 0).Value = 1 Then
a = Range("A1").Offset(i, 3).Value
MsgBox (Range("A1").Offset(i, 1).Value)
ans = InputBox(Range("A1").Offset(i, 2).Value)
If ans = a Then
ball = ball + Worksheets("Лист2").Range("A1").Offset(i, 4)
End If
End If

Next i



End Sub

[Stilet]

А ты проверял что возвращает Worksheets("Лист2").Range("A1").Off set(1, 6).Value?

[jirtreck]

Там должно быть три, если я правильно понимаю работу offset

[jirtreck]

Дошло, тупо получилось, сейчас исправлю и посмотрю

[jirtreck]

Да, спутал i и 1 когда писал код, сейчас все нормально, благодарю за помощь!