Comments on: Dynamic Sorting With a UDF

By: Jon

Jon — Tue, 18 Oct 2011 17:58:00 +0000

Nevermind, I changed the .Cell(5, 10) and that worked. I had inadvertently pasted this function into two different spots and was modifying the wrong one.

By: Jon

Jon — Tue, 18 Oct 2011 17:38:00 +0000

I have a range $A$5:$K$26. I want to sort on the J column, how do I modify the code to do this?

By: Dick Kusleika

Dick Kusleika — Thu, 11 Feb 2010 14:19:00 +0000

Bill, put your code in code tags. See the instructions just above the comment box. This will preserve the code and format it correctly.

By: Bill Ghauri

Bill Ghauri — Wed, 10 Feb 2010 22:37:00 +0000

One more time. If this doesn't work, my apologies for mucking up this thread.

Function Vol_ID(Vol_0 As Long, volRng As Range)
Dim vArray As Variant
vArray = volRng.Value
QuickSort vArray, LBound(vArray, 1), UBound(vArray, 1)
Select Case True
Case Is = Vol_0 vArray(5, 1) And Vol_0 vArray(17, 1) And Vol_0 vArray(29, 1) And Vol_0 vArray(41, 1) And Vol_0 vArray(53, 1)
Vol_ID = "EXTM"
End Select
End Function

By: Bill Ghauri

Bill Ghauri — Wed, 10 Feb 2010 22:32:00 +0000

Maybe this time...

By: Bill Ghauri

Bill Ghauri — Wed, 10 Feb 2010 22:28:00 +0000

I must have messed up posting because it cut out some of my code.

By: Bill Ghauri

Bill Ghauri — Wed, 10 Feb 2010 22:25:00 +0000

@ Jon,

I wanted to use a UDF that I could call from another sub, but I suppose the LARGE function would work too. I did not try it. In my model I had been been using a sub to copy/sort the values on a worksheet. It worked, but I needed to steamline the model as much as possible and I figured a UDF was the best route. Btw, this is how my final function looks with the Select Case construct. It works great.

Best regards,
Bill Ghauri

By: Jon Peltier

Jon Peltier — Wed, 10 Feb 2010 21:46:00 +0000

What’s wrong with =LARGE(array,k)?

By: Bill Ghauri

Bill Ghauri — Wed, 10 Feb 2010 18:05:00 +0000

@ Dick,

I kind of boggles my mind how you experts can figure this stuff out so fast! You solution works great! Many thanks.

Best regards,
Bill Ghauri

By: Dick Kusleika

Dick Kusleika — Wed, 10 Feb 2010 17:00:00 +0000

Function PositionValue(VolRng As Range, Optional lPos As Long = 1)

Dim vArray As Variant

vArray = VolRng.Value
QuickSort vArray, LBound(vArray, 1), UBound(vArray, 1)

PositionValue = vArray(lPos, 1)

End Function

Public Sub QuickSort(vArray As Variant, inLow As Long, inHigh As Long)

Dim vPivot As Variant
Dim vSwap As Variant
Dim lLow As Long
Dim lHigh As Long

lLow = inLow
lHigh = inHigh

vPivot = vArray((inLow + inHigh) 2, 1)

Do While lLow <= lHigh

Do While vArray(lLow, 1) < vPivot And lLow < inHigh
lLow = lLow + 1
Loop

Do While vPivot < vArray(lHigh, 1) And lHigh > inLow
lHigh = lHigh - 1
Loop

If (lLow <= lHigh) Then
vSwap = vArray(lLow, 1)
vArray(lLow, 1) = vArray(lHigh, 1)
vArray(lHigh, 1) = vSwap
lLow = lLow + 1
lHigh = lHigh - 1
End If

Loop

If (inLow < lHigh) Then QuickSort vArray, inLow, lHigh
If (lLow < inHigh) Then QuickSort vArray, lLow, inHigh

End Sub

The low and high that you pass in are the bounds of the array, not the minimum and maximum values. Also, the range array of values is two dimensional, so all your array references needed a second dimension. Also, you are pulling the 3rd value from the range which ignores the sorting that was done.

Quicksort adapted from here http://stackoverflow.com/questions/152319/vba-array-sort-function