checked typo good no mistake when selection.sort key1 removed shows error
maybe I am asking to much from this program to sort in groups in order over
and over.
Thanks


"Dave Peterson" wrote:

There is no selection.sortkey1

You'll want to copy and paste from the other workbook's project (or from the
newsgroup posting)--but retyping is where lots of typos can arise.

Curt wrote:

I copyed and pasted into a sub ran it it worked first time. then woun't work
again. I started a new wks. Noe when typeing in code. I get to
selection.sortkey1 then := show as problem 'expected expression' hope we can
fix. Got me stumped I am new to this at my age didn't get much training on
these machines.
Thanks for your help

"excelent" wrote:

Hi Curt: im lost ur post dont give me a hint :-)


"Curt" skrev:

Better explain of problem.
Have entries in column d First to sort out are A B C D These will go to top.
Remainder are nbrs 1 thru 8 Need to sort in groups of 8 as 1 to 8. Never
tried this befor don't know if possible. Learning new tricks at my age is
fun. Trying to help a parade committee of Vets which I am a part of.
All help is greatly appreciated.


"excelent" wrote:

some like this:
sort data in C2:C100 in step of 4 cells

Sub tst()
Dim t
For t = 2 To Cells(100, 3).End(xlUp).Row Step 4
Range(Cells(t, 3), Cells(t + 3, 3)).Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
End Sub


"Curt" skrev:

is there a way to sort by cells in a column also can you repeat the search
after first group are reached. column has many groups of numbers want to
group by 1 to 4 repeated. have not been able to get it to sort allways puts
all 1s 2s together. Want a 1234 group.
Anyone? I'm beat
thanks



--

Dave Peterson