Excel Spreadsheets - Systems, Tools, Utilities and More

Quote Originally Posted by Leprechaun:



Buckeye-

I had never taken a close look at these formulas until now.  I just took for granted that they were already done correctly.  From what I can tell, the shading criteria seems to change for each system.  For example, in system #6, the team is only highlighted if it's not a C game AND the team has a pitching edge.  From what I see for the rules of this system (https://www.guide-to-baseball-betting.com/ebook-revisions.html), I don't know why Degen included those last two filters for that system.  There is similar highlighting in the other columns that doesn't seem to be included in the original system rules.  Maybe they were his own highlights to look for an extra edge when betting?  It's also possible that they are leftover remnants from him trying to build the filters in via conditional formatting instead of hard coding them into their own rows.  That's a question he will have to answer.  At a quick glance, I'd say just ignore the highlights.  If you have a chance one day, I'd say run the filters for each of the systems manually to confirm you're getting the right plays.

Leprechaun

You got it Leprechaun - it started off really strong last year - if you review the thread - it started to tank - so we added pitching and over.470 win record filters to see if it improved.

It's possible that the systems are most profitable between may and end of June.

I only tracked it for a few weeks - as everyone knows i'm terrible at tracking and backtesting.

Congratulations for this post very useful and very well done these files, I wanted to use against the Run estimator and I came across a bug after you click on the "Update Lineup" button.un pop up appeared indicating me an error in the macro in the progression of the update (stop 47/48)

once the page vb open I fell over.so if someone could look and tell me what to do to rectify the program or simply update all the file (I use Excel 2010) it would be nice.

UpdateStartingPitchers Macro
'

    Dim spRange As Range
    Dim LR As Long
    Dim rowCount As Long
    Dim lastRow As Long
       
    'Set Worksheets
    Call SetWorksheets
    
    'Find how many rows in Starting Pitcher sheet - Get Row Count
    rowCount = spitch.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
   
    'Delete rows from Starting Pitcher Sheet
    spitch.Range("A2" & ":" & "D" & rowCount).ClearContents
       
    'Get total rows in Schedule table
    LR = sched.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
   
    'turn on automatic calculations for the remainder of this macro to process Update Pitcher Macro correctly
    Application.Calculation = xlCalculationAutomatic
   
    'Loop through first column (BY) and find last row with value
    For Each spRange In sched.Range("BY2:BY" & LR)
        If Len(spRange.value) > 0 Then
            lastRow = spRange.row
        End If
    Next spRange

Sorry for my English i'm french

Looking forward to it!