message box in vba when range is less then.. vba in the sheet itself - view code

[amit96]

How do I do the code in the sheet itself in the "view code"
when the value in column K (any row in the column) is less than 10,
a message will pop up to the screen that says - "10 days left until expiration"

I would appreciate your assistance!

 

[Snakehips]

@amit96 Maybe like below.

If Evaluate("Countif(K:K,""<10"")") > 0 Then MsgBox "10 days left until expiration"

How you might trigger it will depend upon the way you are inputting / editing your data.
If an identifiable direct manual input affects it then you could use the Worksheet_Change event.
Simple example of which might be.

Private Sub Worksheet_Change(ByVal Target As Range)
'ignore if not column K
If Not Target.Column = 11 Then Exit Sub
'check for vals < 10
If Evaluate("Countif(K:K,""<10"")") > 0 Then MsgBox "10 days left until expiration"

End Sub