ciao a tutti,
vi espongo il mio problema;
data 1 combinazione di 10 numeri, winforlife, disposti su una riga e 10 celle-colonne, dalla cella b3 alla cella k3, sono riuscito a elaborare lo sviluppo di ambi, terni etc. presenti nella combinazione;
lo sviluppo mi pone gli ambi, dalla cella r1,in celle diverse, ma tutti su una riga o su una colonna;
inoltre i numeri che costituiscono un ambo sono separati dal trattino;
vorrei invece che lo svuiluppo ponesse i valori, gli ambi in una tabella, cioè
partendo da una cella si devono riempire le celle poste sulla stessa riga, fino ad una determinata colonna, ad esempio la decima a partire dalla prima, e poi incominciare a riempire le celle della riga successiva; in pratica vorrei avere uno sviluppo come mostrato nella seguente immagine
ho provato con un ciclo for next ma non ho ottenuto risultati soddisfacenti;
sono sicuro di aver sbaglaito l'inserimento della linea di codice del ciclo.
vi posto il listato che ho fatto per lo sviluppo:
Sub AMBI()
Columns("R").Select
Selection.ClearContents
r = 1 'riga sviluppo
C = 18 'colonna sviluppo
i = 2 'colonna combinazione
While Cells(3, i) <> ""
j = i + 1
While Cells(3, j) <> ""
Cells(r, C) = (Cells(3, i) & "-" & (Cells(3, j)))
C = C + 1
r = r + 1
j = j + 1
C = 18
Wend
i = i + 1
Wend
NUM = Range("R65536").End(xlUp).Row
Range("G5") = NUM & " COMBINAZIONE/I"
Range("G5").Select
End Sub
nella cella g5 viene visualizzato il numero degli ambi.
potete suggerirmi le linee di codice che eventualmente devo inserire o modificare?
grazie miko