lotto 14 numeri per l'ambo

[raimea]

V1.1

ciao a tutti.
in questo file sono riuscito a far prelevare da internet le ultime 104 estrazioni del lotto italiano,
tali dati vengono riportati nel fgl - appoggio -.

vorrei poter scrivere nel fgl - archivio ital mil- le estrazioni mancanti della ruota di -->milano.
cioe' controllare le date tra i 2 fogli in modo di riportare nel foglio -archivio ital mil
le date e relativi numeri mancanti, relativi alla solo ruota di milano, cosicche' avrei per tale ruota tutto
l'archivio ben aggiornato.

vi ringrazio.

http://www.megaupload.com/?d=PJM0GGHL

[Flash30005]

Ma se nel foglio Archivio ci sono tutte le estrazioni fino al 10/11/2011
e nel foglio Appoggio solo le ultime 104 estrazioni fino al 10/11/2011 come vorresti integrarle se già esistono nel foglio Archivio?

Ciao

[raimea]

ai ragione, ma nel fgl archivio l'ho tenuto aggiornato scrivendo manualmente i numeri
(al max con un copia-incolla).
io vorrei ora automatizzare il controllo fra i 2 fogli, cioe' confrontare le date
nel fgl archivio - e appoggio, in modo da riportare le date/estrazioni dei giorni mancanti,
in foglio archivio.
grazie

[Flash30005]

Ah bene!
allora nel modulo6 hai la macro della query web che aggiorna il foglio appoggio
verso la fine (riporto due righe esistenti nella tua macro) inserisci il codice tra le due righe segnalate

Codice: Seleziona tutto

   Unload userform1  '<<<<<<<<<<<<<<<<<<<<Esistente
'--------- Nuovo codice da inserire
Set Ws1 = Worksheets("appoggio")
Set Ws2 = Worksheets("archivio ital mil")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row
DataA = DateSerial(Mid(Ws2.Range("B" & UR2).Value, 7, 4), Mid(Ws2.Range("B" & UR2).Value, 4, 1), Mid(Ws2.Range("B" & UR2).Value, 1, 2))
DataApp = DateSerial(Mid(Ws1.Range("A" & UR1).Value, 7, 4), Mid(Ws1.Range("A" & UR1).Value, 4, 1), Mid(Ws1.Range("A" & UR1).Value, 1, 2))
If DataA = DataApp Then
MsgBox "Non ci sono aggioramenti"
GoTo SaltaAgg
Else

For RR1 = UR1 To 3 Step -1
DataApp = DateSerial(Mid(Ws1.Range("A" & RR1).Value, 7, 4), Mid(Ws1.Range("A" & RR1).Value, 4, 1), Mid(Ws1.Range("A" & RR1).Value, 1, 2))
If DataA = DataApp Then
RigaA = RR1 + 1
GoTo Aggiorna
End If
Next RR1
End If
Aggiorna:
For RR1 = RigaA To UR1
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row + 1
Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR1).Value
Ws2.Range("C" & UR2 & ":G" & UR2).Value = Ws1.Range("AA" & RR1 & ":AE" & RR1).Value
Next RR1
MsgBox "Archivio Aggiornato"
SaltaAgg:
'--------- Fine nuovo codice da inserire

   Fine = Timer  '<<<<<<<<<<<<<<<<<<<<Esistente


Ciao

[raimea]

graaaande...
tutto ok
grazie

[Flash30005]

Visto che hai esperienza di Userform etc
perché non aiuti questo utente?
Ciao

[zip 87]

Grazie Flash,

ho sbirciato il file di raimea e ho trovato il l'inghippo
Adesso funziona, purtroppo la gif non è animata

[zip 87]

Anzi raimea, ma come funziona? Paga questo sistema? Non si sa mai

[raimea]

V1.5
vers finale,

