Condividi:        

Macrò Estrarrere 20 Numeri 10 ELotto

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

Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 13/06/13 15:13

Un Saluto a tutti gli amici del forum mi servirebbe una macrò per estrarrere i 20 numeri del 10 E lotto dal archivio lotto (Vi Allego) più la data chiaramente escludendo i doppioni.
A partire dalla cella H2 la data, dalla cella I2:AB2 i numeri

www.filedropper.com/archiviolotto

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Sponsor
 

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 13/06/13 15:47

Perché complicarsi la vita con una macro che estragga dall'archivio lotto i numeri per ottenere quelli del 10&Lotto (considerando anche le regole in caso di doppioni cosa non facile da progettare) quando esiste online un archivio come questo?

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 13/06/13 19:55

Ciao Flash30005 a ragione il http://www.lottologia.com/ l archivio parte dal 2009 mi servirebbe dal 1946, io o il programma lottovision 7 ma l archivio 10 elotto non esporta i 20 numeri ma quelli del lotto come da file in excel.
Altrimenti bisogna trovare un file excel solo l archivio 10elotto ma nel web non sono riuscito a trovare nulla.
Nel forum tramite la ricerca nel web o trovato questo viewtopic.php?t=87437 di cui ce una tua macrò se puoi adattarla al mio file mi faresti un piacere dai una occhiata, aspetto una buona notizia.

Distinti Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 13/06/13 22:54

Ho trovato un file testo con tutte le estrazioni e le ho inserite nel tuo file che ripropongo
download file

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 13/06/13 23:17

Ciao Flash30005 grazie l oscaricato per eventuali aggiornamenti in seguito come dovrei comportarmi.
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 13/06/13 23:36

vai nel link del mio primo post
copi la parte dell'archivio che ti manca e lo incolli in un foglio di appoggio di excel
Utlizzi Testo in colonne con separatore . (punto) perché credo che quell'archivio abbia un punto che separa un numero da un altro.
Una volta sistemato nel foglio appoggio lo incolli sul foglio Archivio.

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 13/06/13 23:41

Aggiungo questo link dove ho prelevato l'intero archivio
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 13/06/13 23:45

Ti ringrazio seguirò i tuoi consigli.

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 13/06/13 23:57

Oppure puoi aprire un file nuovo di excel
in un modulo inserisci questa macro ed eseguila
(fai attenzione perché lavorerà sul foglio attivo)
Codice: Seleziona tutto
Sub Macro1()
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.estrazionidellotto.com/10elotto.txt", Destination:=Range("A1" _
        ))
        .Name = "10elotto_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Rows(UR - 3 & ":" & UR).Select
    Selection.Delete Shift:=xlUp
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1)), TrailingMinusNumbers:=True
    Columns("A:Z").EntireColumn.AutoFit
    Range("C1").Select
    Selection.ClearContents
    Range("D1:W1").Select
    Range("W1").Activate
    Selection.Cut Destination:=Range("C1:V1")
    Range("C1:V1").Select
End Sub
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 13/06/13 23:59

Flash30005 questa e una macro per estrarrere dal archivio
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 14/06/13 00:04

questa è una macro che aggiorna l'archivio
in pratica lo sostituisce ogni volta
come avrai notato, se l'hai eseguita, hai anche l'estrazione di questa sera ;)

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 14/06/13 00:05

Tutto ok funziona , se puoi correggermi questa formula =RESTO(RIF.RIGA(A9);9)+1 creata da canapone non ricordo bene mi deve contare i numeri da 1 a 9 .
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 14/06/13 00:14

Non saprei l'utilizzo quindi interpreto
se hai una serie di numeri e vuoi ottenere i loro corrispettivi nel range da 1 a 9
es con 4 hai 4 con 9 hai 9 con 10 hai 1 etc
allora puoi usare questa formula da inserire in riga 2
Codice: Seleziona tutto
=SE(RESTO(C2;9)=0;9;RESTO(C2;9))

poi la copi in lungo e in largo

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 14/06/13 00:21

Ti riporto l esempio contare i numeri da 1 a 9 la formula di canapone l o inserita nella cella M3 vorrei che tu la miglirori dimenticavo quando aggiornero l archivio con la macro quale tasto dovrei selezzionare in excel aggiorna.
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 14/06/13 00:22

Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 14/06/13 00:30

Non riesco a capire cosa ti serve
la formula sembra funzionare cosa c'è che non va?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 14/06/13 00:31

No va bene credevo che cera di meglio
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 14/06/13 00:34

se mi spieghi cosa ti occorre forse risolviamo.

mi hai inviato un file con una colonna come esempio e una colonna con la formula che è come l'esempio quindi?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Francesco6918 » 14/06/13 00:38

Volevo contare i numeri da 1 a 9 ripartire sempre con lo stesso modo niente di particolare , dato che inserendo i numeri da 1 a 10 in excel e trascinarli in basso funziona ma da 1 a 9 non ci riuscivo.
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macrò Estrarrere 20 Numeri 10 ELotto

Postdi Flash30005 » 14/06/13 00:40

Anche questa formula funziona
Codice: Seleziona tutto
=RESTO(RIF.RIGA();9)+1

trascini verso il basso e avrai la sequenza da 1 a 9
per l'inzio sequenza dipende dalla riga di inserimento
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Macrò Estrarrere 20 Numeri 10 ELotto":


Chi c’è in linea

Visitano il forum: Nessuno e 54 ospiti