Green Up (xl sample)

[mak]

Thanks Gary, your the best

[mak]

Gary hi
I am testing right now the new sample sheet (GreenUp_OpposingOdds) which is excactly what i wanted, but i have a question regarding W coloumn
(Matched stake)

If i place a Back Bet of 2€ and they are matched, the W column shows 2 which is fine.If I place another Back Bet of 2€ and they are matched it still shows 2. Just because i haven't noticed that coloumn untill now is it that how it suppose to work or i am missing someting?

[GaryRussell]

The matched stake column only shows the matched stake for the bet ref currently displayed in column T. It is not a total for the selection. I could modify the example to output an extra column to display the total matched stake for the selection if you need.

[mak]

Gary,
please do when you find some time.
I would also like to ask you, if i remember correct, is it on you "to do list" to provide in BA 2 extra columns with the minimum & maximum price for a selection?If yes when do you believe that you could provide it?

Thanks again, I am very happy today with this sample...

[Lewis]

Hi, just a little help trying to clean my code up.

The routine is currently running everytime the data changes in excel which for my sheet can be more than once a second. Is there an easy way to change this to less frequently or at a set time. I trade pre-race markets and only use the algorithm in the last 30 seconds or so.

I could either set a time so it refreshes once every few seconds or I could call it from another part of the program.

My question is what would be the easiest way to change this without having to hack the code up too much. Just a suggestion will be enough and I will go and find the implementation method myself.

[Also - thanks for this example Gary, has proven an excellent help to me.]

[GaryRussell]

You could put an if statement around the code in the worksheet_change event for the MyBets worksheet which only runs the code if it's within 30 seconds of the off time.

eg.

Code: Select all

Dim t As Date, secondsFromStart As Integer
t = Worksheets("sheet1").Range("d2")
secondsFromStart = (Hour(t) * 3600) + (Minute(t) * 60) + Second(t)
If secondsFromStart <= 30 then .....


[/code]

[mak]

Gary,
please do when you find some time.
I would also like to ask you, if i remember correct, is it on you "to do list" to provide in BA 2 extra columns with the minimum & maximum price for a selection?If yes when do you believe that you could provide it?

Thanks again, I am very happy today with this sample...

Gary have seen this?

[GaryRussell]

Gary,
please do when you find some time.
I would also like to ask you, if i remember correct, is it on you "to do list" to provide in BA 2 extra columns with the minimum & maximum price for a selection?If yes when do you believe that you could provide it?

Thanks again, I am very happy today with this sample...

Gary have seen this?

It's on my list, but not high priority. It could be programmed in VBA in theory. Unfortunately I cannot promise a timescale for this at present.

[mak]

thats ok thanks

[GaryRussell]

Gary,
please do when you find some time.
I would also like to ask you, if i remember correct, is it on you "to do list" to provide in BA 2 extra columns with the minimum & maximum price for a selection?If yes when do you believe that you could provide it?

Thanks again, I am very happy today with this sample...

I have updated the opposing odds example. There are two extra columns: total matched back stakes and total matched lay stakes.

[mak]

Gary thanks!

Can you explain how through vba i can get the minimum & maximum price matched for the selections?I am sure i can't write it, but with this one i don't have a clue, even to think the structure...

[2020vision]

Gary thanks!

Can you explain how through vba i can get the minimum & maximum price matched for the selections?I am sure i can't write it, but with this one i don't have a clue, even to think the structure...

Hi mak

Maybe I am missing a trick - how can anyone or any bot get you the
minimum or maximum price matched for selections? To me the minimum is
1.01 and the maximum is 1000? You can not know how low or how high a
price will go in advance? Perhaps I have the wrong end of the stick?

Sorry if I made a mistake but I am pretty raw when it comes to VBA, Excel
and bots, etc. Am actually trying to learn so please be patient, Thanks.

All the best - Michael

[Captain Sensible]

I think they're talking about the min and max matched prices, 2020.

Are you looking for the overall min and max prices mak or just from when you enter the market? I have something someone on here wrote in vba to log them for when you enter the market .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
Dim cell As Object

For Each cell In Target
iRow = cell.Row
iCol = cell.Column


' Update Max and Min Back Values
If iCol = 15 And iRow > 4 And iRow < 46 Then

Application.EnableEvents = False
If IsEmpty(Range("AJ" & iRow).Value) Then Range("AJ" & iRow).Value = 0
If IsEmpty(Range("AI" & iRow).Value) Then Range("AI" & iRow).Value = 1001
If IsEmpty(Range("AH" & iRow).Value) Then Range("AH" & iRow).Value = Range("O" & iRow).Value

If Not IsEmpty(cell.Value) Then
Range("AG" & iRow).Value = Range("O" & iRow).Value
If cell.Value < Range("AI" & iRow).Value And cell.Value > 1 Then Range("AI" & iRow).Value = cell.Value
If cell.Value > Range("AJ" & iRow).Value And cell.Value < 1001 Then Range("AJ" & iRow).Value = cell.Value
End If

Application.EnableEvents = True
End If

That'll log the start price in AH lowest in AI and highest in AJ


Next cell

End Sub

[Captain Sensible]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
Dim cell As Object

For Each cell In Target
iRow = cell.Row
iCol = cell.Column


' Update Max and Min Back Values
If iCol = 15 And iRow > 4 And iRow < 46 Then

Application.EnableEvents = False
If IsEmpty(Range("AJ" & iRow).Value) Then Range("AJ" & iRow).Value = 0
If IsEmpty(Range("AI" & iRow).Value) Then Range("AI" & iRow).Value = 1001
If IsEmpty(Range("AH" & iRow).Value) Then Range("AH" & iRow).Value = Range("O" & iRow).Value

If Not IsEmpty(cell.Value) Then
Range("AG" & iRow).Value = Range("O" & iRow).Value
If cell.Value < Range("AI" & iRow).Value And cell.Value > 1 Then Range("AI" & iRow).Value = cell.Value
If cell.Value > Range("AJ" & iRow).Value And cell.Value < 1001 Then Range("AJ" & iRow).Value = cell.Value
End If

Application.EnableEvents = True
End If



Next cell

End Sub

[2020vision]

Ok Capt

but then again if the min or max has shifted you can not get it matched?
And if at the present time it is min or max could it not go higher or lower still?

Not trying to be argumentative, just trying to understand.

Seems that you choose a personal min or max and either bet or not?

The only way for min or max to be matched is to place the bet after the fact
- impossible, unless 1.01 or 1000. Please have patience?

Cheers - Michael