sort an array
Tom,
I tried and it does not help. Please see my reply to Tim, I think it
might be the issue.
Thanks,
--
______
Regards,
Greg
"Tom Ogilvy" wrote:
I don't know what you input ranges look like, but perhaps what you want is
Try changing
Set rngXY = Union(inputx, inputy)
to
Set rngXY = InputX.Parent.Range(inputx,inputY)
--
Regards,
Tom Ogilvy
"Greg" wrote in message
...
Hi,
I have a following Function and the sort does not appear to be working
:( .
Any help is greatly appreciated.
*******************
Function interpolate(kind As String, x As Long, inputx As Range, inputy As
Range)
Dim n As Integer, i As Integer, j As Integer, index As Integer
n = inputx.Cells.Count
' I.Combine Xs in Ys into one range and sort it
Dim rngXY As Range
Set rngXY = Union(inputx, inputy)
If rngXY.Rows.Count < rngXY.Columns.Count Then
rngXY.Sort Key1:=rngXY.Cells(1, 1), Order1:=xlAscending,
Orientation:=xlLeftToRight
Else
rngXY.Sort Key1:=rngXY.Cells(1, 1), Order1:=xlAscending
End If
'More code
End Function
*******************
--
______
Regards,
Greg
|