Refresh Results

[mak]

Hi,
can someone provide the vba code to refresh q2 (-6) every 3 minutes
I would like to refresh my results sheet please?

thanks

** I tried to change some code that I found but didn't manage it

[mak]

If this helps I've put Gary's AutoreloadQuickPickList (I know it is stupid but new member..)

in the workbook open
Option Explicit

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:03:00"), "loadQuickPickList"
End Sub

in the sheet code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
Application.EnableEvents = False
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Range("Q2").Value = "-6"
triggerFirstMarketSelect = True


End If
Application.EnableEvents = True
End If
End Sub


in the module

Public triggerQuickPickListReload As Boolean
Public triggerFirstMarketSelect As Boolean

Public Sub loadQuickPickList()
triggerQuickPickListReload = True
End Sub

So i get the following


11:47:22 Excel update Excel thread is busy (2812 ms)
11:47:32 Getting bet results range System.Runtime.InteropServices.COMException (0x800A01A8): Exception from HRESULT: 0x800A01A8
at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr, Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[] namedParameters)
at System.RuntimeType.InvokeMember(String name, BindingFlags bindingFlags, Binder binder, Object target, Object[] providedArgs, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParams)
at Microsoft.VisualBasic.CompilerServices.VBBinder.InvokeMember(String name, BindingFlags invokeAttr, Type objType, IReflect objIReflect, Object target, Object[] args, String[] namedParameters)
at Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
at Betting_Assistant.Excel.getXLRange(String r1, String r2, String action, Object ws)
11:47:43 Excel update Excel thread is busy (2812 ms)

Can someone help please?

[Steve Voltage]

http://www.ozgrid.com/Excel/run-macro-on-time.htm

[mak]

Arnold thanks (I still try to make it work...)

I have also some questions don't know if Gary can answer

1. If i manually place the -6 trigger at q2 the first time don't do anything and at the second time it updates the results but the just freeze. Why is this happening? (my aim is to refresh the results every 3 minutes in order to know if my previous bets won or lost - something like SAW)

2. Is it possible under some conditions to change the refresh rate for a few seconds from excel (example 0.3 / second for 1 minute)?

3. From BA interface if I place the refresh rate to 0.3/second & auto ticked in 3 markets for example will there a problem regarding extra charges?

4. Is there a link that we can download the pre released version 0.63 with the latest fixes?

I know that are to many questions but for the time being I know that I make use of this excellent software for just 10% of its capabilities & try to learn

[mak]

Arnold thanks (I still try to make it work...)

I have also some questions don't know if Gary can answer

1. If i manually place the -6 trigger at q2 the first time don't do anything and at the second time it updates the results but the just freeze. Why is this happening? (my aim is to refresh the results every 3 minutes in order to know if my previous bets won or lost - something like SAW)

2. Is it possible under some conditions to change the refresh rate for a few seconds from excel (example 0.3 / second for 1 minute)?

3. From BA interface if I place the refresh rate to 0.3/second & auto ticked in 3 markets for example will there a problem regarding extra charges?

4. Is there a link that we can download the pre released version 0.63 with the latest fixes?

I know that are to many questions but for the time being I know that I make use of this excellent software for just 10% of its capabilities & try to learn

Gary?

[GaryRussell]

I will try and get back to this afternoon.

[mak]

I will try and get back to this afternoon.

thanks

[GaryRussell]

1. If i manually place the -6 trigger at q2 the first time don't do anything and at the second time it updates the results but the just freeze. Why is this happening? (my aim is to refresh the results every 3 minutes in order to know if my previous bets won or lost - something like SAW)

I cannot replicate this problem. I would like to use our remote assistance software to see this problem for myself if you agree to this.

2. Is it possible under some conditions to change the refresh rate for a few seconds from excel (example 0.3 / second for 1 minute)?

You would need to write some VBA code to enter 0.3 in cell Q2 and then 1 minute later the code should enter the old refresh rate in Q2

3. From BA interface if I place the refresh rate to 0.3/second & auto ticked in 3 markets for example will there a problem regarding extra charges?

As long as you have got "Throttle requests" ticked in preferences, the throttle limit is 20 or below and you are not using any other Betfair software (including the website) then you will not be charged regardless of how many markets you are monitoring.

4. Is there a link that we can download the pre released version 0.63 with the latest fixes?

The pre-release version is always available to download from http://www.gruss-software.co.uk/Betting ... _Beta1.msi
I will put up a summary of what this version contains shortly.

[mak]

Thanks Gary,
I will let you know by mail when we can use remote assistance
I must also learn vba ...

[mak]

Regarding the pre release version(s) I think it would be very useful a new thread especially with the summaries

[osknows]

To refresh a macro after a set time place this in the WORKBOOK object

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)

     Application.OnTime dTime, "Timercode", , False

End Sub

Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:30"), "Timercode"

End Sub


and this in a seperate MODULE object

Code: Select all

Public dTime As Date

Sub Timercode()

dTime = Now + TimeValue("00:00:30")
Application.OnTime dTime, "Timercode"

MsgBox ("Insert Your Code Here!")


End Sub


This will show a message "Insert Your Code Here!" every 30 seconds. It will trigger every 30 seconds regardless of when you click OK and not 30 seconds after pressing OK

Essentially replace MsgBox ("Insert Your Code Here!") with whatever code or proc calls you want to run

[mak]

Osknows thanks
I will try it & let you know

[mak]

Osknows it works just as I need !
Thanks for your help