Microsoft Excel: is this possible

[theren_911]

Hello all!

I'm doing a little project at work which requires a sort of Bingo Card.

I have an Excel spreadsheet with a list of around 100 numbers, I need to randomly blank out 30 of these on 30 different printouts for the "bingo effect"

Does anyone know if this is possible on Excel and if it is a brief description of how to do it would be most appreciated!

Ren

[Haggisdj]

The way I'd do it is to use Macros or VBA. I'll try and have a go for you if I get a moment at work.

[Haggisdj]

How are the rows arranged? Is it 10 x 10, 5 X 20 ? By 30 print-outs, would 30 separate worksheets do and then just print them all ??

[theren_911]

Its arranged in 3 columns with ~105 rows. It's not exactly a bingo card, just bingo in the sense that it's going to be played in a similar way, I'll need to be blanking out 30 rows on each sheet.

thanks for taking an interest ;)

[Haggisdj]

Hi

Done a bit of work on your problem. Let me know if this is what you want so far. First bit is instruction, second bit is the code.

Instructions

Click on Tools -> Macros -> Visual Basic Editor

A new window will open

Click on Insert -> Module

Copy and Paste this following code into the Module

SAVE

Click Run -> Run Sub/UserForm or Press F5

View the workseet

[Haggisdj]

Option Explicit


Sub FormatSheet()

Dim iRowCount As Integer
Dim iColumn As Integer
Dim iLoop As Integer


Columns("A:C").Select
Selection.ColumnWidth = 18.14
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

For iColumn = 1 To 3
For iLoop = 1 To 105
Cells(iLoop, iColumn) = iLoop
Next
Next

Cells(1, 1).Select

End Sub