how to pick random text value from list of database.

[erkamu]

Hello,
I was searching a lot to find solution on what I need but was not able to find anything.
So in sheet 1 , column A I will have lost of 2000 words which I will populate.
In sheet 2 I need a small window (one cell) where when I click a button MIXING VBA code randomly and quickly changes values that are taken from sheet 1, columnA.
When I click on another button (STOP) VBA code stops one last shown value.....
When I click MIX button - mixing continues... and VBA randomly and quickly changes values that are taken from sheet 1, columnA and again when I pres STOP button another value in the window is frozen.


It will be good not to have repetiotion of one and the same text value upon STOP button press.


Can this be done with VBA code???
Thanks for your help.

[Pepe Le Mokko]

Perhaps post your existing code? A worksheet as described in the banner?

[erkamu]

Hello,
Thanks for the advice. Worksheet with explanation is attached.

[Rick Rothstein]

Give these two macros a try (assign the Mix macro to your mix button and the Pick macro to your stop button)...

Please Login or Register  to view this content.

NOTE: That free-floating Dim PickPushed As Boolean statement is correct and must be located where shown above the two macros.

[erkamu]

Rick,
Thanks for the proposed code. Works great. I have just make the timer faster by changing line for timer from Do Until Timer > T + 0.1 to Do Until Timer > T + 0.001.

Could you show me how I can list all the chosen values in column h? For example first chosen text value is word3. It should appear in cell H1.
Then I restart the mixing and stop again. shown text is word7. It should be shown in cell H2 ... and so on....

[Rick Rothstein]

Could you show me how I can list all the chosen values in column h?

Replace the Pick macro I gave you earlier with this one...

Please Login or Register  to view this content.

[erkamu]

Great!!!!
THANKS a LOT for your help RICK

[torachan]

Another version to try.