Random fill 1X2

[Kishan]

I need a VBA or a formula, which can fill random 1X2 in the cells C6:E19

Example....

Book1
	A	B	C	D	E	F	G
1
2
3			1	X	2
4
5		1	1
6		2	1
7		3			2
8		4		X
9		5	1
10		6		X
11		7			2
12		8		X
13		9		X
14		10	1
15		11		X
16		12			2
17		13		X
18		14	1
19
20
21
22
Sheet3

Thank you in advance

Regards,
Kishan

 

[Kishan]

How about:

Sub f1x2()
  Dim r As Range, c As Range, n As Long
  Set r = Range("B6:B19")
  r.Offset(, 1).Resize(r.Rows.Count, 3).ClearContents
  Randomize
  For Each c In r
    n = Int(3 * Rnd + 1)
    c.Offset(, n) = Choose(n, "1", "x", "2")
  Next
End Sub

DanteAmor, it worked fine! thank you very much
kind Regards,
Kishan

 

[Kishan]

Silly mistake on my part... I forgot an Int function call. Here is the revised code...

Sub Random1X2()
  Dim R As Long, RndNum As Long
  Randomize
  Range("C6:E19").Clear
  For R = 6 To 19
    RndNum = Int(3 * Rnd + 1)
    Cells(R, "B").Offset(, RndNum) = Mid("1X2", RndNum, 1)
  Next
End Sub

Rick, thank you so much it worked well! Generating all 14 random perfectly
kind Regards,
Kishan

 

[DanteAmor]

DanteAmor, it worked fine! thank you very much
kind Regards,
Kishan

I'm glad to help you. Thanks for the feedback.