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
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|