LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 5
Default 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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Data sorting automatically? Tommy[_2_] Excel Worksheet Functions 10 March 24th 07 10:09 PM
Sorting automatically by columns HumingBean Excel Discussion (Misc queries) 4 December 1st 06 10:46 AM
Sorting Data Automatically Sabunabu Excel Worksheet Functions 2 January 4th 06 08:39 PM
Automatically sorting data leehutch Excel Discussion (Misc queries) 4 August 22nd 05 06:36 AM
sorting automatically Mike Lemke Excel Worksheet Functions 2 October 31st 04 06:51 PM


All times are GMT +1. The time now is 08:17 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"