Automatic League Sort

[Blade2304]

Hi

I have a league table (attachment table named 'World Cup League'). I
updates scores as i enter them into a data table that precedes i
(titled 'Games Won'). I would like to be able to automatically sor
the 'World Cup League' in descending order every time i enter data int
the 'Games Won' table to save me having to sort it every time. An
ideas would be gratefully received as i am trying to run a competitio
as a charity event and need to have to do as little possible to sav
time. Thank yo

+-------------------------------------------------------------------
|Filename: World Cup.zip
|Download: http://www.excelforum.com/attachment.php?postid=4776
+-------------------------------------------------------------------

 

[Gary]

You can do it everytime you open the workbook.

Private Sub Workbook_Open()
'your code here
End Sub

Thats all I know.
Gary

 

[Otto Moehrbach]

For Excel to "automatically" do anything (such as sort), there must be
something to trigger Excel to sort. This can be something like entering
anything in a cell in Column whatever, or Row whatever, or in a specific
cell. You said "every time I enter data into the 'Games Won' table". Do
you mean whenever you enter anything in any cell in the entire table? Or
maybe you mean whenever you fill in a row. In that case Excel can be setup
to sort when you enter something in the last cell of a row. In other words,
when you enter anything into any cell in that column.
Or perhaps you would like to have just a button somewhere in the sheet,
usually at the top, that you can click on to trigger the sort. Post back
and clarify what you have and what you want. HTH Otto

 

[Blade2304]

Whenever i enter something into the 'Games Won' table. By entering
number into this table in any cell totals change. These totals the
transfer into the 'World Cup League' table and therefore th
competitors need sorting into rank order with most points first.
know i could do this with manually sorting each time i enter new dat
but it would be nice if it did it automatically. Also there may b
blank rows in this table so i dont want them to be included in thi
sort

 

[Otto Moehrbach]

Blade
This macro does what you want. I assumed the following:
Both the Games Won and World Cup League tables are on the same sheet.
The range of the Games Won table is named GamesWon.
The range of the World Cup League table is named WorldCupLeague.
The World Cup League table has its headers in Row 1 and the Rank Order
column is Column H.
Note that this is a sheet event macro and must be placed in the sheet module
of the sheet that holds the two tables. To access that module, right-click
on the sheet tab of that sheet, select View Code and paste this macro into
that module. Click on the "X" in the top right corner to return to the
sheet. Post back if you need help with changing this macro to work with
your data layout. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, Range("GamesWon")) Is Nothing Then _
Range("WorldCupLeague").Sort Key1:=Range("H2"), _
Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub