MsgBox "You must select the entire column!", vbCritical MsgBox "Only select one column at a time!", vbCriticalĮlseIf < Rows.Count Then MsgBox "You must make your selection on the ""Blank"" sheet!", vbCritical Here is the macro.ĭim cnt As Long, RandomIndex As Long, LastRow As Long, tmp As Variant, ArrayIn As Variant Continue doing this until all the names have been "used", then select the entire column and run the macro to randomize the list again. The next time you need names, select the next 5 names below the last colored cell in that column (remember, the list is in a random order, so you can just keep selection on down the list without randomizing it again, that way you are assured each person is used only one time per rotation of the list). What I suggest you do is randomize the list, the select the first 5 names and fill their cells with some color so you can keep track of what names were already selected. I am making you choose the entire column so that you don't accidentally randomize a column of names that you have not finished picking from.
#Random picker excel formula code
The code will grab the names from the "check off" sheet for the selected column letter designation, randomize those names and then place that randomized list of names into the "Blank" sheet in the selected column.
To use the macro below, first select the entire column on the blank sheet whose names you want mix up in random order. First, I assume the headers on Row 1 of the Blank sheet are the same and in the same order as those on Row 1 of the "check off" sheet. Click to expand.Give the following concept a try.
0 kommentar(er)
