Я пытаюсь получить оповещение, если значение ячейки A12: AD 12 <0. </p>
Ячейки B12 и C12 объединены.Аналогичным образом объединяются следующие ячейки (по 2 ячейки в каждой)
B12 изменяется, как только изменяется значение от B16 до B300.B12 - это разница между A12 и суммой B16: B300.Следовательно, если значение в B12 меньше 0, мне нужно сообщение
Ниже приведен код, который я написал
Private Sub Worksheet_Calculate()
Dim e As Integer
Dim f As Range
Dim d As Integer
'Set d = Range("A12:AD12")
If Range("A12:AD12").Value < 0 Then
e = MsgBox("Provide reason for exceeding daily hours", vbOKOnly)
End If
End Sub
Как только в любых строках есть запись между 17-300 значение в строке 12 изменяется.и если любое из значений в строке 12 равно <0, требуется всплывающее сообщение. </p>