If Bz.Range("D" & i) = Os.Range("E3") Then If MsgBox ("!!!", vbOKCancel) = vbOk then i = i + 1 Bz.Range("A" & i) = Os.Range("B3") Else Exit sub End if End if
[/vba] [p.s.]Не проверяла[/p.s.]
Kinder, попробуйте так [vba]
Код
If Bz.Range("D" & i) = Os.Range("E3") Then If MsgBox ("!!!", vbOKCancel) = vbOk then i = i + 1 Bz.Range("A" & i) = Os.Range("B3") Else Exit sub End if End if
Спасибо большое за ответ!!! Ваш код игнорирует 1-е условие, то есть если <>. Да и я как всегда некорректно объяснил)) В моем коде, если 1-е условие ложь, выполняется Else. Если ИСТИНА то выходит сообщение. Как сделать чтоб при нажатии vbOk все равно выполнилось Else. В первоначальном коде было просто MsgBox "!!!" Я попробовал добавить кнопки. Но не смог привязать кнопки к условию. Постоянно выдает всякие ошибки. Спасибо.
Спасибо большое за ответ!!! Ваш код игнорирует 1-е условие, то есть если <>. Да и я как всегда некорректно объяснил)) В моем коде, если 1-е условие ложь, выполняется Else. Если ИСТИНА то выходит сообщение. Как сделать чтоб при нажатии vbOk все равно выполнилось Else. В первоначальном коде было просто MsgBox "!!!" Я попробовал добавить кнопки. Но не смог привязать кнопки к условию. Постоянно выдает всякие ошибки. Спасибо.Kinder
формирует список условий по вашему выбору. Manyasha, код для обработки привела. Так почему вы это условие проверяете в другом месте? Там оно никогда не выполнится.
формирует список условий по вашему выбору. Manyasha, код для обработки привела. Так почему вы это условие проверяете в другом месте? Там оно никогда не выполнится.RAN
Благодарю за ответ. Не совсем понял что вы имеете в виду RAN.
MsgBox "!!!", vbOKCancel формирует список условий по вашему выбору. Так почему вы это условие проверяете в другом месте? Там оно никогда не выполнится.
Благодарю за ответ. Не совсем понял что вы имеете в виду RAN.
MsgBox "!!!", vbOKCancel формирует список условий по вашему выбору. Так почему вы это условие проверяете в другом месте? Там оно никогда не выполнится.Kinder
If Bz.Range("D" & i) = Os.Range("E3") Then MsgBox "!!!", vbOKCancel
Else i = i + 1 Bz.Range("A" & i) = Os.Range("B3") End if
[/vba] после MsgBox "!!!", vbOkCancel дописать If MsgBox ("!!!" vbOkCancel) = vbOk Then, то получается что создается второй MsgBox. Можно ли в операторе как то указать что это тот же самый MsgBox. Хотел попробовать через переменную но не смог. Спасибо.
Еще 1 вопрос. Если в коде: [vba]
Код
If Bz.Range("D" & i) = Os.Range("E3") Then MsgBox "!!!", vbOKCancel
Else i = i + 1 Bz.Range("A" & i) = Os.Range("B3") End if
[/vba] после MsgBox "!!!", vbOkCancel дописать If MsgBox ("!!!" vbOkCancel) = vbOk Then, то получается что создается второй MsgBox. Можно ли в операторе как то указать что это тот же самый MsgBox. Хотел попробовать через переменную но не смог. Спасибо.Kinder