(Excel o Word) creazione gruppi da elenco

[mazzocchio]

Salve, sono nuovo di questo forum e siccome siete molto preparati e disponibili vi vorrei sottoporre un mio problema. Dico subito che non sono ferrato in excel e pertanto dovrei essere condotto passo passo, oppure qualcosa già pronto. Ma veniamo al dunque; Ho la neccessità di creare da due liste di nomi (coppie-singoli) 4-5-6-7 gruppi che io sceglierò di volta in volta.
Alcuni chiarimenti:
La lista 1 e composta da circa 30 nomi
La lista 2 è composta da circa 20 nomi
La lista 2 dovrà essere spalmata su tutti i gruppi
Dovrei avere la possibilità di scegliere quanti gruppi creare

Vi ringrazio per tutto quello che vorrete fare per me.
Moreno

[Flash30005]

Ciao Mazzocchio e benvenuto nel Forum

Abbiamo già trattato dei quesiti simili ma visto le conoscenze di funzioni e macro di excel da te dichiarate penso sia inutile invitarti a leggere le discussioni.
Però è necessario che invii il file con gli elenchi e loro disposizione, dove vorresti i dati di output e
qualche esempio nel file stesso come raggruppare in 7 gruppi se i nomi sono 30 e 20.

Per allegare il file devi seguire questa procedura
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395
ed avere effettuato almeno tre post (ne puoi fare due a vuoto)

ciao

[mazzocchio]

Salve, il numero dei gruppi vorrei poterlo decidere di volta in volta.
Il numero dei nomi per gruppo non deve essere per forza pari, ma anche un piccolo scarto
Ti invio un allegato di esempio
I nomi li potrei scrivere nelle celle e il risultato a video con la possibilità di essere stampato.
Non è importante l'estetica ma la funzionalità
Grazie ancora
https://rapidshare.com/files/2478750232 ... gruppi.doc

[Flash30005]

non vedo alcuna logica nella distribuzione in gruppi

Ma vuoi che i gruppi siano formate da coppie casuali, oppure vuoi decidere tu le coppie da inserire nei singoli gruppi?
Inoltre noto che il gruppo 1 è formato da 3 coppie
poi dal gruppo 2 fino al gruppo 5 ci sono due coppie e uno singolo
il sesto gruppo da 2 coppie e due singoli.
Qual'è la logica?


ciao

[mazzocchio]

Provo ad essere più chiaro:
Le coppie sono 13 ed i singoli 6, anche se non mi dispiacerebbe poter modificare sia il numero delle coppie e dei singoli a mio piacimento
Vorrei avere la possibilità di scegliere il numero dei gruppi da un minimo di 4 ad un massimo di 7.

-Se dovessi scegliere la presenza di 4 gruppi, il gruppo 1, 2 e 3 dovrà essere composto da 3 coppie + 2 singoli (totale 8 persone), il gruppo 4 da 4 coppie(totale 8 persone)

-Se dovessi scegliere la presenza di 5 gruppi, il gruppo 1 e 2 dovrà essere composto da 2 coppie + 2 singoli (totale 6 persone), il gruppo 3 e 4 da 3 coppie + 1 singolo (totale 7 persone)e il gruppo 5 da 3 coppie(totale 6 persone)

-Se dovessi scegliere la presenza di 6 gruppi, il gruppo 1 dovrà essere composto da 3 coppie (totale 6 persone), i gruppi 2, 3, 4 e 5 da 2 coppie + 1 singolo(totale 5 persone) e il gruppo 6 da 2 coppie + 2 singoli (totale 6 persone)

-Se dovessi scegliere la presenza di 7 gruppi, il gruppo 1 dovrà essere composto da 1 coppia + 2 singoli (totale 4 persone), i gruppi 2, 3, 4 e 5 da 2 coppie + 1 singolo(totale 5 persone) ed i gruppi 6 e 7 da 2 coppie (totale 4 persone)

Grazie di nuovo

[Flash30005]

Manca solo una specifica alla quale non hai risposto:
le coppie che andranno a formare i gruppi devono essere casuali o vuoi aver la possibilità di sceglierle?

Ciao

[mazzocchio]

