putting #s in order

[Fire_Chief]

I have some numbers that I put in an array like this:

sub GetNumbers()
range("a1").select
for I = 1 to 10

numbers(I) = activecell
activecell.offset(1,0).select

next I

end sub

Now I want to sort them from highest to lowest.
I have gotten some other code but I don't know how to apply it to my problem and I can't get any other responses.

Thank You

 

[opinsky]

You may want to look here for alternatives: http://en.wikipedia.org/wiki/Sorting_algorithm

bubble sort, the most popular, work like this:

function bubble_sort(list L, number listsize)
loop
has_swapped := 0 //reset flag
for number i from 1 to (listsize - 1)
if L > L[i + 1] //if they are in the wrong order
swap(L, L[i + 1]) //exchange them
has_swapped := 1 //we have swapped at least once, list may not be sorted yet
endif
endfor
//if no swaps were made during this pass, the list has been sorted
if has_swapped = 0
exit
endif
endloop
endfunction

 

[VoG]

You don't need to do all this selecting. You can work with ranges without selecting anything.

 

[Fire_Chief]

What I wrote is an example.

The numbers I select are all over the spreadsheet.

Is there a way I can select thses cells and sort them without changing where they are on the spreadsheet?

 

[Fire_Chief]

I got it

thank you

 

[erik.van.geit]

I got it

FINE: could you post the happy end please ?

or did you use the link ?

 

[Fire_Chief]

I did use the link

Thank you