Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

lotto 14 numeri per l'ambo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

lotto 14 numeri per l'ambo

Postdi raimea » 12/11/11 16:42

V1.1

ciao a tutti. 8)
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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: lotto 14 numeri per l'ambo

Postdi Flash30005 » 12/11/11 19:38

:roll:
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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

lotto 14 numeri per l'ambo

Postdi raimea » 12/11/11 22:03

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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: lotto 14 numeri per l'ambo

Postdi Flash30005 » 12/11/11 22:06

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

lotto 14 numeri per l'ambo

Postdi raimea » 12/11/11 22:16

:o graaaande...
tutto ok
grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: lotto 14 numeri per l'ambo

Postdi Flash30005 » 12/11/11 22:29

Visto che hai esperienza di Userform etc
perché non aiuti questo utente? :)
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: lotto 14 numeri per l'ambo

Postdi zip 87 » 12/11/11 23:11

Grazie Flash,

ho sbirciato il file di raimea e ho trovato il l'inghippo :lol:
Adesso funziona, purtroppo la gif non è animata :cry:
zip 87
Utente Junior
 
Post: 52
Iscritto il: 04/11/11 10:17

Re: lotto 14 numeri per l'ambo

Postdi zip 87 » 13/11/11 00:32

Anzi raimea, ma come funziona? Paga questo sistema? :lol: Non si sa mai
zip 87
Utente Junior
 
Post: 52
Iscritto il: 04/11/11 10:17

lotto 14 & 21 numeri per l'ambo

Postdi raimea » 26/11/11 06:28

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.... :o
non ci sono formule programmi ecc.....
buona fortuna
ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: lotto 14 numeri per l'ambo

Postdi raimea » 27/05/12 11:52

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

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 .... :mmmh: :?: 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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: lotto 14 numeri per l'ambo

Postdi Flash30005 » 27/05/12 13:49

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: lotto 14 numeri per l'ambo

Postdi raimea » 27/05/12 15:16

risolto tutto ok ;)
grazie x il suggerimento per la correzione
ora funziona correttamente.
sempre disponibile e gentile.
grazie
ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "lotto 14 numeri per l'ambo":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti