Aiuto Formula Archivio Lotto In Verticale

[Anthony47]

Cambia tutti i "*11" in "*10" (ce ne sono 4, mi pare).

Poi cancella l' area creata precedentemente e riesegui la macro.

Ciao

[Flash30005]

Modifico la macro di Anthony per eliminare la riga vuota tra un'estrazione e l'altra alla luce di questa esigenza

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) * 10, 5).Resize(10, 1) = myVArr(I, 1)
        For K = 1 To 5
            Range(DestA1).Offset((I - 1) * 10 + (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) * 10, 0) = "" Then Exit Do
    Range(DestA1).Offset((J - 1) * 10, -1).Resize(10, 1) = Application.WorksheetFunction.Transpose(myRuote)
Loop

[a2] = Timer
End Sub

Ciao

[Francesco6918]

Grazie Flash e a Anthony siete gentilissimi

Saluti

[Flash30005]

Visto che sei una persona precisa
devi fare attenzione:
l'ultimo numero estratto della ruota di bari in questa estrazione
Estrazione del 25.01.1947
Bari 53 86 76 06 40

è come vedi 40 non 49 come riportano alcuni archivi

ciao

[Francesco6918]

Ciao Flash o applicato la tua macro e funziona bene anche quella di Anthony funziona solo che le righe non erano continue comunque mi diceva di correggere alcune cose e tutto ok,riguardo l estrazione del 25/01/1947 sono andato a scaricare sul sito della lottomatica o scaricato l archivio confrontato con la mia tale estrazione sono uguali riporta il numero 40 dunque non so chi a raggione tra noi due, aspetto una tua risposta.


Distinti Saluti

Francesco

[Flash30005]

Infatti mi sembra di aver detto che è corretto il 40 e non 49
il tuo archivio è corretto perché riporta 40 (come i miei)

Quella postata da me è la macro di Anthony modificata per non avere la riga vuota di separazione tra un'estrazione e l'altra

ciao