Всплывающая подсказка, если одно из значний меньше 0

[kzld]

В столбце, допустим Y вычисляется формула. Как сделать макрос, чтобы если значение в любой ячейке Y5:Y500 становится меньше нуля "всплывало" предупреждение

[EducatedFool]

А что, обязательно макрос?

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

Можно ещё подсветить эту ячейку (или сами ячейки с отрицательными значениями) при помощи условного форматирования...

[kzld]

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

А что, обязательно макрос?

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

Можно ещё подсветить эту ячейку (или сами ячейки с отрицательными значениями) при помощи условного форматирования...

Прошу дать пример формулы.
Таблица очень большая, на экране не помещается, если вдруг значение меньше 0, должно "загораживать" половину экрана

[SAS888]

Вставьте в модуль нужного листа код:

Private Sub Worksheet_Calculate()
    If [Or(Y5:Y500<0)] Then MsgBox "В диапазоне Y5:Y500 есть значения < 0"
End Sub

[kzld]

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

Вставьте в модуль нужного листа код:

Private Sub Worksheet_Calculate()
    If [Or(Y5:Y500<0)] Then MsgBox "В диапазоне Y5:Y500 есть значения < 0"
End Sub

Работает.
А как быть, если листов в книге 12 (по количеству месяцев).
Вставлять в каждый лист?

[SAS888]

Нет. Не нужно. Это уже событие книги. Вставьте в модуль "Эта книга" код:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If Sh.[Or(Y5:Y500<0)] Then MsgBox "В диапазоне Y5:Y500 есть значения < 0"
End Sub

[kzld]

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

Нет. Не нужно. Это уже событие книги. Вставьте в модуль "Эта книга" код:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If Sh.[Or(Y5:Y500<0)] Then MsgBox "В диапазоне Y5:Y500 есть значения < 0"
End Sub

СПАСИБО Большое