Auto Sort

[jamieleeuk]

Hi,

Thank again in advance for any help.

What I am looking for is something which will automatically sort my data dynamically in alphabetical order. I have done this before but with numbers, but have no idea how!

My data begins in A:7 and the last cell currently in use is I:1033, however, this has the potential to be limitless (upto the last cell ofc).

The column I need to sort by is currently Column B and I can't see this ever changing. The first name is in B7 all way down to B:1033.

When I add the new person to the spreadsheet I want them (and the whole row of data) to move to the correct part of the list, dependant on the name.

Eg, if I have CHAMBERS and FREDERICKSON already in the list and I wanted to add DAVIDSON, I would expect the whole DAVIDSON row to move between the CHAMBERS AND FREDERICKSON rows.

Thanks

 

[shyrath]

Hi,

this is possible , but the trigger must be something.

In below example i´ve put the sort trigger into the workbook change event.
So if you now type a name into column B, as soon as you hit Enter, it will re-sort.

Excel Workbook
	A	B	C	D	E
1	Index	Name	some	some1	etc
2	1	hans	aaa
3	5	Jerry	eee
4	4	Jim	ddd
5	2	John	bbb
6	3	Ronald	cc
Sheet1

Right click on the sheetname / tabname that you want this code to run in, then view code and put below code in.

If you want to trigger on another column then change Range("B2:B2000") to another column / range.

Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("B2:B2000")) Is Nothing Then

        Selection.sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

   End If


End Sub