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
If you choose to make use of any information on this website including online sports betting services from any websites that may be featured on this website, we strongly recommend that you carefully check your local laws before doing so.It is your sole responsibility to understand your local laws and observe them strictly.Covers does not provide any advice or guidance as to the legality of online sports betting or other online gambling activities within your jurisdiction and you are responsible for complying with laws that are applicable to you in your relevant locality.Covers disclaims all liability associated with your use of this website and use of any information contained on it.As a condition of using this website, you agree to hold the owner of this website harmless from any claims arising from your use of any services on any third party website that may be featured by Covers.