Аналогично странно и неправильно ведет себя макрос

[strannick]

Доброй ночи, уважаемые форумчане! Второй раз за последние семь дней сталкиваюсь с неправильной работой кода. Суть в чем. Есть табличка, куда заносятся данные пассажиров. Есть юзерформа, с помощью которой хочу переносить пассажира из каюты в каюту. Юзерформа из двух полей - Откуда и Куда. В поле Куда при выборе в комбобоксе номера каюты в текстбоксах должны отображаться фамилии пассажиров если есть или чистые поля если нету. Проблема как раз с отображением. При такой структуре таблицы и вот таком коде:

Private Sub ComboBox4_Change()
Dim sh As Worksheet
    Set sh = Sheets("База")
For j = 11 To 29

If ComboBox4.text = sh.Cells(j, 10).Value And sh.Cells(j + 3, 12).Value = 4 Then
    TextBox2 = sh.Cells(j, 2).Value
    TextBox3 = sh.Cells(j + 1, 2).Value
    TextBox4 = sh.Cells(j + 2, 2).Value
    TextBox5 = sh.Cells(j + 3, 2).Value
ElseIf ComboBox4.text = sh.Cells(j, 10).Value And sh.Cells(j + 3, 12).Value <> 4 Then
    TextBox2 = sh.Cells(j, 2).Value
    TextBox3 = sh.Cells(j + 1, 2).Value
    TextBox4 = sh.Cells(j + 2, 2).Value
    TextBox5 = "Не предусмотрен"
Exit For
End If
Next

End Sub

выбираю первую каюту под номером 4. Но в текстбоксах под пассажиром номер 1 отображается пассажир 2 конкретно Иванов. То есть, если j - 11-я строка, то TextBox2 должен отображать значение ячейки В11, а отображается В12. И так для всех четырехместных кают. Для трехместных же все в порядке. Либо я затупил по крупному, либо на фоне предыдущих мытарств можно уже подумать, что что-то не так с Excel'ем.
Посмотрите, пожалуйста, и выдайте мне вердикт. Все во вложении.
Заранее спасибо!

[VictorM]

Не понял правда для чего тут for и next
поменял местами условия if, вроде нормально сработало

Private Sub ComboBox4_Change()
Dim sh As Worksheet
    Set sh = Sheets("База")
For j = 11 To 29
If ComboBox4.Text = sh.Cells(j, 10).Value And sh.Cells(j + 3, 12).Value <> 4 Then
    TextBox2 = sh.Cells(j, 2).Value
    TextBox3 = sh.Cells(j + 1, 2).Value
    TextBox4 = sh.Cells(j + 2, 2).Value
    TextBox5 = "Не предусмотрен"
ElseIf ComboBox4.Text = sh.Cells(j, 10).Value And sh.Cells(j + 3, 12).Value = 4 Then
    TextBox2 = sh.Cells(j, 2).Value
    TextBox3 = sh.Cells(j + 1, 2).Value
    TextBox4 = sh.Cells(j + 2, 2).Value
    TextBox5 = sh.Cells(j + 3, 2).Value
Exit For
End If
Next

End Sub

в Вашем коде, при пошаговом выполнении, при выборе 4 - код проходит 2 раза, т.е. выполняется if (правильно) , но затем возвращается и выполгяет условие elseif (уже неправильно)
что-то Вы тут намудрили, проверяйте.

[strannick]

Понял, сейчас гляну. Дело в том, что в практически аналогичном случае (в другой форме, куда выводятся также данные пассажиров) при таком же коде все срабатывает нормально. А тут почему-то нет. Поэтому Буду копаться. Спасибо за подсказку.

[VictorM]

Дело в том, что в практически аналогичном случае (в другой форме, куда выводятся также данные пассажиров) при таком же коде все срабатывает нормально. А тут почему-то нет.

да уж...
Напомнило анекдот про "аналогичный случай"

[strannick]

Анекдот такой не знаю))) А с макросом порядок. При перестановке условий работает как надо. Спасибо! Но, в общем-то, причина не ясна.