EXCEL e 10&Lotto

[Francesco53]

Buongiorno a tutti,
tramite una Query Web, scarico l'aggiornamento delle estrazioni del lotto, a volte anche più di una estrazione,
l'archivio va dalla colonna D (data estrazione) alla colonna BG ultimo estratto di Venezia.
Allego immagine Archivio:

Dalla colonna BK alla colonna CD ho gli estratti per il 10 e Lotto,
Allego immagine:

Al termine dell'inserimento dell'archivio tramite query web, avrei la necessità di lanciare tramite Call
l'elaborazione per gli estratti del 10 e lotto e quindi aggiornare l'archivio dello stesso.
Tramite il codice :
Riga1 = Worksheets("Archivio").Range("D" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BK" & Rows.Count).End(xlUp).Row
Riga = Riga1 - Riga2
Ottengo le righe da aggiornare, ma non riesco a elaborare i primi 20 numeri validi per il 10 e lotto,
Ringrazio chi mi può aiutare.
Francesco

[Flash30005]

Potresti inviare il file?
Non conosco bene le regole delle estrazioni del 10&Lotto rispetto al Lotto come ad esempio l'uscita di numeri uguali etc

ciao

[Francesco53]

Buongiorno Flash,
ti ho inserito un file su cui fare le prove ed in un foglio le relative regole del 10 e Lotto:
http://www.megaupload.com/?d=13NF71LU
Grazie
Francesco

[Francesco53]

Buongiorno a tutto il forum,
aggiorno la richiesta.
Grazie
Francesco

[Flash30005]

Le regole adottate sono complesse e realizzare una macro idonea occorre un po' di tempo che in questo periodo mi manca.

Speriamo nell'intervento di qualche volenteroso

ciao

[Francesco53]

Grazie Flash, capisco la difficoltà che porterebbe via troppo tempo.
Francesco

[Flash30005]

Comunque dovresti spiegare cosa succede se anche il primo numero di ruota è già uscito...

[Francesco53]

Buongiorno Flash,
se esaminando i primi estratti, un numero risulta già presente nelle ruote precedenti, dovrebbe saltare quell'estratto
e continuare ad analizzare le altre ruote. Così anche per i secondi estratti, i numeri mancanti per arrivare a venti, li
prende dalla terza colonna, quella dei terzi estratti, sempre rispettando il fatto che se già presenti, passa alla successiva ruota.
Se per te può essere di aiuto, ti allego questo codice, è tuo solo che per estrapolare i dati, li prelevava dalla classica estrazione
a quadro con 11 ruote e 6 colonne, ti allego anche l' immagine. La differenza rispetto a quanto chiedo, è che lì dovevo lanciare
la macro per ogni estrazione, solo che adesso pensavo di realizzare il tutto scaricando le estrazioni, come detto a volte più di una
in quanto non sono molto perseverante nel seguire i giochi, mi diverte fare qualcosa in excel ma non seguo poi troppo il gioco.

Codice: Seleziona tutto

Sub Compila()
Worksheets("Menu").Select
    UR = Worksheets("Menu").Range("E" & Rows.Count).End(xlUp).Row
    If UR < 22 Then UR = 22
Range("B22:Z22").Select
Selection.ClearContents
    UC = Worksheets("Menu").Range("I7").End(xlToLeft).Column
    For CC = 4 To UC Step 7
    URD = Worksheets("Menu").Range("C" & Rows.Count).End(xlUp).Row - 1
    If URD < 22 Then URD = 22
    Range("C" & URD) = Cells(6, CC).Value
    CN = 0
    For CCE = CC To CC + 4
    For RRE = 7 To 16
    UCE = Worksheets("Menu").Range("IV" & URD).End(xlToLeft).Column + 1
    TN = 0
    For CCN = 4 To UCE
    If Cells(URD, CCN).Value = Cells(RRE, CCE).Value Then TN = TN + 1
    Next CCN
    If CCN = 25 Then GoTo SaltaE
    If TN = 0 Then Cells(URD, CCN - 1).Value = Cells(RRE, CCE).Value
    Next RRE
    Next CCE
SaltaE:
    Next CC
End Sub

Grazie
Francesco

[Flash30005]

Penso che una macro così possa andare bene (se i dati sono come da foglio inviato)

Codice: Seleziona tutto

Sub Compila()
Riga1 = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BG" & Rows.Count).End(xlUp).Row
For RR = Riga2 + 1 To Riga1
    Range("BF" & RR - 1).AutoFill Destination:=Range("BF" & RR - 1 & ":BF" & RR), Type:=xlFillDefault
    Agg = 0
    Conta = 0
Ripeti:
    For ColA = 7 To 52 Step 5
        TR = 0
        ColB = ColA + Agg
        If Conta >= 20 Then GoTo SaltaRR
            Range("BG" & RR).Value = Range("A" & RR).Value
            UC = Range("IV" & RR).End(xlToLeft).Column + 1
            For CCL = 60 To UC
                If Cells(RR, CCL).Value = Cells(RR, ColB) Then
                    TR = 1
                    GoTo SaltaCCL
                End If
            Next CCL
            If TR = 0 Then
                UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                Cells(RR, UCL).Value = Cells(RR, ColB).Value
                Conta = Conta + 1
            End If
SaltaCCL:
            If ColA = 52 Then
                Agg = Agg + 1
                GoTo Ripeti
            End If
    Next ColA
SaltaRR:
Next RR
End Sub

Ciao

[Francesco53]

Ciao Flash,
tutto ok funziona a meraviglia, mi dava solo errore su conta = 0, per cui ho dichiarato la variabile
e funziona tutto.

Codice: Seleziona tutto

Sub Compila()
    Dim conta As String
   
    Riga1 = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
    Riga2 = Worksheets("Archivio").Range("BG" & Rows.Count).End(xlUp).Row
    For RR = Riga2 + 1 To Riga1
        Range("BF" & RR - 1).AutoFill Destination:=Range("BF" & RR - 1 & ":BF" & RR), Type:=xlFillDefault
        Agg = 0
        conta = 0
Ripeti:
        For ColA = 7 To 52 Step 5
            TR = 0
            ColB = ColA + Agg
            If conta >= 20 Then GoTo SaltaRR
                Range("BG" & RR).Value = Range("A" & RR).Value
                UC = Range("IV" & RR).End(xlToLeft).Column + 1
                For CCL = 60 To UC
                    If Cells(RR, CCL).Value = Cells(RR, ColB) Then
                        TR = 1
                        GoTo SaltaCCL
                    End If
                Next CCL
                If TR = 0 Then
                    UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                    Cells(RR, UCL).Value = Cells(RR, ColB).Value
                    conta = conta + 1
                End If
SaltaCCL:
                If ColA = 52 Then
                    Agg = Agg + 1
                    GoTo Ripeti
                End If
        Next ColA
SaltaRR:
    Next RR
    End Sub

Grazie
Francesco

[Flash30005]

Io non dichiaro mai le variabili (anche se la corretta sintassi lo richiederebbe) proprio perché non mi hanno mai dato problemi (solo con alcune versioni di excel avviene questo).
Comunque è errato dimensionare la variabile conta come fosse una stringa in quanto è un numero
quindi dovresti dimensionarla come integer se il valore non superiora 32.000 (credo) o long per un numero superiore

Ciao

[Francesco53]

Grazie Flash,
sempre gentile e utile.
Hai ragione per le variabili, non avevo mai avuto problemi neppure io con le tue macro,
questa volta però mi si bloccava, la cosa strana è che per Agg = 0 va tutto bene. Misteri di excel.
Un caro saluto
Francesco

[Flash30005]

la cosa strana è che per Agg = 0 va tutto bene

Mi viene un dubbio specialmente se hai excel 2007
non vorrei che conta fosse una parola chiave
prova a cliccare nella parola Conta (con il mouse che lampeggia tra la N e la T)
e poi premi F1 se esce l'help con questa parola e come utilizzarla allora è una parola chiave
puoi cambiare nome alla variabile (esempio Conteggio o altro)

Fai sapere
ciao

[Francesco53]

Ho provato quanto da te consigliato, non mi da però che conta è una parola chiave.
Ho provato a cambiare da conta a conteggio come da te indicato e funziona tutto bene
anche se non dichiaro la variabile.
Ho anche provato un'altra tua macro in cui era presente conta è funziona benissimo.
Ti allego codice di quanto affermato:

Codice: Seleziona tutto

Sub Trova()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    conta = 0
    Trov = 0
    Columns("N:N").ClearContents
    For R = 4 To UR
        If Range("E" & R).Value = 0 Then
            conta = 0
            Trov = 0
        Else
            conta = conta + 1
        End If
        If conta <= [F1] And Trov = 0 Then
            If Range("J" & R).Value = 1 Then
                Range("N" & R).Value = 1
                Trov = 1
            End If
            Else
                If conta > 1 And Range("J" & R).Value = 1 Then Range("N" & R).Value = 0
        End If
    Next R
    End Sub

Saranno i misteri di excel 2007.
Grazie
FRancesco