Clear log betting results

[philuk]

On the moment I have the reload quikpick list that works 100% at midnight every night.

If I would like to clear the bet results sheet , which is sheet2 on my workbook i read that I can use code -7 in VB

Now the question is how , does it work the same as the refresh quickpick :

Code: Select all

Private Sub Workbook_Open()
   If Hour(Now) >= 8 Then
      Application.OnTime TimeValue("00:00:00"), "Clearbettingresults"
   Else
      Application.OnTime TimeValue("08:00:00"), "Clearbettingresults"
   End If
End Sub

and then :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
        If triggerClearbettingresults Then
            triggerClearbettingresults = False
            Range("Q2:J500").Value = -7
            End If
        Application.EnableEvents = True
    End If
End Sub

and then :

Public triggerClearbettingresults As Boolean

Public Sub Clearbettingresults()
    triggerClearbettingresults = True
    If Hour(Now) = 0 Then
        Application.OnTime TimeValue("08:00:00"), "loadQuickPickList"
    Else
        Application.OnTime TimeValue("00:00:00"), "loadQuickPickList"
    End If
End Sub



If the code is correct must the first one get entered into the workbook and second one into the worksheet ( sheet2 ) and the third code into a new module ( module 2 ) , there is already a module 1 for reloading quickpick list.

Hopefully this is correct , it will make my day as it will be the first one

Cheers and thanx

[philuk]

Sorry , the last one is like this :

Code: Select all

Public triggerClearbettingresults As Boolean

Public Sub Clearbettingresults()
    triggerClearbettingresults = True
    If Hour(Now) = 0 Then
        Application.OnTime TimeValue("08:00:00"), "Clearbettingresults"
    Else
        Application.OnTime TimeValue("00:00:00"), "Clearbettingresults"
    End If
End Sub


Type mismatch

[philuk]

Now i am confused. How can I incorporate the clear betting sheet with the load quickpick at midnight every day ?

[GaryRussell]

I modified the quick pick reload example for another user.

Here it is http://www.gruss-software.co.uk/Excel/A ... esults.xls

If you think you will be making more than 99 bets in a day change the following statements in module1

Code: Select all

Dim blankCells(99, 6) As String
Sheets("sheet2").Range("A2:F100") = blankCells


For example to change it to clear A2:F1000 it should read as follows.

Code: Select all

Dim blankCells(999, 6) As String
Sheets("sheet2").Range("A2:F1000") = blankCells


[philuk]

thanx for thet , Gary , just what i needed

Cheers