VBA IF statement with And / Or?

[EssKayKay]

I’m looking to cleanup some code.
I believe the following statement can be reduced –

From: If Range(“F2”) > 0 And Range(“F3”) > 0 And Range(“F4”) > 0 Then. . .
To: If Range(“F2,F3,F4”) > 0 Then. . .

Is there such a concatenation for an OR statement such as –
If Range(“F5”) > 0 Or Range(“F6”) > 0 Or Range(“F7”) > 0 Then. . .

Thanks,
Steve

 

[rollis13]

To: If Range(“F2,F3,F4”) > 0 Then. . .

Are you sure this statement will work? I think it will only test the first cell regardless of the content of the second and third.

 

[EssKayKay]

Are you sure this statement will work? I think it will only test the first cell regardless of the content of the second and third.

Excellent, thank you very much Rollis. You are correct, it only checks the first cell. I'm glad I asked.

Again, much appreciated. . .
SKK

 

[Peter_SSs]

@EssKayKay
I have removed the solution mark from post 2 as it is not a solution to your question

Is there such a concatenation for an OR statement such as

You could try these replacement lines

If Range("F2") > 0 And Range("F3") > 0 And Range("F4") > 0 Then ...
If Application.Min(Range("F2:F4")) > 0 Then ...

If Range("F2") > 0 Or Range("F3") > 0 Or Range("F4") > 0 Then ...
If Application.Max(Range("F2:F4")) > 0 Then ...

 

[EssKayKay]

@EssKayKay
I have removed the solution mark from post 2 as it is not a solution to your question


You could try these replacement lines

If Range("F2") > 0 And Range("F3") > 0 And Range("F4") > 0 Then ...
If Application.Min(Range("F2:F4")) > 0 Then ...

If Range("F2") > 0 Or Range("F3") > 0 Or Range("F4") > 0 Then ...
If Application.Max(Range("F2:F4")) > 0 Then ...

Thank Peter.
So what about cells that are not consecutive - like F2, F3, F8, K9, K12, etc.?

 

[MountainFog]

I believe that you would just substitute in

Range("F2","F3","K9","K12")

 

[EssKayKay]

I believe that you would just substitute in

Range("F2","F3","K9","K12")

Thank you MountainFog. That sounds great.