Macro to generate nmbers

[howard]

I have numbers 1 to 52. I want to generate 6 randon numbers per row in Cols A to F from 1 to 32 on a random basis

My Code generates 10 numbers per row for Col A to F but cannot get it to work correctly

Kindly amend my code

 Sub GenerateLottoNumbers()
    Dim rng As Range
    Dim i As Integer, j As Integer
    
    ' Set the range where you want to generate the Lotto numbers
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:F6") ' Adjust the sheet name and range as needed
    
    ' Clear previous data in the range
    rng.ClearContents
    
    ' Loop through each row in the range
    For i = 1 To rng.Rows.Count
        ' Loop through each column in the row
        For j = 1 To 6
            ' Generate 6 random numbers between 1 and 32
            rng.Cells(i, j).Value = Int((32 - 1 + 1) * Rnd + 1)
        Next j
    Next i
End Sub

 

[Legacy 143009]

Your code seems to be OK.
For j = 1 To 6
This means it goes from 1st to 6th column. How come you have 10 numbers from A to F?

 

[kevin9999]

Hi Howard, if I understand your need correctly, please try the following:

Sub howard()
    Range("A1").CurrentRegion.ClearContents
    With Range("A1")
        .Formula2 = "=SORT(TRANSPOSE(INDEX(UNIQUE(RANDARRAY(6^2, 1, 1, 32, TRUE)), SEQUENCE(6))),1,1,1)"
        .Resize(10).FillDown
        With .CurrentRegion
            .Value = .Value
        End With
    End With
End Sub

 

[howard]

I should only have 6 numbers per column and Not 10 . Not Sure why it is generating 10 numbers

 

[howard]

Thanks for the help Kevin. It is generating 10 numbers per Col A to F instead if 6 numbers per Col from 1 to 32

Generate 6 Random Numbers in 6 Cols.xlsm

 

[Sanjeev1976]

Hi Howard,
I have just tweaked Kevin's code to meet your requirement as per my understanding of your post

Sub howard()
    Range("A1").CurrentRegion.ClearContents
    With Range("A1")
        .Formula2 = "=TRANSPOSE(INDEX(UNIQUE(RANDARRAY(6^2, 1, 1, 52, TRUE)), SEQUENCE(6)))"
        .Resize(32).FillDown
        With .CurrentRegion
            .Value = .Value
        End With
    End With
End Sub

 

[Legacy 143009]

Your first code works perfectly fine for me. Modify Kevins code for 6 rows per column:

.Resize(6).FillDown

 

[kevin9999]

Maybe this?

Sub howard()
    Range("A1").CurrentRegion.ClearContents
    With Range("A1:F1")
        .Formula2 = "=INDEX(UNIQUE(RANDARRAY(6^2, 1, 1, 32, TRUE)), SEQUENCE(6))"
        With .CurrentRegion
            .Value = .Value
        End With
    End With
End Sub

Book1
	A	B	C	D	E	F	G
1	22	20	23	4	26	23
2	9	29	2	27	30	27
3	28	21	28	28	19	21
4	4	22	25	32	17	7
5	7	23	15	19	18	28
6	26	10	8	22	27	26
7
Sheet1

 

[howard]

Hi Howard,
I have just tweaked Kevin's code to meet your requirement as per my understanding of your post

Sub howard()
    Range("A1").CurrentRegion.ClearContents
    With Range("A1")
        .Formula2 = "=TRANSPOSE(INDEX(UNIQUE(RANDARRAY(6^2, 1, 1, 52, TRUE)), SEQUENCE(6)))"
        .Resize(32).FillDown
        With .CurrentRegion
            .Value = .Value
        End With
    End With
End Sub

Thanks Sanjeev. I amended Code below

    .Resize(32).FillDown to 
[QUOTE]
    .Resize(6).FillDown

[/QUOTE]

 

[howard]

Thanks Flashpond &Kevin