Condividi:        

aiuto per numeri non estratti tra 90

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

aiuto per numeri non estratti tra 90

Postdi paolox » 28/11/09 10:44

ciao
mi serve ancora un aiuto per una formula da applicare ad un mio foglio di excel
dove ci sono le estrazioni del lotto, vorrei poter avere un elenco dove ci siano i numeri
che non sono stati estratti nell'ultima estrazione
, quindi da 90 numeri togliere
i 55 estratti, spero si possa fare.....

la mia idea è questa:
nel mio foglio "paolox" ho da D10 ad H20 i numeri estratti nell'ultima estrazione
in 11 righe, 5 numeri a riga

sono le 11 ruote quindi teoricamente circa 55 numeri,
ci possono essere anche dei numeri doppi o tripli dato che
un numero può uscire anche su più ruote,

vorrei un elenco in ordine crescente dei numeri che non sono usciti
nelle dieci ruote, possibilmente in ordine per decine,
in un altro mio foglio che chiamo "NUMnonESTR"


spero si possa fare

mi date una mano a farlo?

vi ringrazio anticipatamente per la disponibilità e pazienza

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Sponsor
 

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 28/11/09 17:02

Prova questa macro
Codice: Seleziona tutto
Sub CercaNum()
Columns("N:N").Clear
For Num = 1 To 90
    For RR = 10 To 20
        For CC = 4 To 8
        If Num = Cells(RR, CC).Value Then GoTo salta
        Next CC
    Next RR
    Cells(Rows.Count, 14).End(xlUp).Offset(1, 0) = Num
salta:
Next Num
End Sub

I numeri non usciti saranno disposti in verticale (ordine crescente) nella colonna N a partire dalla riga 2

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: aiuto per numeri non estratti tra 90

Postdi paolox » 29/11/09 09:26

ciao Flash
ho provato in mille maniere ad inserire questa macro,
ma non ci riesco, negli altri fogli ho altre macro e non vorrei rovinare tutto,
mi potresti indicarmi il percorso esatto e quali opzioni scegliere
per inserire in modo che funzioni la macro che mi hai preparato?

grazie

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Re: aiuto per numeri non estratti tra 90

Postdi paolox » 07/12/09 14:48

sono proprio un disastro con il pc
non ci sono ancora riuscito
vi chiedo ancora un aiuto
grazie
ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 07/12/09 19:43

Apri il file di excel (qualsiasi foglio perché la macro va inserita nel modulo)
copi l'intero codice qui riprodotto
Tenendo premuto il tasto ALT premi anche F11
e nel modulo incolli tutto il codice
Ti posizioni sul foglio dei dati da processare e
tenendo premuto il tasto ALT premi anche F8
selezioni la macro CercaNum e premi Esegui

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: aiuto per numeri non estratti tra 90

Postdi paolox » 08/12/09 01:50

ciao Flash
grazie mille
seguendo le tue indicazioni precise stavolta ce l'ho fatta

ora vado a dormire tranquillo

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Aiuto per numeri non estratti tra 90

Postdi seniorG62 » 13/12/09 21:32

Ciao PAOLOX - FLASH,
anche io sono un'impedito.
Malgrado tutto, sono riuscito a farla funzionare. Piccolo particolare non mi ha dato il risultato indicato da PAOLOX.
In realtà mi dà, nella colonna "N", i numeri da 1 a 90 in ordine crescente, mentre nella mia matrice di 55 numeri ci sono 18 numeri, che non vengono esclusi dai 90.
Se non ho capito male dai 90 numeri doveno essere esclusi i 18 da me utilizzati ..... o sbaglio..?
Siccome sono interessato a questa "macro", potreste, per favore. illuminirmi?
Grazie.
seniorG62 ... in arte Giovanni
seniorG62
Utente Junior
 
Post: 72
Iscritto il: 20/07/08 17:37

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 13/12/09 23:57

Io sono partito dall'idea di Paolox
paolox ha scritto:...la mia idea è questa:
nel mio foglio "paolox" ho da D10 ad H20 i numeri estratti nell'ultima estrazione
in 11 righe, 5 numeri a riga
sono le 11 ruote quindi teoricamente circa 55 numeri,
ci possono essere anche dei numeri doppi o tripli dato che
un numero può uscire anche su più ruote,
vorrei un elenco in ordine crescente dei numeri che non sono usciti....

Per il resto non so cosa si intendeva ne tantomeno è stato specificato meglio e quindi la macro fa quanto è stato richiesto.
seniorG62 ha scritto:...Se non ho capito male dai 90 numeri doveno essere esclusi i 18 da me utilizzati ..... o sbaglio..?
e qui continuo a non capire dove sono usciti i 18 utilizzati (da chi e da cosa?)

Si sta parlando di una matrice di 11 righe da 5 colonne ciascuna con un numero su ogni cella; quindi di 55 numeri e si devono ricercare in questi 55 numeri, i numeri non esistenti,
non essendo esistenti, l'ordine da dare più congeniale è quello crescente (non si può dare quello di uscita visto che non sono nella matrice).

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-

aiuto per numeri non estratti tra 90

Postdi seniorG62 » 16/12/09 21:58

Ciao FLASH,
in merito a questa macro, e al precdente quesito da me formulato ,ho riprodotto la situazione del post, l'ho provata e funziona perfettamente. Per esercitarmi l'ho adattata a mie esigenze e, oltre a risolvere una mia questine di ricerca ho imparato qualcosa.
Grazie FLASh.
Cordialmente.
seniorG62... in arte... Giovanni
seniorG62
Utente Junior
 
