Strange - Updating twice - bug?

[alrodopial]

Garry please test the below code:

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
            Lrow = Cells(Rows.Count, "A").End(xlUp).Row
            Range("A" & Lrow + 1) = "YES"
        Application.EnableEvents = True
    End If
End Sub

It simply puts "YES" in the first free cell in column A.
Place something in cell A30 so any update will be below this cell.
Chose a refresh rate of lets say 2 secs.
In the horse market , from the - Folk 6June - chose the first race from the quick pick list and watch the "YES" that is entered in column A.
At every refresh it puts one "YES" in the next available cell, then you pick the next race in the list - it's ok - but if you choose the 15:30 win race it puts instantly a "yes" in the next TWO cells.
It does it only if you come to this market from another market.
It looks like it updates the 16 rows twice.
It does the same with other markets from the list but not so often.

Can you check it?

[GaryRussell]

It's not a bug. Try the following code and you will see.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
            lrow = Cells(Rows.Count, "A").End(xlUp).Row
            Range("A" & lrow + 1) = Now
            Range("B" & lrow + 1) = Target.Row & "," & Target.Column
            Range("C" & lrow + 1) = Target.Rows.Count
        Application.EnableEvents = True
    End If
End Sub

The first of the two updates is to clear the rows from the previous market if the next market has fewer selections. The above code outputs more information so you can see it's not updating the exact same cells.

[alrodopial]

What code do you suggest to identify this "false" 16 rows update and bypass it?( run any initialise market code at the next refresh )

[alrodopial]

What BA does when you have just opened a sheet that you used it yesterday and has data in cells?

[alrodopial]

A simple flag will do the job

[GaryRussell]

What BA does when you have just opened a sheet that you used it yesterday and has data in cells?

It will do the same. It will check if the row below the last selection is blank and if it is not it will do a separate write to blank them.

What code do you suggest to identify this "false" 16 rows update and bypass it?( run any initialise market code at the next refresh )

Assuming you output at A1 then check for 16 columns and the start row being 1 as below.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 and Target.Row=1 Then
        Application.EnableEvents = False
            lrow = Cells(Rows.Count, "A").End(xlUp).Row
            Range("A" & lrow + 1) = Now
            Range("B" & lrow + 1) = Target.Row & "," & Target.Column
            Range("C" & lrow + 1) = Target.Rows.Count
        Application.EnableEvents = True
    End If
End Sub