Aiuto Formula Archivio Lotto In Verticale

[Francesco6918]

Un saluto a tutti gli amici del forum in particolare a Anthony e Flash , o un archivio lotto con estrazioni in orizzontale (50 Colonne per 4527 Righe) vorrei riportare l estrazioni in verticale come da empio a sinistra ;vi allego il file zippato, chiaramente con una formula .

www.filedropper.com/esempioarchivio

Saluti

[Flash30005]

Ehmmm
ma l'archivio in orizzontale è sistuato Da colonna J a BG?
e dove vorresti avere l'archvio in verticale, stesso foglio o altro foglio?

ciao

[Francesco6918]

Ciao Flash riportiamolo sullo stesso foglio se ci sono complicazioni lo riportiamo su un altro tanto una volta creato lo copiero in un altra cartella non e un problema.

Saluti

[Lucio Peruggini]

Ciao Francesco, non sono affari miei, ma come pensi di utilizzare un archivio senza un indice di estrazione ne tanto meno la data?
Ciao

[Flash30005]

Leggi quanto postato da Lucio

Inoltre vorresti anche una riga vuota tra una tabella/estrazione e un'altra?
oppure possono essere continue?

[Francesco6918]

Tutte Continue le date al momento non li o inserite .

[Flash30005]

le date al momento non li o inserite .

Quindi?

Pensi che dopo aver creato una macro che sistema le ruote rimetta le mani su di essa
per inserire anche la data e/o n. concorso?

[Francesco6918]

Flash una volta riordinato il tutto copio e in colla su un foglio diverso ok

[Flash30005]

Ti avviso
il Numero concorso e la data che ora dovrebbero essere in riga (insieme alle estrazioni)
dopo dovranno essere riportate 10 volte (una per ogni ruota per ogni concorso)
farai questo a manualmente?

[Francesco6918]

Flash facciamo una prova eventualmente in seguito ordino l archivio con data e concorso se tu oltre la macro mi crei la formula e piu semplice fare le modifiche, proviamo.

[Francesco6918]

Flash un po di pazienza sono riuscito a completarlo.

http://www.filedropper.com/esempioarchiviov2

<a href=http://www.filedropper.com/esempioarchiviov2><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file storage</a></div>

ok

[Flash30005]

Si vede che non programmi

se tu oltre la macro mi crei la formula e piu semplice fare le modifiche

Prima di ogni programmazione bisogna fare l'analisi dei dati (loro disposizione e tipologia)
Dopo si fa uno schema su come intervenire e i codici ottimali da usare
alla fine si realizza un test di macro magari seguire in debug per vedere come funziona già da i primi passi
infine si correggono eventuali bug e si ottimizza.
La macro è finita
Ora tu pensi che sia la stessa cosa considerare che inizialmente hai 10 range da 5 colonne ciascuno e, invece, dopo avere 2 dati in più, da 1 colonna che vanno ripartiti e ripetuti 10 volte per ognuno dei range precedenti?

Potrei farti la macro per come hai postato il file poi non ti farò alcuna modifica per inserimento data perché per me significa perdere il doppio del tempo.

Quindi ti esorto ad avere da subito le idee chiare di e da cosa hai e cosa vuoi ottenere:
E' la regola fondamentale prima di attivarsi a intraprendere qualsiasi progetto.


EDIT ore 23:30 - ci siamo accavallati con i post (ho scaricato ora il file e vedo la data e concorso)
ma la tabella estrazioni è sicuro che non inizi dalla colonna A?

[Francesco6918]

Flash ce una correzione o eliminato l estrazione del 10/06/1961 perche era vuota non ce stata l estrazione

http://www.filedropper.com/esempioarchiviov3

<a href=http://www.filedropper.com/esempioarchiviov3><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file upload</a></div>

[Francesco6918]

Una volta ordinate l estrazioni faro una ricerca ambi in verticale le date puoi inserirle dalla cella H4 come da esempio.

[Flash30005]

Ma quale archivio ufficiale ti fornisce un'estrazione inesistente?

I miei archivi oltre ad autoaggiornarsi non forniscono estrazioni errate, ci mancherebbe!!!
Forse ti riferisci ad archivi commerciali, dove l'utente spende soldi e poi deve sistemarli manualmente

C'è anche un numero sulla ruota di Bari in una estrazione del 2009 che alcuni lo riportano come 40 altri come 49
Ma, a parte questo, un archivio di dati non va modificato se devi fare delle analisi o delle statistiche
mica sarai un politico!!!

Ciao

[Francesco6918]

Flash io o una serie di programmi della softvisio (Enavisio Lottovion Totovision) gli archivi li aggiorna via internet l archivio lottovision esporta in excel a tutte le ruote li esporta in verticale io che cosa o fatto lo riportato in orizzontale e la mia modifica e eliminare tutti i numeri ripetuti ora lo vorrei riportare in verticale

[Flash30005]

Ma qui sta il fatto!!!
non va modificato l'archivio da orizzontale a verticale dove (addirittura) si cancellano numeri o altro e si lavora sul risultato chiamandolo ancora impropriamente archivio.
Va creato l'archivio in excel come occorre (soprattutto autoaggiornante e ufficiale con i numeri reali senza alcuna modifica)
una volta ottenuto l'archivio foglio "Archivio" questo sarà il punto di partenza cioè quello che gli amatori di simili "studi" dicono la "Bibbia"
da questa si ottengono le analisi secondo il fine che si vuole raggiungere. (Punto!)

[Anthony47]

Sara' per la mia antipatia per il lotto, ma io tutti questi problemi non li vedo

Potrebbe andare bene una macro come questa:

Codice: Seleziona tutto

Sub trasp()
DestA1 = "C5"   '<<L' origine dove verra' creata la nuova tabella
Dim myVArr, I As Long, J As Long, K As Long, II As Long, JJ As Long
[A1] = Timer
Application.ScreenUpdating = False
LastJ = Cells(Rows.Count, "J").End(xlUp).Row
myVArr = Range("K4:BI4").Resize(LastJ - 3).Value
For I = LBound(myVArr, 1) To UBound(myVArr, 1)
    For J = 1 To 10
    Range(DestA1).Offset((I - 1) * 11, 5).Resize(10, 1) = myVArr(I, 1)
        For K = 1 To 5
            Range(DestA1).Offset((I - 1) * 11 + (J - 1), K - 1) = myVArr(I, (J - 1) * 5 + K + 1)
        Next K
    Next J
Next I
'
Application.ScreenUpdating = True
myRuote = Array("Bari", "Cagliari", "Firenze", "Genova", "Milano", "Napoli", "Palermo", "Roma", "Torino", "Venezia")
J = 0
Do
    J = J + 1
    If Range(DestA1).Offset((J - 1) * 11, 0) = "" Then Exit Do
    Range(DestA1).Offset((J - 1) * 11, -1).Resize(10, 1) = Application.WorksheetFunction.Transpose(myRuote)
Loop

[a2] = Timer
End Sub


Impieghera' quasi 3 minuti...

Ciao a tutti.
PS: manca la ruota di Alberobello

[Flash30005]

manca la ruota di Alberobello

[Francesco6918]

Anthony va benissimo la macro ma ce solo un problema le righe devono essere continue

Saluti