Random automated number allocator

Hi all,

Thank you to everyone for your help so far on this site.
I am slowly getting more competent with excel, but need some help - perhaps direction where I could find out how to do this.

I have taken on a project that is would seem is far out of my league right now, but need to deliver.

I have attached the example spreadsheet to help explain what I am trying to achieve, which is basically a random automated number allocator.

Look forward to receiving your replies,

Thanks,

Dan

Example.xlsx

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

To mods: As the title has been changed from:
A little bit of programming I think?!
to
Random automated number allocator

I assume it is not against rule 7 to answer.

Have a look on a skeleton of the main loop. of course you have to add a lot there to have a fully functional one, but as for the start - try this:

Sub allocate_trainers()
Dim CPsh As Worksheet, NAsh As Worksheet
Dim blocks() As Range, trainers, blockaddress
Dim i As Long, j As Long, to_allocate As Long, allocated As Long, counter As Long, where As Long
Randomize
Set CPsh = Sheets("Control Panel")
Set NAsh = Sheets("Number Allocation")
trainers = WorksheetFunction.Transpose(CPsh.Range("A4:A6").Value)
blockaddress = Split("G3:G21,G24:G47", ",")
For i = 1 To 2 'to number of blocks
  ReDim Preserve blocks(1 To i)
  Set blocks(i) = NAsh.Range(blockaddress(i - 1))
  blocks(i).ClearContents
  For j = 1 To 3 'all trainers
    counter = 0
    to_allocate = 3 'of course calculate based on data from CPsh and already assigned
    allocated = 0
    Do
      where = 1 + Int(blocks(i).Rows.Count * Rnd)
      If blocks(i).Cells(where) = "" Then
        blocks(i).Cells(where) = trainers(j)
        allocated = allocated + 1
      End If
    Loop Until allocated = to_allocate Or counter > 1000
    If counter > 1000 Then
      MsgBox "Do something here, not all allocated!"
    End If
  Next j
Next i
End Sub

I would probably autofilter data with thainer as criteria, then copy visible to new worksheet and send this worksheet via mail to trainer used for filtering.
All this shall be done in the loop for every trainer or done "on request" for selected trainer.