Live updating football league table without filter

[ronie85]

I am wanting to know how to live update a league table so that I don’t have to do it manually with the filter. Team is in column ‘A’, GD is in Column ‘R’ and PTS is in column ‘S’. There are 25 rows including the header row. I was the table to update with 3 priorities.
First Priority is PTS in column ‘S’.
If any PTS are the same then I want the second priority to be GD in column ‘R’.
If any GD are the same I then want the third priority to be F in column ‘F’.
Is this possible??

Team	Played	W	D	L	F	A	W	D	L	F	A	W	D	L	F	A	GD	PTS
Bristol City	7	5	2		12	4	3	1		7	1	2	1		5	3	8	17
Peterborough	7	5	1	1	12	6	2	1	1	7	5	3			5	1	6	16
MK Dons	6	4	1	1	14	8	2	1		6	2	2		1	8	6	6	13
Chesterfield	6	4	1	1	10	5	2		1	6	3	2	1		4	2	5	13
Coventry	7	3	3	1	9	7	3	1		6	3		2	1	3	4	2	12
Swindon	6	3	2	1	10	6	2	1		6	2	1	1	1	4	4	4	11

<tbody>
</tbody>

 

[VBA Geek]

are u looking to rank the teams?


<b>Worksheet Formulas</b><table cellpadding="2.5px" width="100%" rules="all" style="border: 1px solid;text-align:center;background-color: #FFFFFF;border-collapse: collapse; border-color: #BBB"><thead><tr style=" background-color: #DAE7F5;color: #161120"><th width="10px">Cell</th><th style="text-align:left;padding-left:5px;">Formula</th></tr></thead><tbody><tr><th width="10px" style=" background-color: #DAE7F5;color: #161120">T2</th><td style="text-align:left">=RANK(<font color="Blue">$S2,$S$2:$S$7,0</font>)+COUNTIFS(<font color="Blue">$S$2:$S$7,$S2,$R$2:$R$7,">" & $R2</font>)+COUNTIFS(<font color="Blue">$S$2:$S$7,$S2,$R$2:$R$7,$R2,$F$2:$F$7,">"&$F2</font>)</td></tr></tbody></table></td></tr></table><br />

Excel 2013
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T
1	Team	Played	W	D	L	F	A	W	D	L	F	A	W	D	L	F	A	GD	PTS	Ranking
2	Bristol City	7	5	2		12	4	3	1		7	1	2	1		5	3	8	16	1
3	Peterborough	7	5	1	1	12	6	2	1	1	7	5	3			5	1	6	16	3
4	MK Dons	6	4	1	1	14	8	2	1		6	2	2		1	8	6	6	16	2
5	Chesterfield	6	4	1	1	10	5	2		1	6	3	2	1		4	2	5	13	4
6	Coventry	7	3	3	1	20	7	3	1		6	3		2	1	3	4	4	12	5
7	Swindon	6	3	2	1	10	6	2	1		6	2	1	1	1	4	4	4	12	6
Sheet4

 

[steve the fish]

If its a sort you are after id apply this code to a button on the worksheet.

Sub Sorty()

Dim sh As Worksheet

Set sh = ActiveWorkbook.Worksheets("Sheet1")

    sh.Sort.SortFields.Clear
    sh.Sort.SortFields.Add Key:=Range("S2:S25"), Order:=xlDescending
    sh.Sort.SortFields.Add Key:=Range("R2:R25"), Order:=xlDescending
    sh.Sort.SortFields.Add Key:=Range("F2:F25"), Order:=xlDescending
    With sh.Sort
        .SetRange Range("A1:S25")
        .Header = xlYes
        .Apply
    End With
    
End Sub