Pop up error message based on if statement

[DMT]

Hi,

I want to have an error message box pop up if a cell equals FALSE based on a formula. How do I do this?

 

[bk]

How about...

If myCell = False Then
msgbox ("Error")
Else
'carry on
end if

 

[a7n9]

Cell(2,2) is where your If condition is. Lock this cell for editing.

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(2, 2) = False Then MsgBox "PLease change the values", vbCritical
End Sub

Hope this helps.

 

[DMT]

I am having trouble implementing this code. Do I just set up a new macro, paste in your code and edit where the cell reference is? My if statement is in cell AA50. I tried doing this, but nothing happened when cell AA50 equalled zero. What am I doing wrong? Thanks.

 

[a7n9]

No, you do not set up a new macro, you paste this line

If Cells(50, "AA").Value = 0 Then MsgBox "PLease change the values", vbCritical

in the Worksheet_Change module, which you can find by following these steps.
1. Press Alt + F11 to bring the VBE window.
2. On the left hand side you should see all your sheets you are working on under "Microsoft Excel Objects"
3. Double click the sheet where your formula is.
4. You should see two drop-down boxes one will say "General" and the other "Declarations"
5. Change the "General" to worksheet and "Declarations" to "Change"

Now, try and change your values. Hope this one works and sorry for such a late reply.