Statement is not analysing correctly

[theta]

Hi all...this basic VBA statement is coming back with a fail

The debug shows each row count is the same, but the statements reads false

    Debug.Print PMNCodeSDR.Rows.Count
    Debug.Print PMNCodeEUR.Rows.Count
    Debug.Print PMNCodeUSD.Rows.Count
    
    If PMNCodeSDR.Rows.Count <> PMNCodeEUR.Rows.Count <> PMNCodeUSD.Rows.Count Then
       frmWait.lbxInfo.AddItem "Section 2 Named Ranges are not identical"
       Section2 = False
       Exit Function
    End If

Debug.print =
32
32
32

Any help appreciated

 

[VoG]

It should be something like

If PMNCodeSDR.Rows.Count <> PMNCodeEUR.Rows.Count And PMNCodeSDR.Rows.Count <> PMNCodeUSD.Rows.Count Then

 

[Jonmo1]

It's reading your if like this

If PMNCodeSDR.Rows.Count <> (PMNCodeEUR.Rows.Count <> PMNCodeUSD.Rows.Count) Then

so this part
(PMNCodeEUR.Rows.Count <> PMNCodeUSD.Rows.Count)
Resolves to FALSE (because they ARE both the same)

So it becomes

If PMNCodeSDR.Rows.Count <> False Then


Try adding an AND

If PMNCodeSDR.Rows.Count <> PMNCodeEUR.Rows.Count AND PMNCodeSDR.Rows.Count <> PMNCodeUSD.Rows.Count Then


Hope that helps.

 

[mikerickson]

When using <>, one might have to test all three possibilities

If PMNCodeSDR.Rows.Count <> PMNCodeEUR.Rows.Count _
    AND PMNCodeSDR.Rows.Count <> PMNCodeUSD.Rows.Count _
    And PMNCodeEUR.Rows.Count <> PMNCodeUSD.Rows.Count Then

 

[theta]

That is a bit pants.

Any elegant solutions out there to tackle this?

I was going to use a number formula to add them, then divide by the count etc <> 1

 

[Jonmo1]

Might also try using MAX <> MIN

A = PMNCodeSDR.Rows.Count
B = PMNCodeEUR.Rows.Count
C = PMNCodeUSD.Rows.Count

If Application.Max(A,B,C) <> Application.Min(A,B,C) Then

 

[theta]