Bingo card

[jooquase]

Hi all, I was wondering if there was a way to have a series of Different Random results.
For example if I want to randomly generate a bingo card, I am able to Randomly fill the card, but I canot find a way to prevent duplicates in my colums ...
Does any one know of any way to do this ?

 

[ChrisUK]

Hi and welcome to the board!

One way of doing this would be to add your generated numbers into an array and for each number scan down the array, if it already exists generate it again, if not add it and move to the next.

HTH

Chris

 

[xapie128]

Try:

Dim n(15) As Integer

Sub BingoCard()

  Randomize (Timer)
  
  [A1:E6].Clear
  [A1:E6].Select
  With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
  End With

  [A1] = "B"
  [B1] = "I"
  [C1] = "N"
  [D1] = "G"
  [E1] = "O"
  
  [A2].Select
  
  For w = 0 To 4
    
    For x = 1 To 15
      n(x) = 0
    Next
    
    For y = 1 To 5
TryAgain:
      z = Int(15 * Rnd + 1)
      If n(z) <> 0 Then GoTo TryAgain
      n(z) = z
      ActiveCell.Offset(y - 1, w) = (w * 15) + z
    Next
  Next
  
End Sub