generate numbers without reversing the dozen on the same line

[marreco]

Hi.
I need to create random numbers with 10 columns and 10 rows.


But for each line can not be the number opposite each decade.

<colgroup><col span="9"><col><col span="9"></colgroup><tbody></tbody>

79	22	48	70	04	98	09	41	32	56
59	17	42	67	5	67	94	47	46	21
85	66	70	90	89	83	84	50	81	36
83	50	36	3	57	55	20	39	51	77
23	67	39	29	12	86	68	18	87	73
90	3	54	26	72	17	69	13	44	36
10	11	37	98	84	19	63	54	22	59
65	26	3	55	68	61	9	76	75	69
33	28	38	59	87	74	63	60	41	90
94	50	01	29	59	8	33	47	87	91

<colgroup><col span="10"></colgroup><tbody>
</tbody>

see the first line was generated as the number 79, then this same line, can not generate the number 97.


number 22 in this case is OK.


The first line was generated the number 84, then this is not the same line, you can generate the number 48.


The first line was generated the number 07, then this is not the same line, you can generate the number 70.


and so

97

22

84

07

40

98

90

14

23

65

<tbody>
</tbody>

 

[marreco]

Hi.

for each row, I have 10 numbers with 2 digits.
this same line can not have the opposite digit.
eg
01 .... 70 ... 10 in this same line there can be, the number 10 and 07
or
10 ... 07 ... 01 in the same row can not be, the number 01 and 70

 

[FormR]

Hi.

for each row, I have 10 numbers with 2 digits.
this same line can not have the opposite digit.
eg
01 .... 70 ... 10 in this same line there can be, the number 10 and 07
or
10 ... 07 ... 01 in the same row can not be, the number 01 and 70

You didn't answer Ricks questions..

Some questions...

1. Are all the numbers on the same row supposed to be unique (that is, no repeats anywhere among the values on the same row)?

2. If the numbers are not unique, can the first number be repeated?

3. I don't understand your comment about 22... are you saying 22 can repeat?

This version of my code allows duplicates but not reversed numbers, but I'm sure Rick can provide more effecient code.

Sub TEST()

Dim IsUnique As Boolean
Dim iNum As Integer
Dim r As Long
Dim c As Long

For r = 1 To 10

    ReDim Arr(0)
    
    'First Number
    iNum = WorksheetFunction.RandBetween(1, 99)
    Range("A1").Cells(r, 1).Value = iNum
        Arr(0) = fRNum(iNum)
        
    'Remaining numbers
    For i = 2 To 10
        IsUnique = False
        Do While IsUnique = False
            iNum = WorksheetFunction.RandBetween(1, 99)
                For x = 0 To UBound(Arr)
                    If iNum = Arr(x) Then
                        IsUnique = False
                        Exit For
                        Else
                        IsUnique = True
                    End If
                Next x
        Loop
                 
    ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(UBound(Arr)) = fRNum(iNum)
    Range("A1").Cells(r, i).Value = iNum

    Next i

Next r

End Sub

Function fRNum(iNum As Integer) As Integer

If iNum < 10 Then
    fRNum = iNum * 10
    Else
    fRNum = (Right(iNum, 1) & Left(iNum, 1))
End If

End Function