VBA IF OR

IF OR Function in VBA

Logical functions are the heart of any criteria based calculations. “IF” is the most popular logical function be it as worksheet function or as VBA function, it serves excellently for our needs. But one more logical function “OR” is the most underrated function in excel. It is also important to master when it comes to solving complex calculations. In this article, we will take you through the VBA IF OR Function in detail. Read the full article to get the function in detail.

How to Use IF with OR Function in VBA?

We will show you a simple example of using IF OR function in VBA.

Combination of logical functions are the best pairs in excel. When you combine many logical formulas inside the other logical formula it suggests that calculation requires many conditions to test.

Now, look at the syntax of the IF OR function in VBA.

[Test] OR [Test] OR [Test]

This is the same as we saw in the worksheet example. For a better understanding look at the below example.

We have previous month price, last 6-month average price and the current monthly price here.

To decide on whether to buy the product or not, we need to do some tests here and those tests are.

If the Current Price is less than or equal to any of one of the other two prices we should get the result as “Buy” or else should get the result as “Do Not Buy”.

Step 1: Open IF condition inside the subprocedure.

Code:

Sub IF_OR_Example1()

 If

End Sub

Step 2: Inside the IF condition apply first logical test as Range(“D2”).Value <= Range(“B2”).Value

Code:

Sub IF_OR_Example1()

 If Range(“D2”).Value <= Range(“B2”).Value

End Sub

Step 3: First logical condition is done, now open OR statement.

Code:

Sub IF_OR_Example1()

 If Range("D2").Value <= Range("B2").Value OR

End Sub

Step 4: Now apply the second logical condition as Range(“D2”).Value <= Range(“C2”).Value

Code:

Sub IF_OR_Example1()

 If Range("D2").Value <= Range("B2").Value OR Range("D2").Value <= Range("C2").Value

End Sub

Step 5: Ok, we are done with the logical tests here. After the logical tests put the word “Then”.

Code:

Sub IF_OR_Example1()

 If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then

End Sub

Step 6: In the next line write what should be the result if the logical test is TRUE. If the condition is TRUE we need the result as “Buy” in cell E2.

Code:

Sub IF_OR_Example1()

 If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then  

    Range("E2").Value = "Buy"

End Sub

Step 7: If the result is FALSE we should get the result as “Do Not Buy”. So in the next line put “Else” and write the code in the next line.

Code:

Sub IF_OR_Example1()

If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then 

   Range("E2").Value = "Buy"
Else
   Range("E2").Value = "Do Not Buy"

End Sub

Step 8: Close the IF statement with the word “End If”.

Code:

Sub IF_OR_Example1()

If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then

   Range("E2").Value = "Buy"
Else
   Range("E2").Value = "Do Not Buy"
End If

End Sub

Ok, we are done with the coding part.

Let’s run this code using F5 or manually through run option and see what the result is in cell E2.

We got the result as “Buy” because current month price of Apple is less than the price of both “Previous Month” as well as “6 Month Average Price”.

IF OR VBA Function with Loops (Advanced)

Once you understand the formula try to use with a larger number of cells. In case of a larger number of cells, we cannot write any line of code, so we need to use VBA loops.

For the above set of data, I have added a few more lines.

We need to use For Next loop here.

Just keep the current code as it is.

Declare the variable as an integer.

Now open For Next Loop from 2 to 9.

Now, wherever we have cell reference change the current number and concatenate the variable “k” with them.

For example Range (“D2”).Value should be Range (“D” & k).Value

Now run the code we should get the status in all the cells.

You can copy the code below.

Code:

Sub IF_OR_Example1()

Dim k As Integer

For k = 2 To 9

If Range("D" & k).Value <= Range("B" & k).Value Or Range("D" & k).Value <= Range("C" & k).Value Then

Range("E" & k).Value = "Buy"
Else

Range("E" & k).Value = "Do Not Buy"

End If

Next k

End Sub

Recommended Articles

This has been a guide to VBA IF OR. Here we learn how to use If Condition with Or Function in Excel VBA along with examples & downloadable templates. Below are some useful articles related to VBA –

• Examples of VBA INT Function
• Formula of VBA LEN Function
• VBA Integer in Excel
• Excel Concatenate Columns
• How to Write VBA Sub Procedures in Excel VBA?
• VBA MID Function Example
• VBA IsEmpty Example
• VBA Left Function Examples
• Excel VBA Course