Ciao,
direi di andare avanti facendo delle ipotesi e per passi successivi:
1. l'elenco delle squadre è in colonna "A" del "Foglio2" (con quante squadre vuoi)
2. le due squadre che devono sfidarsi le posizioniamo nel "Foglio1" colonne "A" e "B"
3. per semplicità diciamo di avere "sei" squadre, il numero può variare a piacere
PRIMO PASSO
accoppiamo le squadre, ad esempio in questo modo:
Squadra A Squadra B
Sq-1 Sq-2
Sq-1 Sq-3
Sq-1 Sq-4
Sq-1 Sq-5
Sq-1 Sq-6
Sq-2 Sq-3
Sq-2 Sq-4
Sq-2 Sq-5
Sq-2 Sq-6
Sq-3 Sq-4
Sq-3 Sq-5
Sq-3 Sq-6
Sq-4 Sq-5
Sq-4 Sq-6
Sq-5 Sq-6
per produrre le coppie precedenti prova con questa macro:
- Codice: Seleziona tutto
Option Explicit
Public I As Integer, J As Integer, K As Integer, RR As Integer, Num_Sq As Integer
Sub Abbina_Squadre()
Foglio1.Select
RR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:B" & RR).ClearContents
Foglio2.Select
Num_Sq = Range("A" & Rows.Count).End(xlUp).Row
K = 2
For I = 2 To Num_Sq
For J = I + 1 To Num_Sq
Foglio1.Cells(K, 1) = Foglio2.Cells(I, 1)
Foglio1.Cells(K, 2) = Foglio2.Cells(J, 1)
K = K + 1
Next J
Next I
End Sub
Fai sapere se stiamo iniziando bene, così possiamo andare avanti: vedremo come fare.
Ciao da Ricky53