Automatically Sort Alphabetically

[Chris]

Hi All,

I have a spreadsheet with 6 columns of data.
In column "C" contains the name of the person, A, B, D, E, and F contain
other information.

I would like to keep the users name in column C.

Is it possible to set somthing up where at the end of the spreadsheet if I
add a new entry that it will automatically place that person alphabetically?

Any helps would be great.
Thanks,

Chris

 

[Mike H]

Chris,

Right click your sheet tab, view code and paste the code below in. On
entering data in column C you will be asked if your want to sort. If Yes then
columns A - F will be sorted on column C

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing Then
response = MsgBox("Do you want to sort", vbYesNo)
If response = vbNo Then Exit Sub
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A1:F" & Lastrow).Sort Key1:=Range("C1"), Order1:=xlAscending
End If
End Sub

Mike

 

[Chris]

Hi Mike, thanks thats great!

only one problem..

That is when i sort the top section accross a1 b1 c1 etc.. is where i keep
the title of each coloum, like A1 says: Data. B1 says Number and C1 says
Name..

When i sort the titles of each colum sort as well so it wnd up like this..

Permanet 3 Abby
Permanet 4 Chris
Data Number Name


any way of fixing the titles to the top of the sheet?

thanks for your help

 

[Chris]

Ah, sloved it!

but ive just relisezd that i have a first and last name box.
How would i be able to include both boxes?

Obviously I want to keep everyones first and surname together, how is this
possible?

Thanks