Avere tutte e due le possibilità non sarebbe male.
Per intenderci: Normalmente saranno casuali, ma una procedura del tipo: Due coppie ( esempio, moreno annamaria e vittorio angela) insieme nel gruppo 1 ed il resto casuale, sarebbe interessante.
Come sempre, spero di essere stato chiaro.
A presto

[mazzocchio]

Salve , non ho più avuto risposta sulla possibilità di avere dei gruppi da un elenco, flash30005 si stava interessando ma poi non ho avuto più notizie. Spero che si faccia vivo.
Grazie ancora
Moreno

[Flash30005]

Ciao Mazzocchio
Sono andato all'estero e il tuo post è rimasto indietro
ma anche il tuo penultimo post lascia a desiderare in tema di definizione parametri:

Normalmente saranno casuali, ma una procedura del tipo: Due coppie ( esempio, moreno annamaria e vittorio angela) insieme nel gruppo 1 ed il resto casuale, sarebbe interessante.

Significa che nemmeno tu sai cosa è necessario fare?
Come pensi si possa giungere ad una meta se non si definisce il punto da raggiungere?
Il "sarebbe interessante" mi preoccupa molto...

Ciao

[mazzocchio]

Ciao, hai perfettamente ragione

Il "sarebbe interessante" mi preoccupa molto...

.
Cercherò di spiegarmi.
L'elenco di persone è formato da coppie e singoli.
L'elenco dovrà essere variabile da 0 a 15 coppie e da 0 a 15 singoli
Da questo elenco si dovranno creare 4,5,6,7 o 8 gruppi. A mia scelta.
Le coppie andranno divise in parti uguali nei gruppi. Se dalla divisione uno o più gruppi risultassero essere con un numero di coppie differenti, non sarebbe un problema.
I singoli andranno divisi in parti uguali nei gruppi. Se dalla divisione uno o più gruppi risultassero essere con un numero di singoli differenti, non sarebbe un problema.
Il risultato dovrà essere pronto alla stampa, ma con la possibilità di fare delle piccole correzioni in modo manuale (per esempio: scambiare due persone da un gruppo ad un'altro).
Grazie per la pazienza.
A presto
Moreno

[Flash30005]

Sto approntando la macro che, devo dire, è alquanto complessa soprattutto per le diverse tipologie/combinazioni da te indicate per il numero di gruppi ma mi sono accorto che ancora non hai definito la meta da raggiungere perché nei primi post hai indicato come massimo numero gruppi pari a 7 (da 4 gruppi a 7) specificando gruppo per gruppo la distribuzione coppie/singoli, mentre ora hai inserito anche un ottavo gruppo.
Pertanto mi fermo fino a quando non chiarirai questa nuova specifica.

Pensa bene a tutte le specifiche che darai sin da ora per ottenere il risultato voluto,
perché non ho alcuna intenzione di intervenire nella modifica del codice, una volta finito il programma.


ciao

[mazzocchio]

Ciao, ti ringrazio ancora una volta della tua disponibilità, ma non mi aspettavo che fosse così complicato e quanto io fossi impreparato.
Veniamo al punto.
L'ultimo post e da considerare quello definitivo.
I gruppi dovranno essere 4,5,6,7,8. A mia scelta.
La distribuzione coppie/singoli che ti ho elencato nel post del 22/05/12 non considerarlo.
Grazie ancora per quello che vorrai fare.
Moreno

[Flash30005]

E 8 gruppi come li suddividi in coppie e singoli?

Nel tuo post definitivo non è specificato!

[mazzocchio]

Sono in crisi!
7 gruppi sono sufficienti.

[Flash30005]

Io avrei trovato questa combinazione

Codice: Seleziona tutto

N Gruppi   Comb1.   Coppie   Sing   Comb2   Coppie   Singoli   Comb2   Coppie   Singoli
8            1          2      0    2.3.4.5   2         0      6.7.8     1       2


Se ti va bene procedo e tra 5 minuti avrai la macro e il file
perché fino a 7 era completato, aggiungo questa modifica dopo il tuo Ok

ciao

[mazzocchio]

Ok, procedi.

[Flash30005]

Segui attentamente come dovrai impostare i fogli e i dati su di essi nel file:
1) per far funzionare la macro che posterò avrai bisogno di due fogli
uno con nome Elenco, l'altro con nome Gruppi
2) Nel foglio elenco dovrai avere Riga 1 la testata quindi in A1 scrivi "N", in "B1:C1" che unirai scriverai "Coppie", in E1 scriverai "Singoli"
3) Da A2 a A14 numeri sequenziali da 1 a 14 (non necessari ma servono per avere subito il numero delle coppie)
estremamente necessario invece è avere le coppie es.: in B2 "moreno" e C2 "annamaria"
quindi le coppie saranno elencate da B2 a C14
4) la colonna D deve essere vuota
5) nella cella E2 seguirà l'elenco dei Singoli E2 inserirai "alfredo", E3 roberta etc fino a E7 (silvia)
6) ora in G1 scrivi il testo "N. Gruppi" e in G2 inserirai una convalida con elenco di questo tipo

