10 Second Timer for Calling Bingo
Already have a spreadsheet ("Sheet1") that will display the bingo numbers at random when a button is clicked. There are two buttons ("Next Number" to display the next number and "New Game" to clear the board) that work just fine. I have tried to add a box that would "countdown from 10 seconds." Would like to create such a box that would (1)- cause no error when it get to "zero" and (2) would restart the "countdown" when the next number is displayed. How hard would it be to make this into an "automatic" program? Know there are commercial programs out there - but they have too many bells and info displayed. Any help would be appreciated!
Here are the two button marcos.
Private Sub btnDraw_Click()
Dim linenumber As Integer, numpick As Integer
Dim bingonum As String
linenumber = Range("E1").Value
numpick = Range("B" & linenumber).Value
Range("B" & linenumber).ClearContents
If numpick > 60 Then
bingonum = "O " & numpick
ElseIf numpick > 45 Then
bingonum = "G " & numpick
ElseIf numpick > 30 Then
bingonum = "N " & numpick
ElseIf numpick > 15 Then
bingonum = "I " & numpick
Else
bingonum = "B " & numpick
End If
Range("M8").Value = bingonum
End Sub
Private Sub btnReset_Click()
Dim linenumber As Integer
linenumber = 1
Do
Range("B" & linenumber).Value = Range("A" & linenumber).Value
linenumber = linenumber + 1
Loop Until Range("A" & linenumber).Value = ""
Range("M8").ClearContents
End Sub
|