Macro to generate a random number between 2 specific values into specific cells.

Hello everyone,

I've lurked here for a while and it's helped me quite a bit in the past, but now I find myself stumped on what is probably the "easiest" macro I've put together.

Essentially what I'm trying to do is make a button, that when pressed, generates a random number between 81 and 103 in cells B34:37 that I can press over and over to my heart's content.

I don't have the add-in that allows me to use the formula "=RANDBETWEEN()" or elst I'd just use that, and I've tried to google this and came up with nothing. I found various tid-bits of code here and there, but I couldn't fit it together to do what I wanted it to.

Thanks in advance for the help.

Sub randomNumber()
    Dim x As Integer
    Dim y As Integer
    
'For y = 1 To 3
'    my_Rand_Num = Int(21 * Rnd + 83)
'    Range("B" & y + 32).Value = my_Rand_Num
'Next y

For y = 1 To 3
    Range("B" & y + 32).Value = Int(21 * Rnd + 83)
Next y

End Sub

This should do it.

Hello and welcome to the forum,

Randbetween is both available in Excel versions 2003 and up. I don't know why you're not seeing it.

Luckily there is already a workaround ready on Chip Pearson's site. I have tweaked it and works fine on my computer:

Option Explicit

Sub RandMe()
  Dim e%, Low#, High#, R%, Arr(1 To 4)
   For e = 1 To 4
    Low = 81 '<<< CHANGE AS DESIRED
    High = 103 '<<< CHANGE AS DESIRED
    R = Int((High - Low + 1) * Rnd() + Low)
    Arr(e) = R
   Next
   Range("B34:B37") = Application.Transpose(Arr)
End Sub

The short version would be:

Option Explicit

Sub RandMe()
  Dim e%, Arr(1 To 4)
   For e = 1 To 4
    Arr(e) = Int(23 * Rnd() + 81)
   Next
   Range("B34:B37") = Application.Transpose(Arr)
End Sub

abousetta