My boss would like to create a spreadsheet that will automatically
alphabetize itself. Is this possible? He wants to be able to insert data
and instead of sorting it himself, if the program would do it. Please let me
know if there is a way!
Thank you!

Here is an example. Enter this small macro into your worksheet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("A:A")) Is Nothing Then
Else
Application.EnableEvents = False
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.EnableEvents = True
End If
End Sub

When data is entered in column A, the column will automatically re-sort
itself. You can modify the code to sort more than one column.

REMEMBER: Worksheet code.
--
Gary's Student


"Mzinsser" wrote:

> My boss would like to create a spreadsheet that will automatically
> alphabetize itself. Is this possible? He wants to be able to insert data
> and instead of sorting it himself, if the program would do it. Please let me
> know if there is a way!
> Thank you!
>

I don't like things too automatic. If I make a mistake and the data sorts, it
might be difficult to find/correct the error.

If you're running xl2003, you could apply data|filter|autofilter to the range
and use the dropdown to sort by one of those fields.

I like this technique from Debra Dalgleish's site:
http://contextures.com/xlSort02.html

It puts rectangles over the headers and then you can click on that rectangle to
sort your data by that column.

Mzinsser wrote:
>
> My boss would like to create a spreadsheet that will automatically
> alphabetize itself. Is this possible? He wants to be able to insert data
> and instead of sorting it himself, if the program would do it. Please let me
> know if there is a way!
> Thank you!

--

Dave Peterson