Повторное открытие сообщений

[segail]

Здравствуйте.
Подскажите, почему после выбора действия в сообщение 2 вновь появляется сообщение 1?
Если точней, открывается первое сообщение, после закрытия открывается второе сообщение, после выбора НЕТ опять открывается первое сообщение, после закрытия первого сообщения, открывается опять второе сообщение.

    If a = 1 Or a=2 Then ' Основное условие
        If b = 1 Or b=2 Or b=3 Then ' Условие
            c = 1
            MsgBox "1" Сообщение1
                If MsgBox("2", vbYesNo + vbExclamation) = vbYes Then 'Сообщение2 ДА НЕТ
                    d = 1
                End If
        End If
    End If

[doober]

вы не весь код показали,где - то должен быть цикл

[segail]

Опять не точно?

    If a = 1 Or j=1 Then ' Основное условие
        If b >0 Or r>0 Or g>0 Then ' Условие
            MsgBox "1" Сообщение1
                If MsgBox("2", vbYesNo + vbExclamation) = vbYes Then 'Сообщение2 ДА НЕТ
                    b=0: r=0: g=0
                End If
        End If
    End If

[doober]

Не знаю.не знаю.У меня по одному разу открылись.может у вас код перешел в режим вечного двигателя.или я чего то не понял

[segail]

Код тот же самый, который был в предыдущей теме.
В условие показано три проверки If b >0 Or r>0 Or g>0 Then
По идеи их 12, если в проверяемых значений больше нуля пять значений и больше, то тогда идет повторное открытие сообщений.

Public Sub Test()
    Dim i As Integer
    For i = 1 To 450
        With Sheets("Отчет")
            If Form_SelectDate.ComboBox_Month = CStr(.Cells(i, 27).Text) Or UserForm4.ComboBox1 = CStr(.Cells(i, 27).Text) Then
                If .Cells(i + 35, 21).Value > 0 Or .Cells(i + 72, 21).Value > 0 _
                Or .Cells(i + 109, 21).Value > 0 Or .Cells(i + 146, 21).Value > 0 _
                Or .Cells(i + 183, 21).Value > 0 Or .Cells(i + 220, 21).Value > 0 _
                Or .Cells(i + 257, 21).Value > 0 Or .Cells(i + 294, 21).Value > 0 _
                Or .Cells(i + 331, 21).Value > 0 Or .Cells(i + 368, 21).Value > 0 _
                Or .Cells(i + 405, 21).Value > 0 Or .Cells(i + 442, 21).Value > 0 Then
                    MsgBox "!!!", 16, "!!!"
                        If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "", vbYesNo + vbExclamation, " Информационное сообщение") = vbYes Then
                            .Cells(i + 35, 21).Value = 0: .Cells(i + 72, 21).Value = 0:
                            .Cells(i + 109, 21).Value = 0: .Cells(i + 146, 21).Value = 0:
                            .Cells(i + 183, 21).Value = 0: .Cells(i + 220, 21).Value = 0:
                            .Cells(i + 257, 21).Value = 0: .Cells(i + 294, 21).Value = 0:
                            .Cells(i + 331, 21).Value = 0: .Cells(i + 368, 21).Value = 0:
                            .Cells(i + 405, 21).Value = 0: .Cells(i + 442, 21).Value = 0:
                        End If
                End If
            End If
        End With
    Next
End Sub

[doober]

вы не весь код показали,где - то должен быть цикл

Опять не точно?

Я угадал.
Насколько понял,вы хотите очистить ячейки.если в определенном наборе есть значения
Если там нет ничего,должно быть пусто.если есть что то.должно быть пусто.выделенное красным можно исключить.А на удаление поставить только одно сообщение.удалить Да Нет.Иначе мозоль на пальце будет.Правильно мыслю?
Код конечно надо переделать

Public Sub Test()
    Dim i As Integer
    For i = 1 To 450
        With Sheets("Отчет")
            If Form_SelectDate.ComboBox_Month = CStr(.Cells(i, 27).Text) Or UserForm4.ComboBox1 = CStr(.Cells(i, 27).Text) Then
                If .Cells(i + 35, 21).Value > 0 Or .Cells(i + 72, 21).Value > 0 _
                Or .Cells(i + 109, 21).Value > 0 Or .Cells(i + 146, 21).Value > 0 _
                Or .Cells(i + 183, 21).Value > 0 Or .Cells(i + 220, 21).Value > 0 _
                Or .Cells(i + 257, 21).Value > 0 Or .Cells(i + 294, 21).Value > 0 _
                Or .Cells(i + 331, 21).Value > 0 Or .Cells(i + 368, 21).Value > 0 _
                Or .Cells(i + 405, 21).Value > 0 Or .Cells(i + 442, 21).Value > 0 Then
                    MsgBox "!!!", 16, "!!!"
                        If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "", vbYesNo + vbExclamation, " Информационное сообщение") = vbYes Then
                           .Cells(i + 35, 21).Value = 0: .Cells(i + 72, 21).Value = 0:
                          .Cells(i + 109, 21).Value = 0: .Cells(i + 146, 21).Value = 0:
                          .Cells(i + 183, 21).Value = 0: .Cells(i + 220, 21).Value = 0:
                          .Cells(i + 257, 21).Value = 0: .Cells(i + 294, 21).Value = 0:
                          .Cells(i + 331, 21).Value = 0: .Cells(i + 368, 21).Value = 0:
                          .Cells(i + 405, 21).Value = 0: .Cells(i + 442, 21).Value = 0:
                        End If
                End If
            End If
        End With
    Next
End Sub

[segail]

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

[doober]

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

[segail]

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

Я думаю так.это все перестраховка.

Вы правы

Очистить ячейки это крайний случай. Поэтому идут несколько сообщений, первое сообщение нарушение параметра, и второе сообщение с инструкцией, что будет, если будет нарушен параметр, но все таки пользователю дается шанс нарушить параметр, в последствие которого он будет долго и трудоемко исправлять ошибки. По этому, здесь акцент делается на два сообщение, одно грозное, второе с инструкцией. Будет еще дополнение, если во всех ячейках нули, то выполнится дополнительный код без сообщений, перед красным End If будет стоять Else