http://www.lelugarine.eu/downloads.asp?id=489
(appogio il file qui cosi non c'e problema che dopo "tot" giorni viene rimosso)

x zip87
x vincere conta SOLO il lato B....
non ci sono formule programmi ecc.....
buona fortuna
ciao

[raimea]

v 1.6
azz ho parte di una macro che fa i capricci...

in questo file fino alla data del 19.4.12 e' tutto ok.
poi: vado in preleva dati va in fgl appoggio e premo preleva
si attiva la macro (che ha sempre funzionato), Sub Aggitalmil in mod 6.
questa aggiorna correttamente il fgl appoggio fino all ' estrazione del 26.5.12 ,
fin qui tutto ok.

a questo punto se vado in fgl --> archivio ital mil
dovrei trovarmi le estrazioni della ruota di milano dal 19 al 26.5.12
invece mi mette solo 3 gg 22/24/26 maggio 12 .... saltando le altre estraz dal 19 in poi.

il pezzo di macro che dovrebbe aggiornare il fgl archivio ital mil
e' questo:

Codice: Seleziona tutto

   Set Ws1 = Worksheets("appoggio") ' qui vado ad aggiornare il fgl archivio della ruota di milano
Set Ws2 = Worksheets("archivio ital mil")
Worksheets("archivio ital mil").Unprotect
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row
DataA = DateSerial(Mid(Ws2.Range("B" & UR2).Value, 7, 4), Mid(Ws2.Range("B" & UR2).Value, 4, 1), Mid(Ws2.Range("B" & UR2).Value, 1, 2))
DataApp = DateSerial(Mid(Ws1.Range("A" & UR1).Value, 7, 4), Mid(Ws1.Range("A" & UR1).Value, 4, 1), Mid(Ws1.Range("A" & UR1).Value, 1, 2))
If DataA = DataApp Then
MsgBox "Non ci sono aggioramenti"
GoTo SaltaAgg
Else

For RR1 = UR1 To 3 Step -1
DataApp = DateSerial(Mid(Ws1.Range("A" & RR1).Value, 7, 4), Mid(Ws1.Range("A" & RR1).Value, 4, 1), Mid(Ws1.Range("A" & RR1).Value, 1, 2))
If DataA = DataApp Then
RigaA = RR1 + 1
GoTo Aggiorna
End If
Next RR1
End If
Aggiorna:
For RR1 = RigaA To UR1
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row + 1
Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR1).Value
Ws2.Range("C" & UR2 & ":G" & UR2).Value = Ws1.Range("AA" & RR1 & ":AE" & RR1).Value
Next RR1
MsgBox "Archivio Aggiornato"
SaltaAgg:

che c'e che inghippa l'aggiornamento ?
allego il file
grazie
https://rapidshare.com/files/3714765104/lotto14_21num.mil_v1.6.rar

[Flash30005]

L'inghippo sta nella data che prelevi nelle righe evidenziate hai messo lunghezza campo mese 1 invece che 2 ricontrolla e modifica

Codice: Seleziona tutto

'....
DataA = DateSerial(Mid(Ws2.Range("B" & UR2).Value, 7, 4), Mid(Ws2.Range("B" & UR2).Value, 4, 2), Mid(Ws2.Range("B" & UR2).Value, 1, 2))  '<<<< in questa riga la lunghezza mese deve esssere 2 non 1
DataApp = DateSerial(Mid(Ws1.Range("A" & UR1).Value, 7, 4), Mid(Ws1.Range("A" & UR1).Value, 4, 2), Mid(Ws1.Range("A" & UR1).Value, 1, 2))  '<<<< in questa riga la lunghezza mese deve esssere 2 non 1
If DataA = DataApp Then
MsgBox "Non ci sono aggioramenti"
GoTo SaltaAgg
Else

For RR1 = UR1 To 3 Step -1
DataApp = DateSerial(Mid(Ws1.Range("A" & RR1).Value, 7, 4), Mid(Ws1.Range("A" & RR1).Value, 4, 2), Mid(Ws1.Range("A" & RR1).Value, 1, 2))   '<<<< in questa riga la lunghezza mese deve esssere 2 non 1
If DataA = DataApp Then
'...

Ciao

[raimea]

risolto tutto ok
grazie x il suggerimento per la correzione
ora funziona correttamente.
sempre disponibile e gentile.
grazie
ciao