Top 5 values including with duplicates

[jarhead58]

Hi all!!

I am trying to get the code below this to give me the top 5 values in a column and offset 0, -2 and put the results in a msgbox. The range is y32:y57 for the top 5 and W32:W57 for the value needed. This would include duplicate results of the top 5. Just for testing purposes, my first 10 numbers in Y32:Y41 are 6, 2, 7, 2, 7, 4, 4, 2, 4, 7 respectively. W32:W41 are 6,20,2,24,18,25,11,15,23,14 respectively. Any help would be appreciated. Feel free to point out what I missed or did wrong, still learning.

Sub test
Dim first As Long
Dim second As Long
Dim third As Long
Dim fourth As Long
Dim fifth As Long
Dim firstlocval, secondlocval, thirdlocval, fourthlocval, fifthlocval As Range
Dim firstloc, secondloc, thirdloc, fourthloc, fifthloc As Range
Set rng = Range("Y32:Y57")
first = CLng(WorksheetFunction.Max(Range("Y32:Y57")))

Set firstloc = Range("Y32:Y57").Find(first, , xlValues, xlWhole, xlByRows, xlNext, False)
Set firstlocval = firstloc.Offset(0, -2)

For Each cell In rng
If cell.Value > second And cell.Value < first Then second = cell.Value
Set secondloc = Range("Y32:Y57").Find(second, , xlValues, xlWhole, xlByRows, xlNext, False)
Set secondlocval = secondloc.Offset(0, -2)

If cell.Value > third And cell.Value < second Then third = cell.Value
Set thirdloc = Range("Y32:Y57").Find(third, , xlValues, xlWhole, xlByRows, xlNext, False)
Set thirdlocval = thirdloc.Offset(0, -2)

If cell.Value > fourth And cell.Value < third Then fourth = cell.Value
Set fourthloc = Range("Y32:Y57").Find(fourth, , xlValues, xlWhole, xlByRows, xlNext, False)
Set fourthlocval = fourthloc.Offset(0, -2)

If cell.Value > fifth And cell.Value < fourth Then fifth = cell.Value
Set fifthloc = Range("Y32:Y57").Find(fifth, , xlValues, xlWhole, xlByRows, xlNext, False)
Set fifthlocval = fifthloc.Offset(0, -2)
Next cell
MsgBox firstlocval & "," & secondlocval & "," & thirdlocval & "," & fourthlocval & "," & fifthlocval
End Sub

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[jarhead58]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

It is done!

[AlphaFrog]

Respectfully, I thought the title conveyed the request. The query was what I expected from the title.

This uses Autofilter to filter column Y for the top 5

Sub Top5()
    Dim cell As Range, strMsg As String
    
    Range("Y31:Y57").AutoFilter Field:=1, Criteria1:="5", Operator:=xlTop10Items 'filter for the top 5
    For Each cell In Range("W32:W57").SpecialCells(xlCellTypeVisible)
        strMsg = strMsg & cell.Value & vbLf
    Next cell
    ActiveSheet.AutoFilterMode = False
    
    MsgBox strMsg, , "Top 5"
End Sub

[FDibbins]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)

[jarhead58]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)

Sorry! https://www.mrexcel.com/board/thread...rence.1126898/