Need help for a fundraising

[pilonsophie]

Hi alls, we need to collect fund for the family in need of my city. we are plaining to do a bingo which the price to participate is 2 can of food, we will sale popcorn and other stuff. Prize to win will be offer by store in the city. Someone offer us to use his set of bingo but there's no board to show the number and there's like 200 person who participate. We did it last year and it was a mess the person calling the numbers was using an excel sheet with the number of the bingo and put them in color, she had trouble to remove color without removing all etc etc. I found a template only but it need to be use with their random number generator and as I was trying to change it to had a cell to write my own numbers I have trouble with macro in it.

Can someone help me. I really need to be able to use my own number.

Thanks for the help.

ps. I'm french so excuse me if there's misspelling error :D

 

[mrshl9898]

This is based around the values being in A2:E16 and the interior color being no fill.

It will keep selecting a random cell, highlighting it Yellow and displaying it in G3.

Sub NextNumber()

Dim BingoNumRow As Long
Dim BingoNumCol As Long

nextnum:
BingoNumRow = WorksheetFunction.RandBetween(2, 16)
BingoNumCol = WorksheetFunction.RandBetween(1, 5)

If Cells(BingoNumRow, BingoNumCol).Interior.Color = 65535 Then
GoTo nextnum
End If
Cells(BingoNumRow, BingoNumCol).Interior.Color = 65535

Range("G3").Value = Cells(BingoNumRow, BingoNumCol).Value

End Sub


Sub Clear()

Range("A2:E16").Interior.Color = xlNone
Range("G3").Value = ""

End Sub