T/R Home/Away Power Rankings
I struggled to find a compromise on the macro and here I I put
Sub UpdateAwayPowerRankings()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/ranking/away-power-ranking-by-team")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("42:225").Delete Shift:=xlUp
'Copy and paste into L10 tab
With Temp
.Range("A12:I45").Copy
Away.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateHomePowerRankings()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/ranking/home-power-ranking-by-team")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("42:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A12:I45").Copy
Home.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateOverUnderAway()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/trend/ou_trends/is_away")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("40:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A10:e40").Copy
OUAway.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateOverUnderHome()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/trend/ou_trends/is_home")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("40:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A10:e40").Copy
OUhome.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
I struggled to find a compromise on the macro and here I I put
Sub UpdateAwayPowerRankings()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/ranking/away-power-ranking-by-team")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("42:225").Delete Shift:=xlUp
'Copy and paste into L10 tab
With Temp
.Range("A12:I45").Copy
Away.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateHomePowerRankings()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/ranking/home-power-ranking-by-team")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("42:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A12:I45").Copy
Home.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateOverUnderAway()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/trend/ou_trends/is_away")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("40:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A10:e40").Copy
OUAway.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
Sub UpdateOverUnderHome()
'https://www.teamrankings.com/mlb/ranking/last10-power-ranking-by-team
'https://www.teamrankings.com/mlb/ranking/overall-power-ranking-by-team
'set worksheets
Call SetWorksheets
'get L10 Rankings
Call IEScreenScrape("https://www.teamrankings.com/mlb/trend/ou_trends/is_home")
'Delete rows we don't need
Temp.Rows("6:105").Delete Shift:=xlUp
Temp.Rows("40:225").Delete Shift:=xlUp
'Copy and paste into powe rankings tab
With Temp
.Range("A10:e40").Copy
OUhome.Range("A1").PasteSpecial xlPasteValues
End With
'Cleanup
Temp.Cells.ClearContents
End Sub
what about TB?
what about TB?
Hot Forum Topics
-
Serious Streak Survivor Strategies
1,918,167
-
Monday 09/21/2026
432
-
Colts vs chiefs in-game live
1,728
-
NFL LOCKED IN!
99,520
-
New York Giants @ Los Angeles Rams
3,758
-
***Macwesties * Mon. Sept. 21, 2026 * Birthday * NFL * MNF * Football Play***
2,340
-
?? KBO Plays 🥎
14,745
-
Week Two-Post Plays Here
1,393
-
NCAA FOOTBALL. 151
23,388
-
Monday Night
3,233
Warning - External Link
Report User
This post is spam
Delete Post
Remove Thread
Scan Results
Login/Register
Accounts are free and easy to create.
Search
