Random Shifts allocation

lol.. you might want to edit your Thread title..

Thank you apo

Hi,
Please use this Procedure, this should work.

Please Login or Register  to view this content.

Let me know if you have any questions, but i rarely go online though !

Cheers
Lex

Add rep if you like my answer

In lex' absence, could someone please assist with my request?

Thank you

Hi,

how about the other team member? for example, on Monday, i have allocated Early shift to team member 1 and late shift to team member 5. what would happen to the remaining team? leave it blank [no work?]?

Cheers
Lex

Hi Lex,

That's right, no specific shift (flexi) so the cell must be blank.

Also, shifts must be allocated to cell that are blank, if a cell isn't blank, then no shift can be allocated.

I think I've got it:

Sub ScheduleRNG()
Dim i As Integer
Dim EarlyRNG As Integer
Dim LateRNG As Integer
Dim Proceed As Boolean
Proceed = False


For i = 2 To 6
Do Until Proceed = True
EarlyRNG = Int((17 - 2 + 1) * Rnd + 2)
LateRNG = Int((17 - 2 + 1) * Rnd + 2)

Do Until EarlyRNG <> LateRNG
LateRNG = Int((17 - 2 + 1) * Rnd + 2)
Loop

If Cells(EarlyRNG, i).Value = "" And Cells(LateRNG, i).Value = "" _
And Cells(EarlyRNG, i - 1).Value <> "Late 10:30 - 19:00" Then
Cells(EarlyRNG, i).Value = "Early 07:00 - 15:30"
Cells(LateRNG, i).Value = "Late 10:30 - 19:00"
Proceed = True
End If
Loop
Proceed = False
Next i


End Sub

Do you have a better way?

Thank you
Fab

Hi Fab,

that looks good, i would do the same too!

Cheers
Lex