If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
how to auto arrange in alphabetical order-excel sheet
how to auto arrange in alphabetical order-excel sheet after typing names in
random? |
#2
|
|||
|
|||
how to auto arrange in alphabetical order-excel sheet
Let's say we are entering data in column A and we want to alphbetize the
column as entries are made. Try the following macro: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub End If Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub This goes in worksheet code: 1. right-click the tab name at the bottom of the window 2. select View Code - VBE window will open 3. paste the macro in the VBE window and then just close the VBE window -- Gary's Student gsnu200704 "subha" wrote: how to auto arrange in alphabetical order-excel sheet after typing names in random? |
#3
|
|||
|
|||
how to auto arrange in alphabetical order-excel sheet
As Dave Peterson has pointed out a few times, this may not be a good idea.
Reason.............perhaps a spelling mistake is made on last entry. Before user can correct it after hitting ENTER, that entry has been sorted to who knows where. A manual DataSort might be better after a check for proper entry. Gord Dibben MS Excel MVP On Thu, 8 Feb 2007 11:05:01 -0800, Gary''s Student wrote: Let's say we are entering data in column A and we want to alphbetize the column as entries are made. Try the following macro: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub End If Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub This goes in worksheet code: 1. right-click the tab name at the bottom of the window 2. select View Code - VBE window will open 3. paste the macro in the VBE window and then just close the VBE window |
Thread Tools | |
Display Modes | |
|
|