Формула на условие

[Iskin]

Мне надо что бы если яч О1 превышает значения в яч N1 на 20% выходило предупреждение. Написал:
Sub проверка ()
If Range("O1") >= (N1 / 100) * 120 Then
MsgBox "бла бла бла"
End Sub
Но, сообщение выходит и при превышении и при занижении )
Не пойму...

[Казанский]

If Range("O1") >= Range("N1") * 1.2 Then

[Iskin]

Спасибо, все работает. Теперь думаю как подключить макрос, чтобы без лишних движений выводил сообщение.

[Aleksandr H.]

Iskin Вам туда: https://msdn.microsoft.com/en-us/vba...or=-2147217396

[Iskin]

написал...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range: Set rng = [N1:O723] 'диапазон изменяемых ячеек
If Not Intersect(rng, Target) Is Nothing Then Проверка ' запускает макрос Проверка
End Sub
макрос работает, если я изменяю данные N1:O723. Но у меня в ячейках N1 и O1 стоят итоговые формулы. И хотелось бы чтобы макрос запускался именно из-за изменений в этих ячейках, а не всего столбца. Т. е. если я пишу Dim rng As Range: Set rng = [N1:O1] то реакции нет. т.к. в этих яч формулы и я там никаких действий не делаю, цифры сами меняются.

[0mega]

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

Спасибо, все работает. Теперь думаю как подключить макрос, чтобы без лишних движений выводил сообщение.

Скажите а макрос это обязательное условие или веление времени ?
Почему исключаете формульное решение ?

[Aleksandr H.]

Гуглим, не стесняемся

p.s. Вы на форуме с 2088 и еще не научились код в тег [codе] брать? имейте чуток уважения хотя бы к тем кто хочет помочь и читает ваш код.

[Iskin]

Сообщение от Aleksandr H.

p.s. Вы на форуме с 2088 и еще не научились код в тег [codе] брать? имейте чуток уважения хотя бы к тем кто хочет помочь и читает ваш код.

придется ник сменить) Вы про это имели ввиду?

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range: Set rng = [N1:O723] 'диапазон изменяемых ячеек
If Not Intersect(rng, Target) Is Nothing Then Проверка ' запускает макрос Проверка
End Sub

[Iskin]

Сообщение от 0mega

Скажите а макрос это обязательное условие или веление времени ?
Почему исключаете формульное решение ?

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

[0mega]

Я не знаю специфики Вашей таблицы, но мне кажется можно еще упростить
Если надо только предупредить и не блокировать ввод - тогда УФ самое то