VBA RANK

D

djdwwoug

is there a way that I can make this formula into
VBA code that looks up a given range see below
=RANK(A7,A$7:A$200)+COUNTIF(A$7:A7,A7)-1

and then used VBA the to get the Large and Small values

Thanks
 
O

OssieMac

Not sure that I understand your question but the following examples of VBA
code might put you on the right track.

Range("D1") = WorksheetFunction.Rank(Range("A7"), _
Range("A$7:A$200")) + WorksheetFunction.CountIf(Range("A$7:A7"), _
Range("A7")) - 1

Range("E1") = WorksheetFunction.Min(Range("A$7:A7"))

Range("F1") = WorksheetFunction.Max(Range("A$7:A7"))
 
D

djdwwoug

Thanks, how about looping through the range, like range(“D†& value) =
WorksheetFunction.Rank(Range("A7"), is this possible? so I can get the top
ten
 
O

OssieMac

I really do not understand what you are trying to achieve. Can you give me a
sample list of about 20 numbers and a sample of what the output should be
with an explanation of what it is you are trying to achieve.
 
D

djdwwoug

Thanks a lot for your help, I figured it out.
I have another question, how do I deal with Blanks and nulls
 
O

OssieMac

Hi again,

Following line tests for a blank cell. You can use a variable representing
the range.

If Range("A1") = "" Then
'place code here for blank cell
Else
'place code here for not blank
End If

Can also test for not blank.

If Range("A1") <> "" Then

Note that there is no space between the double quotes.
 
D

djdwwoug

Thanks everything is working.

OssieMac said:
Hi again,

Following line tests for a blank cell. You can use a variable representing
the range.

If Range("A1") = "" Then
'place code here for blank cell
Else
'place code here for not blank
End If

Can also test for not blank.

If Range("A1") <> "" Then

Note that there is no space between the double quotes.
Click to expand...
 
Top