Come cambiare la posizione dei numeri di una estrazione(i)

[papiriof]

Vorrei cambiare l'ordine di uscita dei numeri di estrazione che sono adesso in ordine crescente per intenderci , queste sono le estrazioni di una lotteria che ha 42 numeri ogni estrazione è formata da 6 numeri che naturalmente in origine escono in modo casuale e poi vengono messi in ordine crecsente . Attenzione mi interessa mantenere gli stessi numeri di ciascuna estrazione ma con posizioni diverse nella maniera sottonotata senza produrre delle colonne diverse da quelle che ho attualmente che partono dalla Colonna "C"
e finiscono nella colonna "H"
4 10 17 21 35 36 ---------> 21 10 17 4 36 35
5 8 18 19 39 41 ---------> 39 19 8 5 41 18
4 11 12 30 36 38 ---------- > ecc ecc
2 13 18 21 25 34 ----------> ecc ecc
3 11 14 20 25 28
12 13 19 24 31 35
3 4 8 12 20 37
3 11 21 26 37 41

[Anthony47]

Dagli esempi pubblicati non deduco quale sia la logica negli spostamenti richiesti. Quindi (senza pubblicare un terzo esempio) dovresti spiegare "meglio" quale e' la logica da seguire nel riposizionare i numerini

Ciao

[Dylan666]

Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente.
Quindi vanno riposizionati randomicamente mantenendoli all'interno della riga di appartenenza.
Ognuno dei 6 numeri occupa una colonna dalla C alla H

[papiriof]

Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente.
Quindi vanno riposizionati randomicamente mantenendoli all'interno della riga di appartenenza.
Ognuno dei 6 numeri occupa una colonna dalla C alla H

Esatto!! tutto qui .
Più difficile invece spiegare a cosa serve , diciamo che questa disposizione dei numeri non è sicuramente quella originale, e siccome non ho la possibilità di risalire all' estrazioni naturali le devo per forza mescolare( mantenendole all'interno della riga di appartenenza) èer simulare una estrazione random.
A cosa serve? esempio non potrò mai sapere,volendo fare una ricerca sul primo estratto, quante volte sono usciti in prima posizione
gli ultimi 6 numeri ( 42,41,40,39,38,37) invece cosi potrei .

[Anthony47]

Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente

Stavo per scrivere "Humm... Mi sembra poco probabile, visto che sarebbe stato molto piu' semplice spiegare che voleva metterli in ordine casuale piuttosto che stare a fare due esempi"

Ma vista l'evoluzione della discussione propongo questa macro:

Codice: Seleziona tutto

Sub ripos()
Dim wArr(), wBarr(), I As Long, J As Long
'
Randomize
LastC = Cells(Rows.Count, "C").End(xlUp).row
wBarr = Range("C1").Resize(LastC, 6).Value
ReDim wArr(1 To LastC, 1 To 6)
For I = 1 To LastC
    For J = 1 To 6
        Do
            cPos = Application.WorksheetFunction.RandBetween(1, 6)
            If wArr(I, cPos) = "" Then
                wArr(I, cPos) = wBarr(I, J)
                Exit Do
            End If
        Loop
    Next J
Next I
Range("C1").Resize(LastC, 6).Value = wArr
End Sub

Va messa in un Modulo standard del vba; poi, selezionato il foglio con i Dati, si esegue la Sub ripos

Ciao

[papiriof]

PERFETTO!!!