{"id":491,"date":"2019-02-14T23:44:22","date_gmt":"2019-02-14T23:44:22","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=491"},"modified":"2019-02-17T20:31:56","modified_gmt":"2019-02-17T20:31:56","slug":"how-to-check-cell-value-in-vba-and-display-message-box","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2019\/02\/14\/how-to-check-cell-value-in-vba-and-display-message-box\/","title":{"rendered":"How To Check Cell Value In VBA And Display Message Box"},"content":{"rendered":"

This post is to help answer a question from the youtube video at https:\/\/www.youtube.com\/watch?v=kamx7NnsCZI&t=2s<\/p>\n

hi, i need help with the msgbox. I would like a msgbox to pop up if a particular value is smaller than a condition value eg. is 39 < 40, a msgbox should pop up to indicate that the number is smaller. How can I go about doing this?\ufeff<\/p><\/blockquote>\n

For starters make sure your workbook is a “.xlsm”<\/p>\n

Here is the data:
\n\"\"<\/a><\/p>\n

We are going to loop through the cells in A2 to A14, and check if they are less than the value in D2, and if the value is less, we will display a message box.<\/p>\n

Here is the code:<\/p>\n

Sub Button1_Click()\r\n    Dim dblValue As Double\r\n    Dim rngValues As Range\r\n    \r\n    'this will be my check cell value\r\n    dblValue = Range(\"D2\")\r\n    \r\n    'Set the range to loop through:\r\n    Set rngValues = Sheet1.Range(\"A2:A14\")\r\n    \r\n    \r\n    'loop through all the cells in the range:\r\n    For Each cell In rngValues\r\n        If cell.Value < dblValue Then\r\n            MsgBox \"The value in \" & cell.Address & \" is smaller than the checked value\"\r\n        End If\r\n    Next\r\n    \r\nEnd Sub\r\n<\/pre>\n
Now when the button “Button 1” is clicked and cells will be evaluated and display a message box if the condition is met.<\/p>\n
\"\"<\/a><\/p>\n
Let me know if you have any questions.<\/p>\n
****************************************************<\/p>\n\n\n
\n
<\/div>\n