Codice: Seleziona tutto

4;5;6;7;8

Così avrai la possibilità di scegliere la quantità di gruppi da 4 a 8
7) Nel foglio Gruppi potrai formattare le celle A1:B6 con bordo intermedio (fino) e poi bordatura doppia unendo solo le celle A1 e B1
8 ) copi questa formattazione per 7 volte lasciando una colonna (la C nella prima copia)
quindi copi il formato A1:B6 e lo incolli in D1:E6, poi in G1:H6 etc fino a V1:W6
ora puoi incollare questa macro in un modulo

Codice: Seleziona tutto

Sub Distribuzione()
Set Ws1 = Sheets("Elenco")
Set Ws2 = Sheets("Gruppi")
NGr = Ws1.[G2]
Comb1 = 0
Comb2 = 0
Comb3 = 0
Coppie1 = 0
Coppie2 = 0
Coppie3 = 0
Sing1 = 0
Sing2 = 0
Sing3 = 0

Select Case NGr
Case 4
    Comb1 = 3
    Comb2 = 1
    Comb3 = 0
    Coppie1 = 3
    Coppie2 = 4
    Coppie3 = 0
    Sing1 = 2
    Sing2 = 0
    Sing3 = 0
Case 5
    Comb1 = 2
    Comb2 = 2
    Comb3 = 1
    Coppie1 = 2
    Coppie2 = 3
    Coppie3 = 3
    Sing1 = 2
    Sing2 = 1
    Sing3 = 0
Case 6
    Comb1 = 1
    Comb2 = 4
    Comb3 = 1
    Coppie1 = 3
    Coppie2 = 2
    Coppie3 = 2
    Sing1 = 0
    Sing2 = 1
    Sing3 = 2
Case 7
    Comb1 = 1
    Comb2 = 4
    Comb3 = 2
    Coppie1 = 1
    Coppie2 = 2
    Coppie3 = 2
    Sing1 = 2
    Sing2 = 1
    Sing3 = 0
Case 8
    Comb1 = 1
    Comb2 = 4
    Comb3 = 3
    Coppie1 = 2
    Coppie2 = 2
    Coppie3 = 1
    Sing1 = 0
    Sing2 = 0
    Sing3 = 2
Case Else
    Exit Sub
End Select

Ws2.Cells.ClearContents
Ws1.Range("D2:D14").ClearContents
Ws1.Range("F2:F7").ClearContents
Dim VC(13) As Integer
Dim VS(6) As Integer
NCR = 0
NSR = 0
InizioR:
If NCR = 13 Then GoTo EsciR
For RN = 1 To 13
NC = Int(Rnd(13) * 13) + 1
If Ws1.Range("D" & NC + 1) <> "" Then GoTo InizioR
Ws1.Range("D" & NC + 1) = NC
NCR = NCR + 1
VC(NCR) = NC
Next RN
EsciR:

InizioRS:
If NSR = 6 Then GoTo EsciRS
For RN = 1 To 6
NS = Int(Rnd(6) * 6) + 1
If Ws1.Range("F" & NS + 1) <> "" Then GoTo InizioRS
Ws1.Range("F" & NS + 1) = NS
NSR = NSR + 1
VS(NSR) = NS
Next RN
EsciRS:

