Sub FillGrid()[INDENT]Randomize[/INDENT]
[INDENT]Dim rw as Long, cl as Long, i as Long
i = 1
Do[/INDENT]
[INDENT=2]rw = Int((8 - 1 + 1) * Rnd + 1) + 1
cl = Int((8 - 1 + 1) * Rnd + 1) + 1[/INDENT]
[INDENT=2]If Cells(rw, cl).Interior.Color <> RGB (0, 0, 0) Then[/INDENT]
[INDENT=3]Cells(rw, cl).Interior.Color = RGB (0, 0, 0)
i = i + 1[/INDENT]
[INDENT=2]End If[/INDENT]
[INDENT]Loop Until i = 33[/INDENT]
End Sub[INDENT]
[/INDENT]
[INDENT]
[/INDENT]Sub ClearGrid()[INDENT]Range("B2:I9").Interior.Color = xlNone[/INDENT]
End SubSub FillGrid()
Randomize
Dim rw as Long, cl as Long, i as Long
i = 1
Do
rw = Int((8 - 1 + 1) * Rnd + 1) + 1
cl = Int((8 - 1 + 1) * Rnd + 1) + 1
If Cells(rw, cl).Interior.Color <> RGB (0, 0, 0) Then
Cells(rw, cl).Interior.Color = RGB (0, 0, 0)
i = i + 1
End If
Loop Until i = 33
End SubSub ClearGrid()
Range("B2:I9").Interior.Color = xlNone
End SubSub FillGrid()
ClearGrid
Randomize
Dim rw As Long, cl As Long, i As Long
i = 1
Do
rw = Int((8 - 1 + 1) * Rnd + 1) + 1
cl = Int((8 - 1 + 1) * Rnd + 1) + 1
If Cells(rw, cl).Interior.Color <> RGB(0, 0, 0) Then
Cells(rw, cl).Interior.Color = RGB(0, 0, 0)
i = i + 1
End If
Loop Until i = 33
End Sub
Sub ClearGrid()
Range("B2:I9").Interior.Color = xlNone
End Sub
That means you have two or more procedures with the same name. Find the one you want to use and delete all of the others.
I know what the thread title says, but if you read Message #1 carefully, I think you will see the OP is not looking for a regular checkerboard pattern, rather, he seems to be asking for half of a the squares on a checkerboard to be randomly selected and colored (his problem appears to be limiting the randomizing selection to 32 non-repeating squares).
