Sleeper: Dodge-ball Team Sorting System
Hey everyone!
I'm pretty new at Excel and VBA, but thanks to VBA Express, I'm starting to get the hang of things.
I'm living out in Japan, and was given the wonderful task of organizing my kid's elementary school's dodgeball tournament. Can anyone help me with the following problem?
What I have to do, is take a list of kids (15 in grade 3, 12 in grade 4), and sort them into a number of teams (the number can be inputted at the top of the worksheet), and then shuffle the teams each day over a number of days (this number can also be inputted at the top of the worksheet).
The restrictions being, that if possible, the kids can only be on the same team only once (to get the kids playing with as many different other kids as possible)...so if Kid A and Kid B are on the same team Day 1, they will not be on the same team day ever again (Day 2 - 4). AND if they are from the same family (have the same last name), they should only be on the same team if it is unavoidable.
I was trying to create a macro that loops through the list of kids, and puts them each on a team until all the kids run out (that way, the teams are balanced number wise as best as possible) on Day 1 (in a new worksheet), then shuffle the names for Day 2, Day 3, Day 4, etc...and check to make sure that in the past that 2 kids had never played together...however, I'm completely lost now.
My original macro/Procedure was really spaghetti-like, so I'm open to throw it out if anyone has any better alternatives.
Please help me!
Thanks for your time!
Dave
Reply With Quote
