| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alphabetize when data changes
"Simon Lloyd" wrote: Try this, it re-alphabetises from cell A1 when a new entry is added, paste this code directly on to the code sheet for sheet you want this to happen on. Regards Simon Private Sub Worksheet_Change(ByVal Target As Range) If ActiveCell.Column = 2 Then 'This tells the sub not to work if the column is number 2 or more Exit Sub ElseIf ActiveCell.Column = 1 Then 'This tells the sub to only work if column 1 Columns("A:A").Select 'This is your column range and the A1 below is telling the sort where to start Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub -- Simon Lloyd ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708 View this thread: http://www.excelforum.com/showthread...hreadid=499263 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Need to alphabetize data from separate cells within same row | Excel Worksheet Functions | |||
| is there a program i can use to automaticaly alphabetize data | Excel Discussion (Misc queries) | |||
| alphabetize | New Users to Excel | |||
| alphabetize | Excel Discussion (Misc queries) | |||
| How do I alphabetize data in the field list? | Excel Discussion (Misc queries) | |||
Threaded Mode
