Estrapolazione elenco possibili quintetti basket in carrozzina

Ciao a tutti,

sono un giocatore di basket in carrozzina e vi spiego di cosa avrei bisogno..
Nel basket in carrozzina esiste una classificazione che viene assegnata ad ogni giocatore in base al tipo di disabilità.
Questa classificazione (o punteggio), è indispensabile per ottenere un equilibrio dal punto di vista motorio, tra le squadre che si affrontano.
Pertanto il punteggio totale dei quintetti che scendono in campo non deve superare 14,5.
I punteggi utilizzati, in ordine dalla disabilità più grave alla meno grave, sono i seguenti:
0
0,5
1
1,5
2
2,5
3
3,5
4
4,5
5 (normodotato)
Ora facciamo conto che una squadra ha a disposizione 15 giocatori con i seguenti punteggi: 0 - 1 - 1 - 1,5 - 1,5 - 2 - 2 - 3 - 3 - 3,5 - 4 - 4 - 4,5 - 4,5 - 5 che andranno inseriti in 15 celle.
In un'altra cella dovrà essere inserito il punteggio totale del quintetto che sarà quasi sempre 14,5 ma in alcuni casi, per vari motivi, si è costretti a giocare con un punteggio inferiore.
La necessità sarabbe quella di estrapolare l'elenco completo dei quintetti (combinazioni) possibili con il punteggio totale inserito.
Nell'elenco estrapolato sarebbe carino e anche comodo far comparire i nomi al posto dei punteggi.

Per maggiore chiarezza, allego un semplice file ("passivo" ovviamente) di come potrebbe risultare...

Vi ringrazio anticipatamente per eventuali risposte

ciao
il file allegato elabora tutte le combinazioni senza ripetizione di 15 "giocatori" presi 5 alla volta.
Le combinazioni sono 3.003.

da A2 a O2 i nominativi dei giocatori con sottostante (A3 > O3) il loro punteggio.

Come puoi vedere, premendo il pulsante calcola:
in A1 verrà riportato il totale del numero di combinazioni e, da riga 5 in poi, vengono riportate tutte le combinazioni più la somma del punteggio dei 5 giocatori, ordinata in modo decrescente dalla somma più alta a quella più bassa (Colonna F).

Se scorri l'elenco troverai le combinazioni pari a 14,5 che, nell'esempio, sono 199

NB: Se ci sono nominativi uguali dovrai differenziarli in qualche modo, per esempio: Giuseppe_1 - Giuseppe_2, oppure con nome e cognome o come ti pare

saluti

Ciao,

intanto grazie mille! Però dopo aver premuto il pulsante, esce l'errore che metto in allegato..

ciao

Prova per il momento a cancellare Option Explicit da inizio modulo, poi se va, lo sistemiamo
Oppure dichiara ur as long se è solo quello che segnala (mi sembra di leggere Variabile non definita)

C'è un refuso lasciato per errore: cancella il modulo1 che non serve.

saluti

Ho cancellato Option Explicit e ora sembra che funziona perfettamente!!
Devi rivedere qualcosa?

Poi come mi hai detto, ho eliminato il modulo 1

usa questo di file

saluti

Che dire, è perfetto!

Grazie mille Domenico, ho visto che sei di Roma, mi farebbe molto piacere se la prossima stagione ci vieni a trovare quando ricomincerà il campionato, così avrò modo di conoscerti e ringraziarti personalmente :)

Un caro saluto

Fabrizio
SS LAZIO basket in carrozzina

https://www.facebook.com/SsLazioBasketInCarrozzina

ciao
lieto di esserti stato utile

e chissa!!!!

saluti

qualora ti fosse utile si può implementare con l'indicazione di un range di punteggio da estrarre, per esempio:
estrai solo le combinazioni che generano un totale da 10 a 15 oppure da 10 in poi, oppure fino a 10 etc etc

fai sapere

saluti

Magari! Sarebbe ancora più pratico 😊

ok, lo allego

saluti

Fantastico! Funziona perfettamente.

Devo mettere risolto da qualche parte?

ciao
magari fossero tutti ligi come te.!!!!

Qui non c'è un'apposita procedura per farlo cime in altri forum.

Una volta si andava in modifica del primo post e si aggoiungeva prima del titolo: [RISOLTO]

Non credo sia possibile visto il tempo trascorso, comunque provaci.

Salvatore, Ci dici qualcosa ????

saluti

Ho provato ma in effetti non mi permette di modificare il titolo.

Allora grazie ancora di tutto..

Buona serata ;)

ok

...devi fare una piccola modifica quasi ad inizio:

If Da <> 0 And A <> 0 And A < Da Then '<<<<<<<<<<<<<<
MsgBox "Incongruenza nel range da estrarre"
Exit Sub
End If

saluti

ok, dove andrebbe inserito?

ciao

tu ora quasi ad inizio della macro hai:

If Da <> 0 And A < Da Then

devi sostituirlo con:

If Da <> 0 And A <> 0 And A < Da Then

spero sia chiaro

saluti

Si perfetto fatto 👍