Chaves de competição

Pessoal, preciso fazer um sistema de sorteio de chaves para competição de judo.

Este sistema teria o seguinte cadastro:

Nome do atleta
Agremiação
Classe (pelo ano de nascimento)
Categoria (peso)
Faixa

Após este cadastro, eu queria que o sistema SORTEASSE e montasse uma chave de competição com filtro para cada item acima.

Alguém sabe fazer isso?

Obrigada pela resposta, Avelino Sampaio!

Então, eu só preciso montar a chave que ao decorrer da competição será preenchida manualmente pelos oficiais de mesa.

Seria mais ou menos assim:





Eu preciso que o sistema sorteie aleatoriamente os nomes na chave.


E deve seguir o seguinte filtro:

Classe por idade (11 e 12 anos)

Chave 1: Até 28 kg

Chave 2: +28 a 31 kg

Chave 3: + 31 a 34 kg

... e por aí vai..


Eu só preciso fazer o sorteio no sistema, o resto será feito manualmente.

Kelsores,

levando em consideração uma numeração para os participantes:

1- Avelino
2- Pedro
3- João
4 - ...
16 - Antonio

Utilize esta função para gerar os confrontos:

Public Function fncMontaChaves(nParticipantes%) As String
Dim seq$, intRnd%, v, p%, Sorteado As Boolean, k As Boolean, Resultado$
If nParticipantes Mod 2 <> 0 Then
   MsgBox "Entre com número par de participantes ....", vbInformation, "Aviso"
   Exit Function
End If
Do While j < nParticipantes
   intRnd = Int(Rnd() * nParticipantes) + 1
   v = Split(seq, ",")
   Sorteado = False
   'verifica se o número já foi sorteado
   For p = 0 To UBound(v)
       If v(p) = intRnd Then
           Sorteado = True
           Exit For
       End If
   Next
   ' monta o sorteio
   If Sorteado = False Then
       If k = False Then
           Resultado = Resultado & "(" & intRnd
           k = True
       Else
           Resultado = Resultado & " x " & intRnd & ");"
           k = False
       End If
       seq = seq & intRnd & ","
       j = j + 1
   End If
   Randomize
Loop
fncMontaChaves = Left(Resultado, Len(Resultado) - 1)
End Function

Ao executar a função

fncMontaChaves(16), terá como resultado os confrontos sorteados.  Algo assim:

(12 x 2);(14 x 4);(1 x 15);(3 x 6);(13 x 9);(8 x 16);(10 x 11);(5 x 7)

Aguardamos

Obrigada, Avelino Sampaio!
Vou fazer aqui e assim que terminar dou o feedback.

Oi, Avelino Sampaio!

Não consegui

Como achei complicadinho, resolvi adiar este projeto e estudar um pouco mais sobre o assunto.

No momento estou aprimorando um sistema de controle de alunos que criei para o meu uso e assim que finalizar retornarei ao projeto das chaves.

De qualquer forma, agradeço de coração as mensagens de apoio que são fundamentais para a produção dos nossos sistemas.

Abraço a todos!