Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro 10eLotto

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

Macro 10eLotto

Postdi Statix » 22/11/12 22:54

Ciao Flash30005,
ho trovato nel forum questa tua macro che estrae i 20 numeri del 10eLotto da un archivio Lotto,
volevo chiederti se era possibile fare una modifica ,cioè avere i dati del 10eLotto ordinati dal numero più piccolo al più grande,
grazie.

Codice: Seleziona tutto
Sub Compila()
    Dim conta As Integer
   
    Riga1 = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
    Riga2 = Worksheets("Archivio").Range("BF" & 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("BF" & 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
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Macro 10eLotto

Postdi Flash30005 » 23/11/12 01:24

Potresti indicarmi il post o l'utente?
poter risalire al file

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: Macro 10eLotto

Postdi Statix » 23/11/12 20:47

Ciao Flash30005,
non riuscivo a trovare il link.


viewtopic.php?f=26&t=92788&p=530202&hilit=Riga1+%3D+Worksheets#p530202
premetto che i riferimenti del mio archivio sono leggermenti diversi,
colonna A record
Colonna B vuota
Colonna C Data
Colonna D a BA le dieci ruote
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro 10eLotto

Postdi Flash30005 » 24/11/12 02:57

Il Link è giusto e la macro è corretta e l'ho ritrovata ma fa riferimento al Lotto e non al 10&lotto come lo conosciamo noi oggi:
quello ogni 5 minuti di 20 numeri

Ma non conoscendo cosa vorresti fare spiega al meglio....

E, se possibile, e forse sarebbe la soluzione migliore, invia il file con i dati già distribuiti dei quali vuoi ordinare in ordine crescente i 20 numeri
Perché, spero che, non mi chieda di ricavarmi i 20 numeri dalle 10 ruote! :eeh:

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: Macro 10eLotto

Postdi Statix » 26/11/12 22:20

Ciao Flash30005,
scusami per il ritardo ma ho avuto alcuni problemi.
Dal Lotto si ricava il 10eLotto classico,da non confondere con 10eLotto ogni 5 minuti
ti allego la disposizione dell'archivio,da questi bisogna estrarre i 20 numeri del 10eLotto classico,
così come nel topic segnalato in più dovrebbe ordinarli dal più piccolo al più grande.
con la macro sopra ,leggermente modificata con i miei riferimenti riesco ad estrarli ma non ordinati.
Immagine
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro 10eLotto

Postdi Flash30005 » 26/11/12 23:49

Prova questa macro
Codice: Seleziona tutto
Sub Compila()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Riga1 = Worksheets("Archivio").Range("C" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BJ" & Rows.Count).End(xlUp).Row
Dim conta As Integer
For RR = Riga2 + 1 To Riga1
    Agg = 0
    conta = 0
Ripeti:
    For ColA = 4 To 49 Step 5
        TR = 0
        ColB = ColA + Agg
        If conta >= 20 Then GoTo SaltaRR
            Range("BJ" & RR).Value = Range("C" & RR).Value
            UC = Range("IV" & RR).End(xlToLeft).Column + 1
            For CCL = 63 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 = 49 Then
                Agg = Agg + 1
                GoTo Ripeti
            End If
    Next ColA
SaltaRR:
    For NumO = 1 To 90
        For CC = 63 To 82
            If Cells(RR, CC).Value = NumO Then
                UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                Cells(RR, UCL).Value = NumO
            End If
        Next CC
    Next NumO
    Range("CE" & RR & ":CX" & RR).Copy Destination:=Range("BK" & RR)
    Range("CE" & RR & ":CX" & RR).ClearContents
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Chiaramente per averle in ordine dovrai eliminare le estrazioni precedenti e rielaborare tutto ex-novo

fai sapere
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: Macro 10eLotto

Postdi Lucio Peruggini » 27/11/12 03:18

Ciao Statix, ogni tanto ci si sente.
Ho fatto partire questa macro di Flash, sbaglio o tira fuori 21 colonne? E' normale? Cosa c'è che non va? Mi tira fuori due volte la ruota Ba ma i numeri che seguono sono diversi. L'una o l'altra? Non conosco come funziona questo gioco.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: Macro 10eLotto

Postdi Statix » 27/11/12 20:55

Ciao Flash30005,
la macro è perfetta,
c'è la data e i 20 numeri,un particolare che manca è il record ,
nel frattempo vedo se c'è la faccio a fare questa modifica,
grazie infinite.


Per Lucio,
questa macro serve ad estrarre da un archivio lotto ,l'archivio del 10Elotto classico,
vedo che anche tu te la spassi tra formule e macro.
un caloroso saluto
Pietro
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro 10eLotto

Postdi Lucio Peruggini » 28/11/12 00:46

Ciao
Ma quante colonne tira fuori?
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: Macro 10eLotto

Postdi Flash30005 » 28/11/12 07:06

@Statix
Credo ti riferisca al numero in sequenza vicino alla data dell'estrazione ricavata
se così vedrò di inserirlo.

@Lucio
Nel 10&Lotto i numeri in gioco ovvero estratti sono 20 nel range da 1 a 90
ma più che estratti sono ricavati dal primo e secondo estratto delle 10 ruote del Lotto classico (esclusa quindi la ruota Nazionale)
rispettando alcune regole di non ripetitività del numero:
In caso di numeri ripetuti, per raggiungere i 20 numeri vincenti, vengono presi in considerazione
quelli risultanti dalle altre colonne della Estrazione a partire dalla terza colonna, iniziando dalla Ruota di Bari
e proseguendo in ordine alfabetico (la Ruota Nazionale è sempre esclusa)

Nel file che hai visto le estrazioni sono disposte in riga e quindi i numeri estratti in colonna per un numero di colonne pari a 20

ciao

EDIT ore 7:15 - Implemento macro
Codice: Seleziona tutto
Sub Compila()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Riga1 = Worksheets("Archivio").Range("C" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BJ" & Rows.Count).End(xlUp).Row
Dim conta As Integer
Rec = 0
For RR = Riga2 + 1 To Riga1
Rec = Rec + 1
Range("BI" & RR).Value = Rec
    Agg = 0
    conta = 0
Ripeti:
    For ColA = 4 To 49 Step 5
        TR = 0
        ColB = ColA + Agg
        If conta >= 20 Then GoTo SaltaRR
            Range("BJ" & RR).Value = Range("C" & RR).Value
            UC = Range("IV" & RR).End(xlToLeft).Column + 1
            For CCL = 63 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 = 49 Then
                Agg = Agg + 1
                GoTo Ripeti
            End If
    Next ColA
SaltaRR:
    For NumO = 1 To 90
        For CC = 63 To 82
            If Cells(RR, CC).Value = NumO Then
                UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                Cells(RR, UCL).Value = NumO
            End If
        Next CC
    Next NumO
    Range("CE" & RR & ":CX" & RR).Copy Destination:=Range("BK" & RR)
    Range("CE" & RR & ":CX" & RR).ClearContents
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
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-


Torna a Applicazioni Office Windows


Topic correlati a "Macro 10eLotto":


Chi c’è in linea

Visitano il forum: Nessuno e 20 ospiti