Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50090

Another "randomizer" questions for Ticket Quality Assurance

$
0
0
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

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

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.

Viewing all articles
Browse latest Browse all 50090

Trending Articles