Displaying Random Number

[Blue Cheeseburger]

I have a spreadsheet where the user clicks a button, and a random number is generated and displayed. If the new random number is the same as the previous number, it's hard to be sure that anything happened. I tried writing code so that when the user clicks the button, the previous number is cleared, and a MsgBox is displayed. When the user clicks the MsgBox, the new number is displayed. Is there a way to do something like this automatically, without requiring the user to click on a MsgBox? Thanks.

 

[rlv01]

You should post your code so we can see what might be the best solution.

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

 

[Blue Cheeseburger]

Here is my code:

Private Sub CommandButton4_Click()
Dim r As Integer

Range("ChosenNumber").Value = 0

Randomize
r = Int((6 - 1 + 1) * Rnd + 1)

MsgBox "Continue"

Range("ChosenNumber").Value = r

End Sub

 

[rlv01]

Your level of randomness is already pretty low, so I would solve the problem by not letting the function pick the same number twice in a row.

Private Sub CommandButton4_Click()
    Dim r As Integer
    
   'Randomize
    Do
        r = Application.WorksheetFunction.RandBetween(1, 6)
    Loop Until r <> Range("ChosenNumber").Value
    
    Range("ChosenNumber").Value = r
End Sub

 

[Blue Cheeseburger]

Thank you, rlv01. I had never tried using the RAND function. I think it's easier to understand than how I was doing it.