HELP: VBA that prompt message before close when certain cell is less than 100

[feidifeidi]

Hi, i am new to marco. i need to some help that can make the file prompt up message (when saving the file), lets say cell E10 the total is less than 100.
I tried many online sample but it does not prompt.

i tried following sample online but nothing prompt

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E10").Value > 100 Then
MsgBox "Try again total is not 100"
End If
End Sub

Thank you in advance!!

[ORoos]

Try to place the below into the Workbook module (ThisWorkbook):


EDIT: previous version was triggers when closing. This on when saving.

Please Login or Register  to view this content.

Note: the formula checks only if E10 is greater than 100. The message box is stating 'in not 100'...

[feidifeidi]

Hi, thank you! it works!! i realised i paste to the wrong sheet. btw is it possible to make it unable to save when is less than 100? Because currently it still allow to save even with the pop up. Thank you

[ORoos]

The below will prevent saving if E10 is greater than 100. Give it a try...

Please Login or Register  to view this content.

[ORoos]

...your heading is "cell is LESS than 100'...The formula/code is >100 GRATER than 100. Depending on what your requirements are you may need to change the > to <.

[feidifeidi]

Hi!
i need some help to change the code. Below is the current code with one condition only. I want to add one more condition. which is i want range F1 to Q1 if any value is more than 0 but less than 99.9 it will prompt the msg too. is it possible? Thank you in advance!!

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Sheet1.Range("E30").Value < 99.9 Then
MsgBox "Monthly total is less than 99.9."
End If

End Sub