Bet Refs always PENDING

[dgs2001]

HI

Hopefully one of you kind people can help me with this!!
My bets are being placed but I'm not recording Bet Refs.

Code: Select all

Dim countRange
Set countRange = ThisWorkbook.Sheets("Sheet1").Range("T5:T75")
Dim mywait
        mywait = Now()
    t = Application.WorksheetFunction.Count(countRange)
   
    Do While t = 0
        If Now() >= mywait + TimeValue("00:00:10") Then
            GoTo SaveRecord
        End If
    t = Application.WorksheetFunction.Count(countRange)
    DoEvents
    Loop
    GoTo SaveRecord

SaveRecord:
ThisWorkbook.Application.ScreenUpdating = False
For i = 5 To 75
nxtRw = ThisWorkbook.Sheets("Bets").Range("A65000").End(xlUp).row + 1
    If ThisWorkbook.Sheets("Sheet1").Range("Q" & i) = "LAY" Then
       
                LayRef = ThisWorkbook.Sheets("Sheet1").Range("T" & i)
                ThisWorkbook.Sheets("bets").Range("A" & nxtRw) = LayRef
            ThisWorkbook.Sheets("bets").Range("I" & nxtRw) = ThisWorkbook.Sheets("sheet1").Range("AC77")
            ThisWorkbook.Sheets("bets").Range("B" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("S" & i)
            ThisWorkbook.Sheets("bets").Range("D" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("R" & i)
            ThisWorkbook.Sheets("bets").Range("G" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("A" & i)
           
            ThisWorkbook.Sheets("bets").Range("H" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("A1")
       
    End If
nxtRw = ThisWorkbook.Sheets("Bets").Range("A25000").End(xlUp).row + 1
    If ThisWorkbook.Sheets("Sheet1").Range("Q" & i) = "BACK" Then
                           
            BetRef = ThisWorkbook.Sheets("Sheet1").Range("T" & i)
                       
            ThisWorkbook.Sheets("bets").Range("A" & nxtRw) = BetRef
            ThisWorkbook.Sheets("bets").Range("C" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("S" & i)
            ThisWorkbook.Sheets("bets").Range("D" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("R" & i)
            ThisWorkbook.Sheets("bets").Range("G" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("A" & i)
           
            ThisWorkbook.Sheets("bets").Range("H" & nxtRw) = ThisWorkbook.Sheets("Sheet1").Range("A1")
       
    End If
   
Next i



I'm trying to record my bet info, but using the above code all I get are PENDING bet refs on my "Bets" sheet.
The Back and Lay info is recorded and the bets are placed but thats it.

This is not a Betting Assistant error but something to do with my code, but I just can't fathom it!!

Thanks Duncan

[phrenetic]

Duncan

When a bet is placed, it goes PENDING until a bet reference is returned. This can take several seconds (especially if dealing with InPlay betting).

I suspect that your routine is firing "too early", so it correctly records the PENDING values rather than the bet references.

Why don't you include another count for "PENDING" in the reference column and only call your save routine when that equals zero? So you would be checking for two counts - one for references and one for PENDINGs.....if you see what I mean.

Alistair

[dgs2001]

Alistair thanks for the input,

I think I see what you mean.
This will be my Saterday morning project!!

I was confused because I have put a COUNT loop in my code,this should loop until there is a number in the Bet refs column but stay at zero if only text. Then I also put a 10 second get out clause so that my code wouldnt lock up and loop continuosly if no bet ref was returned.

Thanks Duncan