Oh4fore

[Oh4fore]

4 Rows and 4 columns using numbers 1 through 16 insert in the 16 numbers in all cells using every combinations should be 5 possible groups


example A1=1 B1=2 C1=3 D1=4
A2=5 B2=6 c2+7 D2=8
A3=9 B3=10 C3=11 D3=12
A4=13 B4=14 C4=15 D4=16

 

[Gerald Higgins]

Hi, welcome to the board.

What is your question ?

 

[Oh4fore]

I need 5 groups of 16 cells with the numbers 1 through 16 inserted in each group. I need #1 to be with every other number only once, . #2 with every other number only once and so on

 

[shg]

Like this, for example?

A​

B​

C​

D​

E​

F​

G​

H​

I​

J​

K​

L​

M​

N​

O​

P​

1​

8​

6​

5​

11​

3​

10​

9​

16​

7​

4​

14​

2​

15​

1​

13​

12​

2​

12​

1​

7​

16​

5​

9​

2​

6​

8​

11​

13​

3​

14​

15​

10​

4​

3​

11​

14​

12​

1​

8​

3​

5​

15​

4​

6​

9​

7​

10​

13​

2​

16​

4​

5​

11​

2​

12​

9​

14​

13​

4​

3​

8​

1​

10​

6​

16​

15​

7​

5​

4​

15​

8​

6​

7​

2​

3​

1​

12​

16​

10​

5​

13​

14​

9​

11​

 

[DanteAmor]

I need 5 groups of 16 cells with the numbers 1 through 16 inserted in each group.

For the 5 groups.

<table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /><col style="width:21.86px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >B</td><td >C</td><td >D</td><td >E</td><td >F</td><td >G</td><td >H</td><td >I</td><td >J</td><td >K</td><td >L</td><td >M</td><td >N</td><td >O</td><td >P</td><td >Q</td><td >R</td><td >S</td><td >T</td><td >U</td><td >V</td><td >W</td><td >X</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td colspan="4" style="background-color:#ffff00; text-align:center; ">GROUP 1</td><td > </td><td colspan="4" style="background-color:#92d050; text-align:center; ">GROUP 2</td><td > </td><td colspan="4" style="background-color:#b8cce4; text-align:center; ">GROUP 3</td><td > </td><td colspan="4" style="background-color:#fcd5b4; text-align:center; ">GROUP 4</td><td > </td><td colspan="4" style="background-color:#b2a1c7; text-align:center; ">GROUP 5</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">3</td><td style="text-align:right; ">10</td><td style="text-align:right; ">6</td><td style="text-align:right; ">2</td><td > </td><td style="text-align:right; ">8</td><td style="text-align:right; ">14</td><td style="text-align:right; ">1</td><td style="text-align:right; ">16</td><td > </td><td style="text-align:right; ">14</td><td style="text-align:right; ">1</td><td style="text-align:right; ">4</td><td style="text-align:right; ">9</td><td > </td><td style="text-align:right; ">9</td><td style="text-align:right; ">6</td><td style="text-align:right; ">3</td><td style="text-align:right; ">14</td><td > </td><td style="text-align:right; ">10</td><td style="text-align:right; ">14</td><td style="text-align:right; ">6</td><td style="text-align:right; ">13</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">12</td><td style="text-align:right; ">1</td><td style="text-align:right; ">9</td><td style="text-align:right; ">11</td><td > </td><td style="text-align:right; ">11</td><td style="text-align:right; ">4</td><td style="text-align:right; ">12</td><td style="text-align:right; ">5</td><td > </td><td style="text-align:right; ">12</td><td style="text-align:right; ">11</td><td style="text-align:right; ">3</td><td style="text-align:right; ">13</td><td > </td><td style="text-align:right; ">7</td><td style="text-align:right; ">4</td><td style="text-align:right; ">10</td><td style="text-align:right; ">1</td><td > </td><td style="text-align:right; ">3</td><td style="text-align:right; ">7</td><td style="text-align:right; ">2</td><td style="text-align:right; ">5</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">15</td><td style="text-align:right; ">5</td><td style="text-align:right; ">14</td><td style="text-align:right; ">7</td><td > </td><td style="text-align:right; ">2</td><td style="text-align:right; ">15</td><td style="text-align:right; ">7</td><td style="text-align:right; ">3</td><td > </td><td style="text-align:right; ">15</td><td style="text-align:right; ">10</td><td style="text-align:right; ">5</td><td style="text-align:right; ">8</td><td > </td><td style="text-align:right; ">15</td><td style="text-align:right; ">8</td><td style="text-align:right; ">12</td><td style="text-align:right; ">13</td><td > </td><td style="text-align:right; ">16</td><td style="text-align:right; ">12</td><td style="text-align:right; ">11</td><td style="text-align:right; ">1</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">16</td><td style="text-align:right; ">4</td><td style="text-align:right; ">8</td><td style="text-align:right; ">13</td><td > </td><td style="text-align:right; ">9</td><td style="text-align:right; ">13</td><td style="text-align:right; ">6</td><td style="text-align:right; ">10</td><td > </td><td style="text-align:right; ">6</td><td style="text-align:right; ">7</td><td style="text-align:right; ">16</td><td style="text-align:right; ">2</td><td > </td><td style="text-align:right; ">2</td><td style="text-align:right; ">11</td><td style="text-align:right; ">16</td><td style="text-align:right; ">5</td><td > </td><td style="text-align:right; ">4</td><td style="text-align:right; ">9</td><td style="text-align:right; ">8</td><td style="text-align:right; ">15</td></tr></table>

Try this:

Sub Groups5()
  Dim dict As Object, i As Long, x As Long, y As Long, j As Long
  Set dict = CreateObject("scripting.dictionary")
  For i = 1 To 16
    dict(i) = i
  Next
  For j = 1 To 5
    For i = 1 To 16
      x = WorksheetFunction.RandBetween(1, 16)
      y = dict(x)
      dict(x) = dict(i)
      dict(i) = y
    Next
    i = 1
    For Each c In Cells(2, ((j - 1) * 5) + 1).Resize(4, 4)
      c.Value = dict(i)
      i = i + 1
    Next
  Next
End Sub