CG = 1
SG = 1
NAGr = 0
For NCB1 = 1 To Comb1
    Col = 1 + (NCB1 - 1) * 3
    NAGr = NAGr + 1
    Ws2.Cells(1, Col).Value = "Gruppo " & NAGr
    For NCopp1 = 1 To Coppie1
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If CG < 14 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VC(CG) + 1, 2).Value
            Ws2.Cells(URG, Col + 1).Value = Ws1.Cells(VC(CG) + 1, 3).Value
            CG = CG + 1
        End If
    Next NCopp1
    For NSing1 = 1 To Sing1
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If SG < 7 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VS(SG) + 1, 5).Value
            SG = SG + 1
        End If
    Next NSing1
Next NCB1

For NCB2 = 1 To Comb2
    Col = 1 + (NCB1 - 1) * 3 + (NCB2 - 1) * 3
    NAGr = NAGr + 1
    Ws2.Cells(1, Col).Value = "Gruppo " & NAGr
    For NCopp2 = 1 To Coppie2
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If CG < 14 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VC(CG) + 1, 2).Value
            Ws2.Cells(URG, Col + 1).Value = Ws1.Cells(VC(CG) + 1, 3).Value
            CG = CG + 1
        End If
    Next NCopp2
    For NSing2 = 1 To Sing2
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If SG < 7 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VS(SG) + 1, 5).Value
            SG = SG + 1
        End If
    Next NSing2
Next NCB2

For NCB3 = 1 To Comb3
    Col = 1 + (NCB1 - 1) * 3 + (NCB2 - 1) * 3 + (NCB3 - 1) * 3
    NAGr = NAGr + 1
    Ws2.Cells(1, Col).Value = "Gruppo " & NAGr
    For NCopp3 = 1 To Coppie3
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If CG < 14 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VC(CG) + 1, 2).Value
            Ws2.Cells(URG, Col + 1).Value = Ws1.Cells(VC(CG) + 1, 3).Value
            CG = CG + 1
        End If
    Next NCopp3
    For NSing3 = 1 To Sing3
        URG = Ws2.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If SG < 7 Then
            Ws2.Cells(URG, Col).Value = Ws1.Cells(VS(SG) + 1, 5).Value
            SG = SG + 1
        End If
    Next NSing3
Next NCB3

    Ws1.Range("D2:D14").ClearContents
    Ws1.Range("F2:F7").ClearContents
End Sub

Per farla attivare in automatico devi inserire queste due righe di codice nel vba del foglio "Elenco"

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
Distribuzione
Sheets("Gruppi").Select
End Sub


Salvi il file e poi cambia il valore del gruppo in G2, e...

Comunque capisco che distribuire i dati secondo specifiche si può errare pertanto allego il file già funzionante

download file completo

Fai sapere
ciao

[mazzocchio]

GRAZIE TANTE.
Ora è tardi, domani non so se faccio in tempo ma ti farò sapere al più presto.
Grazie di nuovo
Moreno

[mazzocchio]

ciao Flash30005,
innanzi tutto GRAZIE, GRAZIE, GRAZIE.
Funziona tutto, semplicemente e perfettamente.
Avrei ancora una piccola richiesta da fare. Ricordo bene che mi hai detto che non avresti fatto modifiche, però io ti chiedo ugualmente (per favore) di modificare il foglio gruppi in modo che la stampa possa essere eseguita su un unico foglio.
Pensavo di mettere 3 gruppi per ogni fila, così che si sviluppassero in senso verticale entrando in un foglio A4.
Spero di non chiederti troppo ma ho fiducia nella tua pazienza e competenza.
Grazie di nuovo per tutto quello che fai.
A presto

[Flash30005]

Infatti non metterò più le mani nella macro che crea i gruppi ma aggiungo una macro che sistema i gruppi a tre per riga
quindi lasciando invariata la precedente macro inserisci nello stesso modulo questa macro

Codice: Seleziona tutto

Sub SpostaGr()
    Range("A8:H20").Clear
    Range("J1:Q6").Cut Destination:=Range("A8")
    Range("S1:Z4").Cut Destination:=Range("A15")
    Range("A1:H6").Copy
    Range("A8:H13").PasteSpecial Paste:=xlPasteFormats
    Range("A15:H20").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Poi nel vba del foglio dove hai già due righe di codici aggiungi il richiamo alla macro

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
Distribuzione
Sheets("Gruppi").Select
SpostaGr   '<<<< aggiungi questa voce
End Sub


Ciao
Ps. se hai problemi a far entrare i tre gruppi per pagina puoi modificare i margini (sn e dx) portandoli a 1 invece di 2