Post: 72
Iscritto il: 20/07/08 17:37

Re: aiuto per numeri non estratti tra 90

Postdi paolox » 04/01/10 11:00

ciao
vorrei aggiungere un altro foglio FREQ. RIT. al mio programmino,
vorrei una formula simile a quella che avevo chiesto, ma un po più complessa.

mi serve ancora un aiuto per la formula da applicare
la mia idea è questa:
per la ruota di BARI
nel mio foglio FREQ. RIT.
ho un elenco dei 24 numeri più frequenti ed un elenco con i 24 numeri più ritardatari
da J12 a J59
vorrei poter avere un elenco dove dai 90 numeri vengano tolti i 48 estratti,
e messi in ordine crescente nella colonna da AT12 ad AT53


per la ruota di CAGLIARI
i 48 numeri da togliere sono nella colonna da L12 a L59
e la colonna dove inserire l'elenco da AU12 a AU53

per la ruota di FIRENZE
i 48 numeri da togliere sono nella colonna da N12 a N59
e la colonna dove inserire l'elenco da AV12 a AV53

per la ruota di GENOVA
i 48 numeri da togliere sono nella colonna da P12 a P59
e la colonna dove inserire l'elenco da AW12 a AW53

per la ruota di MILANO
i 48 numeri da togliere sono nella colonna da R12 a R59
e la colonna dove inserire l'elenco da AX12 a AX53

per la ruota di NAPOLI
i 48 numeri da togliere sono nella colonna da T12 a T59
e la colonna dove inserire l'elenco da AY12 a AY53

per la ruota di PALERMO
i 48 numeri da togliere sono nella colonna da V12 a V59
e la colonna dove inserire l'elenco da AZ12 a AZ53

per la ruota di ROMA
i 48 numeri da togliere sono nella colonna da X12 a X59
e la colonna dove inserire l'elenco da BA12 a BA53

per la ruota di TORINO
i 48 numeri da togliere sono nella colonna da Z12 a Z59
e la colonna dove inserire l'elenco da BB12 a BB53

per la ruota di VENEZIA
i 48 numeri da togliere sono nella colonna da AB12 a AB59
e la colonna dove inserire l'elenco da BC12 a BC53

per la ruota NAZIONALE
i 48 numeri da togliere sono nella colonna da AD12 a AD59
e la colonna dove inserire l'elenco da BD12 a BD53


spero si possa fare

mi date una mano a farlo?

vi ringrazio anticipatamente per la disponibilità e pazienza

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 04/01/10 16:34

Conviene che pubblichi il foglio sul quale lavorare

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: aiuto per numeri non estratti tra 90

Postdi paolox » 04/01/10 18:55

ciao
ecco qui il link dove trovare solo il foglio
dove vorrei aggiungere la macro

http://rapidshare.com/files/330297752/p ... h.xls.html

ti ringrazio per la tua disponibilità

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 05/01/10 02:31

Prova questa macro che, se ho capito bene, dovrebbe mettere in ordine i numeri da 1 a 90 (per ogni ruota) non esistenti né tra i numeri più ritardatari e né tra i numeri più frequenti
Tieni presente che i numeri da escludere non sono sempre 48, quindi ti rimangano spesso più di 42 numeri.

Codice: Seleziona tutto
Sub CompilaNum()
Cn = 0
For CC = 10 To 30 Step 2
Rn = 12
For Num = 1 To 90
For RR = 12 To 59
If Cells(RR, CC).Value = Num Then
GoTo AvantiN
End If
Next RR
Cells(Rn, CC + 36 - Cn).Value = Num
'Cells(Rn, CC + 36 - Cn * 2).Select
Rn = Rn + 1
AvantiN:
Next Num
Cn = Cn + 1
Next CC
End Sub


Fai sapere
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: aiuto per numeri non estratti tra 90

Postdi paolox » 05/01/10 08:52

ciao flash
la macro che tu mi hai scritto va abbastanza bene,
ma non è esattamente come io la volevo,
io vorrei mettere in ordine i numeri da 1 a 90 (per ogni ruota)
non esistenti né tra i numeri più ritardatari e né tra i numeri
più frequenti ma nella tabella da AT12 a BD101,
dalla prima all'ultima cella,
dove non c'è il numero dovrebbe restare la cella vuota


grazie

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Re: aiuto per numeri non estratti tra 90

Postdi Flash30005 » 05/01/10 14:22

Allora prova questa
Codice: Seleziona tutto
Sub CompilaNum()
Application.Calculation = xlManual
Range("AT12:BD101").Select
Selection.ClearContents
Range("AS11").Select
Cn = 0
For CC = 10 To 30 Step 2
For Num = 1 To 90
Rn = Num + 11
For RR = 12 To 59
If Cells(RR, CC).Value = Num Then
GoTo AvantiN
End If
Next RR
Cells(Rn, CC + 36 - Cn).Value = Num
AvantiN:
Next Num
Cn = Cn + 1
Next CC
Application.Calculation = xlCalculationAutomatic
End Sub


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: aiuto per numeri non estratti tra 90

Postdi paolox » 05/01/10 14:36

ciao flash
ho inserito la seconda formula
ed ora è perfetto

grazie infinite

ciao
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano


Torna a Applicazioni Office Windows


Topic correlati a "aiuto per numeri non estratti tra 90":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1
aiuto installazione
Autore: mod360
Forum: Software Windows
Risposte: 3

Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti