Try Counting

[armando]

Hi! I have a kid working in a sheet with a column list of words in his native language. He has to write the correct word in English in a second column. In a third column he will get a message "Well done" or "Try Again" (with IF formula ...). Is it possible to let him work on 20 words (for example) and then having counted the number of times he tried to write the list of words correctly?. Maybe counting the number of times the "Enter" key was pressed?. Then if the number of tries was below a preset number (25 or 30...) he finished the homework?.

Regards and Thanks for your help!.

 

[Andrew Poulsom]

The Worksheet_Change event procedure fires when the user changes a value in a cell, so you can use that to count the number of times Enter is pressed. Here is an example:

Private Sub Worksheet_Change(ByVal Target As Range)
    Static Counter As Integer
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
    If IsEmpty(Counter) Then
        Counter = 1
    Else
        Counter = Counter + 1
    End If
    MsgBox Counter
End Sub

 

[TryingToLearn]

I would suggest adding this change to Andrew's code

Private Sub Worksheet_Change(ByVal Target As Range) 
    Static Counter As Integer 
    If Target.Count > 1 Then Exit Sub 
    If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub 

    If Intersect(Target, Range("b1:b20")).Value = vbNullString Then Exit Sub 

    If IsEmpty(Counter) Then 
        Counter = 1 
    Else 
        Counter = Counter + 1 
    End If 
    MsgBox Counter 
End Sub

This will negate the count of worksheet change in that range where the incorrect answer is being cleared.

 

[Andrew Poulsom]

I would suggest adding this change to Andrew's code

Private Sub Worksheet_Change(ByVal Target As Range) 
    Static Counter As Integer 
    If Target.Count > 1 Then Exit Sub 
    If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub 

    If Intersect(Target, Range("b1:b20")).Value = vbNullString Then Exit Sub 

    If IsEmpty(Counter) Then 
        Counter = 1 
    Else 
        Counter = Counter + 1 
    End If 
    MsgBox Counter 
End Sub

This will negate the count of worksheet change in that range where the incorrect answer is being cleared.

That's a good idea. Presumably you've been testing it in a "real world" scenario.

 

[TryingToLearn]

I was just thinking like a kid learning something new (not hard for me to do!). First thing I'm going to do if I make a mistake is to delete it before anyone sees it!!!!!!!