sorteggio abbinamento nome squadra

[ilTodda91]

Ciao a tutti.

Avrei bisogno di aiuto per creare un foglio di excel che mi abbini casualmente un utente ad una squadra.

Ho 6 squadre da sorteggiare a 6 utenti diversi.. esempio:

Inter
Milan
Roma
Juventus
Napoli
Fiorentina

devono essere abbinate a:

utente 1
utente 2
utente 3
utente 4
utente 5
utente 6

e l'abbinamento deve essere univoco..

Ringrazio anticipatamente per le eventuali risposte..

[Flash30005]

Supponendo che le squadre le abbia in colonna A da A2 a A7 (riga 1 testata)
e vorresti il sorteggio in colonna B
puoi usare questa routine

Codice: Seleziona tutto

Sub Sorteggia()
Range("B2:B7").ClearContents
For RR = 2 To 7
IniS:
MySort = Int(Rnd(6) * 6) + 1
For RRC = 2 To RR
If Range("B" & RRC) = MySort Then GoTo IniS
Next RRC
Range("B" & RR) = MySort
Next RR
End Sub

Non sapendo dove hai i nomi utenti per il momento la macro assegna un numero casuale a fianco di ogni suqadra
è possibile inserire anche il nome utente ma bisognerebbe sapere dove è dislocato nel tuo foglio
ciao

[ilTodda91]

Ipotizziamo che :
da A2 ad A7 scrivo i nomi delle squadre
da B2 a B7 scrivo i nomi dei partecipanti

ho inserito la macro che mi hai scritto ma i numeri rimango sempre nello stesso posto..

oppure in alternativa andrebbe bene anche una casella di input che chieda prima i 6 nomi delle squadre e poi i 6 nomi dei partecipanti.

[Anthony47]

Prova questa macro:

Codice: Seleziona tutto

Sub scrambl()
Dim VArr(), Teams As String, Players As String, Destin As String, myRand As Long, I As Long
'
'Teams = "A2:A7"     '<< Le celle con le Squadre
Players = "B2:B7"   '<< Le Celle con i giocatori
Destin = "B2:B7"    '<< Le celle di destinazione
'
ReDim VArr(1 To Range(Players).Rows.Count)
VArr = Range(Players).Value
Range(Destin).ClearContents
For I = 1 To Range(Players).Rows.Count
reRand:
    DoEvents
    myRand = 1 + Int(Range(Players).Rows.Count * Rnd())
    If Range(Destin).Cells(myRand, 1).Value <> "" Then GoTo reRand
    Range(Destin).Cells(myRand, 1).Value = VArr(I, 1)
Next I
'
End Sub


Le istruzioni marcate << sono da personalizzare.

Ciao

[ilTodda91]

Ottimo.. adesso sto cercando di farlo diventare con l'aspetto di un programma anzichè del foglio di calcolo.

La macro però è perfetta.