I am a football coach. We have 25 seconds to call a play. I have three different formulas on the view code. The first two are working but I can't get my 25 second timer to work. No matter how arrange them only the first two work. I only have a few hours to work this bug out. Thanks in advance.Here is the formula:
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pausetime As Single
Dim start As Single
Dim finish As Single
Range("y3").Value = Target.Value
If Intersect(Target, Range("y9:bc58")) Is Nothing Then Range("y3").Value = ""
rw = ActiveCell.Row
If rw< 9 Then Exit Sub
If rw > 58 Then Exit Sub
If ActiveCell.Column = 26 Then Cells(rw, 56).Value = Cells(rw, 56).Value + 1
If ActiveCell.Column = 41 Then Cells(rw, 57).Value = Cells(rw, 57).Value + 1
If Target.Address = Range("BA2").MergeArea.Address Then
pausetime = 25 ' Set duration.
start = Timer ' Set start time.
Sheets(1).Range("BA2").Value = _
Format(pausetime + (start - Timer), "##")
Loop
Sheets(1).Range("BA2").Value = 25
End If
End Sub
This message was edited by Yogi on 2002-11-01 13:37
This message was edited by Yogi on 2002-11-01 13:40
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pausetime As Single
Dim start As Single
Dim finish As Single
Range("y3").Value = Target.Value
If Intersect(Target, Range("y9:bc58")) Is Nothing Then Range("y3").Value = ""
rw = ActiveCell.Row
If rw< 9 Then Exit Sub
If rw > 58 Then Exit Sub
If ActiveCell.Column = 26 Then Cells(rw, 56).Value = Cells(rw, 56).Value + 1
If ActiveCell.Column = 41 Then Cells(rw, 57).Value = Cells(rw, 57).Value + 1
If Target.Address = Range("BA2").MergeArea.Address Then
pausetime = 25 ' Set duration.
start = Timer ' Set start time.
Sheets(1).Range("BA2").Value = _
Format(pausetime + (start - Timer), "##")
Loop
Sheets(1).Range("BA2").Value = 25
End If
End Sub
This message was edited by Yogi on 2002-11-01 13:37
This message was edited by Yogi on 2002-11-01 13:40