Button to generate random values (with min/max) through range of cells

[leebauman]

Can I create a button that produces random values through an array?

For example, I want a list of random numbers greater than 4 and less than 25 to appear in all cells A2:A10.

The numbers would remain until I press the button and then they'd re-randomize.

Thanks for considering!

 

[kevin9999]

Assuming you want whole numbers only, put a button on the sheet and attach the following code to it:

Sub Five_To_24()
    Dim a, b, i As Long, j As Long
    a = [ROW(5:24)]
    For i = UBound(a) To 2 Step -1
        j = Application.RandBetween(1, i)
        b = a(i, 1)
        a(i, 1) = a(j, 1)
        a(j, 1) = b
    Next i
    Range("A2:A10").Value = a
End Sub

 

[eiloken]

you can use

=RANDBETWEEN(4,25)

formula to do it, in vba, you can use:

Sub RandomNum()
    For i = 2 To 10
        ActiveSheet.Cells(i, 1).Value = Int(4 + Rnd * 22)
    Next i
End Sub

 

[kevin9999]

I want a list of random numbers greater than 4 and less than 25

@eiloken please note that both your suggestions can return both the number 4 and the number 25 which isn't exactly what the op asked for. Also, and it may not matter, but both your suggestions can lead to numbers being repeated, whereas the code in post #2 has no repeats in the list. As I said, that may not matter, up to the op's preference...

 

[eiloken]

@eiloken please note that both your suggestions can return both the number 4 and the number 25 which isn't exactly what the op asked for. Also, and it may not matter, but both your suggestions can lead to numbers being repeated, whereas the code in post #2 has no repeats in the list. As I said, that may not matter, up to the op's preference...

oh, i understand this now, thanks for your suggest

 

[leebauman]

I'm okay with values repeating. Also, a slight change...I need the output values to appear in C16:C380. I'm unable to figure out how to change the code so the values appear in that range rather than A2:A10 as I previously indicated.

Much appreciated!

 

[kevin9999]

In that case, something like this might do

Sub Rand5to24()
    With ActiveSheet.Range("C16:C380")
        .Formula = "=Randbetween(5,24)"
        .Value = .Value
    End With
End Sub

 

[leebauman]

That works perfectly. Thank you!

 

[kevin9999]

That works perfectly. Thank you!

Glad we were able to help & thanks for the feedback