Help with Refresh Macro

[Chisp]

Hi, hoping someone can help me please. In excel I run three workbooks each with two worksheets. The three workbooks are connected to different Betfair accounts.

I'd really appreciate some help in creating a macro that will set the refresh for each tab. The refresh rate should be time dependent, so for example, I can set it at 4 at 2am.

Thanks in advance.

[alrodopial]

Instead of a macro will a formula in cell Q2 do the job?

[Chisp]

No, because when -3 is entered the formula gets overwritten.

[osknows]

This code below is an example which forwards the markets using -1 in cell Q2 once a race is ended. It also tracks closed markets and updates balance using -6. Once the market has forwarded the formula is replaced which sets my refresh rate.

You can use the same principle to write -3 when needed then replace the Q2 formula for refresh rates.

Code: Select all

    'forward quick pick race on after race ended quick
    If fullstrArray(2, 5) = "In Play" And fullstrArray(2, 6) = "Suspended" And UCase(fullstrArray(1, 17)) = "Y" And nextracetrigger = 0 Then
        nextracetrigger = 1
        lastrace = fullstrArray(1, 1)
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Value = -1

    ElseIf fullstrArray(2, 6) = "Closed" And UCase(fullstrArray(1, 17)) = "Y" And nextracetrigger = 0 Then
        nextracetrigger = 1
        lastrace = fullstrArray(1, 1)
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Value = -1

    ElseIf fullstrArray(2, 6) = "Closed" And UCase(fullstrArray(1, 17)) = "Y" And nextracetrigger = 1 Then
        nextracetrigger = 2
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Value = -6

    ElseIf fullstrArray(2, 6) = "Closed" And UCase(fullstrArray(1, 17)) = "Y" And nextracetrigger = 2 Then
        nextracetrigger = 3
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Value = closedmarketrefresh
       
       
    ElseIf fullstrArray(2, 6) = "Closed" And UCase(fullstrArray(1, 17)) = "Y" And nextracetrigger = 3 Then
        nextracetrigger = 1
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Value = -1
       
    End If

    If lastrace <> fullstrArray(1, 1) Then
        nextracetrigger = 0
        ThisWorkbook.Sheets(Target.Worksheet.Name).Range("Q2").Formula = "=IF(AND(E2=""In Play"",OR(F2=""Suspended"",F2=""Closed""))," & normalrefresh & ",IF(ISERROR(IF(AND(HOUR(D2)=0,MINUTE(D2)<=1)," & inplayrefresh & "," & normalrefresh & "))," & inplayrefresh & ",IF(AND(HOUR(D2)=0,MINUTE(D2)<=1)," & inplayrefresh & "," & normalrefresh & ")))"
       
    End If