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
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
