Can you seed a value into Rnd?

[User Name]

I'm using Rnd to generate random sequences. Out of 10 generated sequences only one of the sequences has GOOD Characteristics. It would be nice if I could save the seed value of this GOOD sequence and then tell Rnd what value to start on so that I could generate this sequence right off the bat and skip the other 9 runs. Is there a way to do this?

 

[shg]

See Help for the Randomize statement.

 

[User Name]

I've been trying to play with randomize without much luck. I'll give it another shot.

 

[User Name]

Here's where I'm confused. In the following code I'm expecting to see the same value for y2 as I do for y? This isn't happening. Can you tell me what I'm doing wrong?

z = Rnd
y = Rnd
Randomize z
y2 = Rnd

 

[shg]

For example,

Option Explicit
 
Dim fSeed           As Single
 
Sub FindOneILike()
    Dim i           As Long
    Dim avf(1 To 10) As Variant
    Dim sout        As String
 
    avf(1) = Rnd(-1)
 
    Do
        Rnd -1
        fSeed = avf(1)
        Randomize fSeed
        sout = vbNullString
        For i = 1 To 10
            avf(i) = Rnd
        Next i
    Loop Until MsgBox(Prompt:=Join(avf, vbLf) & vbLf & vbLf & "Like it?", _
                      Buttons:=vbYesNo) = vbYes
 
    MsgBox "Your seed is " & fSeed
    Debug.Print fSeed
End Sub
 
Sub UseIt()
    Dim i           As Long
    Dim avf(1 To 20) As Variant
    Dim f           As Single
    Rnd -1
    Randomize fSeed
    For i = 1 To 20
        avf(i) = Rnd
    Next i
    MsgBox Prompt:=Join(avf, vbLf)
End Sub

EDIT: You need to read the Help a lttle more carefully:

Note To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.