Clearing Fields

[Shaun]

I was wondering what fields are supposed to clear in the trigger section when you manualy select another race, nothing on mine clears i have to clear it manualy.

[GaryRussell]

They are not meant to clear when you manually select a race. They are only cleared when auto selected from the quick pick list.

[Shaun]

Is it possible to have them clear, i would think if i am manually selecting a race that i am finished with the last race and would want them to clear

[MarkRussell]

Hi,

I'm afraid the answer is no.
We have to consider the impact to other users and since this is the way it has been designed this is how users would expect the program to behave.

A solution for you would be to create a button on your sheet which you could then assign a macro to, to clear the cells.

Regards,
Mark

[Ian]

I have a macro on my sheets to clear the fields. Could there not be an option to clear the fields on manual change of market like there is for auto select ? I can think of any reason why I wouldn't want the fields to be cleared, after all they won't relate to the selection on the row, in any case.

[GaryRussell]

OK, if it is optional it can't do any harm. I'll add a tick box for the option.

[Shaun]

An option would be great, just like the one you have already when you attache the sheet for auto markets.

I do have a macro to clear the sheet right now but a manual one that i forget to press some times, lol.

Thanks you do a great job in setting things up just right.

[Ian]

Shaun, you could make the macro run automatically when A1 changes until Gary makes the update.

[Shaun]

I am not good with macros i recorded the one i am using and would'nt know how to set it up.

[bolpx001]

Is it possible to have them clear, i would think if i am manually selecting a race that i am finished with the last race and would want them to clear

I think people need to be aware that Gary's software is used and abused in a wide variety of ways. I can see where Shaun is coming from but because of the way I use the software to gather data, it would not be a good option for me to have this alteration made. Even changing the software to make it an optional choice makes me kind of nervous. I have found that in all sorts of program development, the knock-on effect can be lethal, even with the best will in the world options can be inadvertently changed and if any sort of programmed automatic betting is being used the effects can be disastrous. - best regards Paul

[Shaun]

If this is a big issue i don't want to upset anyone, i would be happy if some one wrote me the correct macro to clear the cells i needed automaticly when cell a1 was updated.

[Shaun]

I have this code but unable to make it work

Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Sheets("Data").Range("A1") Then

Sheets("Data").Range("T5:x29").Select
Selection.ClearContents
Sheets("Control").Range("A1").Select

End If
End Sub


I am a bit confused

My sheet is run from "Control"
all i need it to do is check for changes in A1 on data and if changed clear cells T5:X29 on "data"

Where do i also need to place this code, in sheets or in the moduel

[Ian]

I use this code which was supplied by another memeber ..

Public sRaceDets As String

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

' Check for new race being loaded
If iCol = 1 And iRow = 1 Then
If LCase(cell.Value) <> sRaceDets Then
sRaceDets = LCase(cell.Value)

Application.EnableEvents = False


Sheets("Data").Range("T5:x29").Select
Selection.ClearContents
Sheets("Control").Range("A1").Select


Application.EnableEvents = True
End If
End If
Next cell
End Sub

In your case, the code would need to be attached to your Data worksheet.

[Captain Sensible]

Someone wrote this code in the early days and I've always included it within my sheets to clear the data when switching markets

Private Sub Worksheet_Calculate()
Static MyMarket As Variant
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
GoTo Xit
Else
MyMarket = [A1].Value
Range("T5:X50").Value = ""
Range("A5:P50").Value = ""
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

[Captain Sensible]

Ooops no edit button to add extra stuff.

Just need to press Alt + F11 to bring up the VB editor and paste the code into whichever sheet you want the data to be cleared from