sorting automatically
 

i paste this code to code sheet but i dont know how can i sort my data after
that and what is this code
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A:C" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Me.Cells.Sort key1:=Me.Range("A1"), order1:=xlAscending, _
key2:=Me.Range("B1"), order2:=xlAscending, _
heder:=xlYes
End If

ws_exit:
Application.EnableEvents = True
End Sub

sorting automatically
 

i found it finaly .correct header spell in code

"abolbashari" wrote:

i paste this code to code sheet but i dont know how can i sort my data after
that and what is this code
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A:C" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Me.Cells.Sort key1:=Me.Range("A1"), order1:=xlAscending, _
key2:=Me.Range("B1"), order2:=xlAscending, _
heder:=xlYes
End If

ws_exit:
Application.EnableEvents = True
End Sub

sorting automatically
 

Bob posted worksheet event code and explained where to place the code.

If you have pasted the code into the worksheet module and if the ranges are
suitable, it will run whenever you enter new data in columns A, B or C


Gord Dibben MS Excel MVP

On Wed, 20 Aug 2008 01:47:00 -0700, abolbashari
wrote:

i paste this code to code sheet but i dont know how can i sort my data after
that and what is this code
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A:C" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Me.Cells.Sort key1:=Me.Range("A1"), order1:=xlAscending, _
key2:=Me.Range("B1"), order2:=xlAscending, _
heder:=xlYes
End If

ws_exit:
Application.EnableEvents = True
End Sub