What exactly is 'MrExcel MVP' and 'Board Regular'?

[MorganO]

I bowed my head beacuse I knew I that I'd been beat, and I layed that golden keyboard on the ground at Truby's feet. :wink:

Owen

 

[hatman]

Enum mrxlHelpLevels
    xlNewbie
    xlBoardRegular
    xlNotInept
    xlGettingThere
    xlOneGoldStar
    xlCanTellButtFromHoleInGround
    xlTwoWeeStars
    xlActuallyHelpful
    xlQuiteHelpful
    xlVeryHelpful
    xlAladin = 99
End Enum

...
    If Not Intersect(Range("MrExcelMessageBoard"), Range("HandsomeExcelGods")) Is Nothing _
    Or Me.Helpfulness >= mrxlHelpLevels.xlVeryHelpful Then
       Me.BoardRanking = mrxlRankings.xlMVP
       
       collMrExcelMVPs.Add Item:=Me.Name, Key:=Me.BoardID
    
    End If

Methinks that the test for intersection by itself is meaningless under these circumstances. I would expect that you would need to determine if YOU are actually in that intersection... After all, there is probably an intersection, but even if there is, it doesn't help much if you aren't in it.

I would start here:

Enum mrxlHelpLevels
    xlNewbie
    xlBoardRegular
    xlNotInept
    xlGettingThere
    xlOneGoldStar
    xlCanTellButtFromHoleInGround
    xlTwoWeeStars
    xlActuallyHelpful
    xlQuiteHelpful
    xlVeryHelpful
    xlAladin = 99
End Enum

...

    On Error Resume Next
    
    Set InterSected = Intersect(Range("MrExcelMessageBoard"), Range("HandsomeExcelGods"))
    
    On Error GoTo 0

    Flag = False

    If Not InterSected Is Nothing Then
        
        If Not InterSected.Find(Me.Name, LookIn:=xlValues) Is Nothing Then Flag = True
    
    ElseIf Me.Helpfulness >= mrxlHelpLevels.xlVeryHelpful Then
    
        Flag = True
        
    End If
    
    If Flag Then
    
       Me.BoardRanking = mrxlRankings.xlMVP
       
       collMrExcelMVPs.Add Item:=Me.Name, Key:=Me.BoardID
    
    End If

The rest is left up to the student to prove ad nauseum using any unambiguous language of his/her choice, except ProLog (it is no longer supported Professor.Net).

 

[Oorang]

I like that one "Gold star" is ranked below "Can Tell Butt From Hole In Ground"

 

[Von Pookie]

ExcelingInTheAirForce

I bowed my head beacuse I knew I that I'd been beat, and I layed that golden keyboard on the ground at Truby's feet.

Don't encourage him, for pete's sake...that's the last thing we need

 

[Greg Truby]

Actually, I rather liked Paul's point that the test really should have been a FIND for one's own name against the initial intersection; a very astute point, I thought.

 

[hatman]

ExcelingInTheAirForce

I bowed my head beacuse I knew I that I'd been beat, and I layed that golden keyboard on the ground at Truby's feet.

Don't encourage him, for pete's sake...that's the last thing we need

... I would have cast Greg as Satan rather than Johnny

 

[hatman]

Actually, I rather liked Paul's point that the test really should have been a FIND for one's own name against the initial intersection; a very astute point, I thought.

Thank you. Does that qualify me for xlCanTellButtFromHoleInGround rather than just xlOneGoldStar?

 

[Richard Schollar]

Not that it helped me get my MVP moniker here, but the girls in the women's dormitory did award me the "best legs in the men's dorm" title three out of four years in college. (Lost my senior year to a German tennis player. )

"There was a young man named Greg
Who had great pride in his legs;
With both a wax and a groom
He thought it a boon
To tell everyone he knew of his pegs!"

 

[Greg Truby]

So, I believe the code now needs...

blnGetsFiddleAndSatanJokes = (not intersect([EuropeanMrExcelMembers],[CountryMusicFans]) is nothing)

Regards,

 

[Greg Truby]

...With both a wax...

WAX?! Oh, h*** no! (Well, not unless that and I wig would have gotten me an overnight in the girls dorm).

@ hatman -- yep, consider yerself promoted to and added to the collCanFindOwnAssWithoutMapAndCompass collection.