Random select of text

[Tanya]

Hi,
I have a list of questions, which I want to be selected on another sheet at
random, the range is Sheet1!A1:A10 and when I run a command, I wish to have
one of the questions from the selected range chosen at random.
ie. [very simplistic example]
Sheet 1
A1 = What colour is grass?
A2 = What colour is the sky?

Sheet 2
A1 contains the result of this function and is calculated when the function
is called by a command button.

I hope this all makes sense?

Thanking you all in advance.

Cheers
Tanya

 

[JMB]

you could paste this macro into a vba module and assign it to a forms button
on the worksheet

Sub Test()
Dim lngRandom As Long

Randomize
lngRandom = Int((10 * Rnd) + 1)
Range("A1").Value = Worksheets("Sheet1").Range("A" & lngRandom)

End Sub

 

[Tanya]

Thank you JMB,
works great!

cheers
Tanya

you could paste this macro into a vba module and assign it to a forms button
on the worksheet

Sub Test()
Dim lngRandom As Long

Randomize
lngRandom = Int((10 * Rnd) + 1)
Range("A1").Value = Worksheets("Sheet1").Range("A" & lngRandom)

End Sub

Hi,
I have a list of questions, which I want to be selected on another sheet at
random, the range is Sheet1!A1:A10 and when I run a command, I wish to have
one of the questions from the selected range chosen at random.
ie. [very simplistic example]
Sheet 1
A1 = What colour is grass?
A2 = What colour is the sky?

Sheet 2
A1 contains the result of this function and is calculated when the function
is called by a command button.

I hope this all makes sense?

Thanking you all in advance.

Cheers
Tanya

 

[JMB]

glad to hear it worked for you - thanks for the feedback

Thank you JMB,
works great!

cheers
Tanya

you could paste this macro into a vba module and assign it to a forms button
on the worksheet

Sub Test()
Dim lngRandom As Long

Randomize
lngRandom = Int((10 * Rnd) + 1)
Range("A1").Value = Worksheets("Sheet1").Range("A" & lngRandom)

End Sub

Hi,
I have a list of questions, which I want to be selected on another sheet at
random, the range is Sheet1!A1:A10 and when I run a command, I wish to have
one of the questions from the selected range chosen at random.
ie. [very simplistic example]
Sheet 1
A1 = What colour is grass?
A2 = What colour is the sky?

Sheet 2
A1 contains the result of this function and is calculated when the function
is called by a command button.

I hope this all makes sense?

Thanking you all in advance.

Cheers
Tanya