Thread: auto sort
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Toppers
 
Posts: n/a
Default auto sort

Mike,
Record a macro do the sort, name it (for example) "SortTable"
and then insert the code below into the sheet containing your table by
clicking on the sheet tab==view code and copy and paste.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isectrng As Range

On Error GoTo Wsexit
Application.EnableEvents = False
Application.ScreenUpdating = False

Set isectrng = Range("L:L,N:N") ' <== change to relect range in which scores
are placed

Set isect = Application.Intersect(Target, isectrng)
If Not isect Is Nothing Then
SortTable '<== change to your macro name as required
End If

Wsexit:
Application.EnableEvents = True
End Sub

HTH

"Mike" wrote:

Hi i have a league set up and want to auto sort it as i add the scores, it is
in A2:F9, and i want to sort B3:F9, is there a macro that will do this for
me please
--
thanks Mike