So just Friday I posted a topic which has been resolved. Of course I have now been tasked with assigning the Quality Assurance out to teammates.
I have made a few adjustments to the randomizer from my previous post which is about half working. What I would like is to span 10 weeks out without having a employee review themselves and not review the same person more than once in a 10 week period.
Here is my half working code
Here is what my workbook looks like with M - Y hidden.
QA Assinger Screenshot.png
Feel free to ask me questions if you are confused since I may not be wording things well.
I have made a few adjustments to the randomizer from my previous post which is about half working. What I would like is to span 10 weeks out without having a employee review themselves and not review the same person more than once in a 10 week period.
Here is my half working code
Code:
Sub Random_Assigner()
Dim Agent As Variant, r As Long, cell As Range
Agent = Range("Z1", Range("Z" & Rows.Count).End(xlUp))
For Each cell In Range("B2:B12")
Do
r = Int((UBound(Agent) * Rnd) + 1)
Loop Until Len(Agent(r, 1))
cell.Value = Agent(r, 1)
Agent(r, 1) = vbNullString
Next cell
End Sub
QA Assinger Screenshot.png
Feel free to ask me questions if you are confused since I may not be wording things well.