How to write If(Or(And(),And()) in VBA

[MCTampa]

[TABLE="width: 500"]
<tbody>[TR]
[TD]Start
[/TD]
[TD]End
[/TD]
[TD][/TD]
[TD]SD
[/TD]
[TD]ED
[/TD]
[TD]Check
[/TD]
[/TR]
[TR]
[TD]7/20/2019
[/TD]
[TD]7/27/2019
[/TD]
[TD][/TD]
[TD]8/6/2019
[/TD]
[TD]8/12/2019
[/TD]
[TD]False
[/TD]
[/TR]
[TR]
[TD]7/27/2019
[/TD]
[TD]8/3/2019
[/TD]
[TD][/TD]
[TD]8/6/2019
[/TD]
[TD]8/12/2019
[/TD]
[TD]False
[/TD]
[/TR]
[TR]
[TD]8/3/2019
[/TD]
[TD]8/10/2019
[/TD]
[TD][/TD]
[TD]8/6/2019
[/TD]
[TD]8/12/2019
[/TD]
[TD]True
[/TD]
[/TR]
[TR]
[TD]8/10/2019
[/TD]
[TD]8/17/2019
[/TD]
[TD][/TD]
[TD]8/6/2019
[/TD]
[TD]8/12/2019
[/TD]
[TD]True
[/TD]
[/TR]
[TR]
[TD]8/17/2019
[/TD]
[TD]8/24/2019
[/TD]
[TD][/TD]
[TD]8/6/2019
[/TD]
[TD]8/12/2019
[/TD]
[TD]False
[/TD]
[/TR]
</tbody>[/TABLE]

I'm struggling with how to write the following formula in VBA:

=IF(OR((AND(D2>=A2,D2<=B2)),AND(E2>=A2,E2<=B2)),TRUE,FALSE)

This formula evaluates whether or not either the SD or theED falls between the Start Date and the End Date. I do not care which one satisfies thecriteria, I just want to know if one of them does.
I am struggling with the structure in VBA.
Thanks,
Mike

 

[joeu2004]

Ostensibly:

If (Range("A2")<=Range("D2") And Range("D2")<=Range("B2")) Or (Range("A2")<=Range("E2") And Range("E2")<=Range("B2")) Then
    '... SD or ED falls between Start and End
End If

However, that is efficient because VBA goes to Excel for each and every Range reference; it does not stop the left-to-right evaluation as soon as it can.

Somewhat more efficient:

Dim v as Variant
v = Range("A2:D2")
If (v(1,1)<=v(1,3) And v(1,3)<=v(1,2)) Or (v(1,1)<=v(1,4) And v(1,4)<=v(1,2)) Then
    '....
End If

 

[Marcelo Branco]

Or

Sub InsertFormula()
    With Range("F2:F6")
        .Formula = "=IF(OR(AND(D2>=A2,D2<=B2),AND(E2>=A2,E2<=B2)),TRUE,FALSE)"
        .Value = .Value
    End With
End Sub

M.