Hi everyone,
I have a 'Martingale' spreadsheet in excel that i use and want to share with you guys.
The following code can be pasted in the Immediate window of the VBA environment.
Start with a new sheet,
Open the VBA environment (ALT-F11 then CTRL-G)
Then paste the code in there.
Start at the top line (range("a1")).value="cost") and press enter through each one.
It's setup with my pick 3 calculations
$10 = buying all pairs of x23 and 23x where x=0 thru 9 @.5 each.
Percent Return is based on spending 1000 out of pocket to win 1500 which is 50% more of my initial investment.
As an example, I would modify the entries where %return is less than 50% so as to earn 50%.
Starting with row 25, i would change the sets to 2 until % return drops below 50%.
Next i would modify row 35 to 3 and repeat.
All of this will increase the running total/out of pocket cost and that's what i keep an eye on.
realistically, i use 15% return.
Happy earnings
RANGE("A1").VALUE = "COST"
RANGE("B1").VALUE = "WIN"
RANGE("A1:B1").FONT.BOLD=TRUE
RANGE("A1:B2").HORIZONTALALIGNMENT=XLCENTER
RANGE("A2").VALUE = 10
RANGE("B2").VALUE = 250
RANGE("B9").VALUE = 1
RANGE("B8").VALUE = "TICKET SETS"
RANGE("C8").VALUE = "COST"
RANGE("D8").VALUE = "POCKET"
RANGE("E8").VALUE = "RUNNING TOTAL"
RANGE("D9").COLUMNWIDTH=8.86
RANGE("G8").VALUE ="PERCENT RETURN"
RANGE("B8:G8").FONT.BOLD=TRUE
RANGE("B8:G8").WRAPTEXT=TRUE
RANGE("C9").FORMULA="=B9*$A$2"
RANGE("D9").FORMULA="=($B$2*B9)-E9"
RANGE("E9").FORMULA="=IF(B9=0,0,SUBTOTAL(9,$C$8:C9))"
RANGE("G9").FORMULA="=IF($B9=0,"""",((((B9*B$2))-E9)/E9)*100)"
RANGE("B9:G9").SELECT
SELECTION.COPY
RANGE("B9:G100").SELECT
ACTIVESHEET.PASTE
RANGE("B8:G100").SELECT
SELECTION.HORIZONTALALIGNMENT=XLCENTER
RANGE("G9:G100").NUMBERFORMAT="0.00"
RANGE("A8:A100").SELECT
SELECTION.DELETE SHIFT:=XLTOLEFT