{"id":565,"date":"2019-02-23T21:42:58","date_gmt":"2019-02-23T21:42:58","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=565"},"modified":"2019-02-23T21:44:25","modified_gmt":"2019-02-23T21:44:25","slug":"how-use-vba-to-evaluate-two-cells","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2019\/02\/23\/how-use-vba-to-evaluate-two-cells\/","title":{"rendered":"How Use VBA To Evaluate Two Cells"},"content":{"rendered":"

This post is actually a response to a question someone had. <\/p>\n

\u202ai need help comparing two cells with a high and low value, one of the cells is blue. Return 1 if the lowest value is blue color or return zero if the higher value is blue color. how do i perform this task in excel?\u202c\ufeff<\/p><\/blockquote>\n

Here in this example we have 2 columns:<\/p>\n

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

In order to evaluate the 2 columns, it’s best to generate a user defined function.<\/p>\n

This is the code for the user defined function (in a module):<\/strong><\/p>\n

Public Function EvaluateCellContents(Row) As Integer\r\n    Dim intResult As Integer\r\n    Dim intRow As Integer\r\n    \r\n    Dim strBlue As String\r\n    Dim strBlack As String\r\n    \r\n    strBlue = 13998939\r\n    strBlack = 0\r\n        \r\n    intRow = Row\r\n    \r\n    intResult = 0\r\n    \r\n    'DOES RANGE A HAS A BLUE FONT COLOR?\r\n    If Range(\"A\" & intRow).Font.Color = strBlue Then\r\n        'IS THE BLUE VALUE LOWER?\r\n        If Range(\"A\" & intRow) < Range(\"B\" & intRow) Then\r\n            intResult = 1\r\n        Else\r\n            intResult = 0\r\n        End If\r\n    End If\r\n    \r\n    'DOES RANGE B HAS A BLUE FONT COLOR?\r\n    If Range(\"B\" & intRow).Font.Color = strBlue Then\r\n        'IS THE BLUE VALUE LOWER?\r\n        If Range(\"B\" & intRow) < Range(\"A\" & intRow) Then\r\n            intResult = 1\r\n        Else\r\n            intResult = 0\r\n        End If\r\n    End If\r\n    \r\n    \r\n    EvaluateCellContents = intResult\r\n    \r\nEnd Function\r\n<\/pre>\n
This is the way to call it from the worksheet:<\/p>\n
=EvaluateCellContents((ROW(A4)))<\/strong><\/em><\/p>\n
\"\"<\/a><\/p>\n
<\/p>\n
and here is the end result:<\/p>\n
\"\"<\/a><\/p>\n
Let me know if you have any questions.<\/p>\n
****************************************************<\/p>\n\n\n
\n
<\/div>\n