Sort Alphabetic and Automatically Update When Added Data

[muhammad susanto]

hi all....

how to automatically sort and update asc to desc (alphabetic)
this layout :

[TABLE="class: tableizer-table"]
<thead>[TR="class: tableizer-firstrow"]
[TH]data[/TH]
[TH]expected result[/TH]
[/TR]
</thead><tbody> [TR]
[TD]zzz[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]zzz[/TD]
[TD]dddddd[/TD]
[/TR]
[TR]
[TD]b[/TD]
[TD]dddddd[/TD]
[/TR]
[TR]
[TD]dddddd[/TD]
[TD]dddddd[/TD]
[/TR]
[TR]
[TD]dddddd[/TD]
[TD]dddddd[/TD]
[/TR]
[TR]
[TD]dddddd[/TD]
[TD]s[/TD]
[/TR]
[TR]
[TD]dddddd[/TD]
[TD]s[/TD]
[/TR]
[TR]
[TD]s[/TD]
[TD]s[/TD]
[/TR]
[TR]
[TD]s[/TD]
[TD]zzz[/TD]
[/TR]
[TR]
[TD]s[/TD]
[TD]zzz[/TD]
[/TR]
</tbody>[/TABLE]


thanks

m.susanto

 

[JoeMo]

Assuming your data are in col A starting in A2, put this in the sheet's code:

To install sheet code:
1. Right-click the worksheet tab you want to apply it to and choose 'View Code'. This will open the VBE window.
2. Copy the code below from your browser window and paste it into the white space in the VBE window.
3. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
4. Make sure you have enabled macros whenever you open the file or the code will not run.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then
    Application.EnableEvents = False
    Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Sort key1:=[A2], order1:=xlAscending
    Application.EnableEvents = True
End If
End Sub

 

[muhammad susanto]

thanks Joe...it's possible without macro/vba?..