2 if statements into 1?

[lgroulx2000]

Hi,

How do I write these 2 if statments into 1?

If Not (Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) Then
CalendarFrm.Show
End If

If Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing) Then
CalendarFrm.Show
End If

Thanks,

Larry

 

[jeffreybrown]

Just a thought but did you try...

If Not (Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) Or If Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing)

 

[lgroulx2000]

Thanks,

I tried that but I get "expected: expression" after the Or.

Larry

 

[conny2254]

Maybe something like this?, but I did not test

If Not (Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) Then
CalendarFrm.Show
elseIf Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing) Then
CalendarFrm.Show
End If

 

[mikerickson]

If Not ((Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing)) OR (Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing)) Then
    CalendarFrm.Show
End If

or

If Not ((Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) AND  (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing)) Then
    CalendarFrm.Show
End If

If Not Application.Intersect(Target, Range("B4:AD62,B64:AD69")) Is Nothing Then
    CalendarFrm.Show
End If

 

[lgroulx2000]

Thanks,

I get a syntax error with that code.

Larry

 

[mikerickson]

If its my code that is giving the error, its probably the wrong number of parenthesis.

The thought behind my first two is that you have

If Not (A) Then
    CalendarFrm.Show
End If
If Not (B) Then
    CalendarFrm.Show
End If

Since Not(A) and Not(B) are mutualy exclusive, we don't have to worry about the mixed case and can combine that to

If Not(A) Or Not(B) Then
    CalendarFrm.Show
End If

which is equivilant to

If Not (A And B) Then
    CalendarFrm.Show
End If

The last bit of code is noting that you want the calandar to show if Target is in one of the two ranges. I combined the ranges and wrote a test to see if Target is in that combined range.

 

[lgroulx2000]

Thanks mikerickson,

Larry

 

[lgroulx2000]

Hi mikerickson,

I was trying a different example.

Larry

 

[Peter_SSs]

Yet another slight variation:

Dim myTarget As Range

Set myTarget = Union(Range(Cells(4, 2), Cells(62, 30)), _
                    Range(Cells(64, 2), Cells(69, 30)))
If Not Intersect(Target, myTarget) Is Nothing Then
    CalendarFrm.Show
End If