{"id":100,"date":"2018-11-05T17:39:12","date_gmt":"2018-11-05T17:39:12","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=100"},"modified":"2019-02-17T21:08:05","modified_gmt":"2019-02-17T21:08:05","slug":"vbastring-tip-5-excel-vba-loop-to-find-records-matching-search-criteria","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2018\/11\/05\/vbastring-tip-5-excel-vba-loop-to-find-records-matching-search-criteria\/","title":{"rendered":"VBAString Tip 5: Excel VBA Loop To Find Records Matching Search Criteria"},"content":{"rendered":"

This post will show you how to compare cells and display message box if condition is true.<\/p>\n

I will show you how to:
\n -how to assign values to your variables _
\n -how to loop through rows _
\n -how to evaluate cell value with if statement<\/p>\n

In the following image, the cells in columns A and B are being looped and the 2 cell values and being compared. When the condition is met, a message box will appear telling the row the condition is met on.<\/p>\n

\"excel_vba_loop_rows_condition\"<\/a><\/p>\n

Sub Button1_Click()\r\n    Dim intRow As Integer\r\n    \r\n    Dim intCellA As Integer\r\n    Dim intCellB As Integer\r\n\r\n    For intRow = 1 To 14\r\n        intCellA = Range(\"A\" & intRow)\r\n        intCellB = Range(\"B\" & intRow)\r\n        \r\n        If intCellA > intCellB Then\r\n            MsgBox \"On row \" & intRow & \", Cell A value is greater than Cell B\"\r\n        End If\r\n    Next\r\n    \r\n    \r\n    MsgBox \"End.\", vbInformation, \"Complete\"\r\nEnd Sub<\/pre>\n
Watch how I do it:<\/p>\n