Condividi:        

EXCEL ricavare i numeri 10 e lotto da archivo lotto

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

EXCEL ricavare i numeri 10 e lotto da archivo lotto

Postdi Francesco53 » 27/07/10 14:08

Buon giorno a tutto il Forum, ho il seguente problema:
avendo l'archivo delle estrazioni del lotto che va dalla colonna D alla colonna BF,
quindi in orizzontale, come posso ricavare i numeri del 10 e lotto a partire dalla
colonna BI ?
Grazie a chiunque può darmi un aiuto.
Francesco
P.S.: se già elaborate le righe, la macro dovrà elaborare solo le nuove estrazioni.
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL ricavare i numeri 10 e lotto da archivo lotto

Postdi Flash30005 » 28/07/10 06:11

Francesco53 ha scritto:come posso ricavare i numeri del 10 e lotto a....

:?: :eeh:
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: EXCEL ricavare i numeri 10 e lotto da archivo lotto

Postdi Francesco53 » 28/07/10 11:25

Invio file esplicativo su quanto richiesto.
http://www.megaupload.com/?d=2CBOON1O
Ringrazio per eventuale aiuto.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL ricavare i numeri 10 e lotto da archivo lotto

Postdi Flash30005 » 29/07/10 09:29

Non so a cosa servano quelle righe che hai aggiunto sotto ogni estrazioni.
Se lo scopo è quello di ottenere le estrazioni del 10 & lotto dalle singole estrazioni posizionate secondo il tuo schema
fai una copia del "foglio1" e rinomina questo foglio in "Progr" poi inserisci in un modulo questa macro e avviala

Codice: Seleziona tutto
Sub Compila()
Worksheets("Progr").Select
UR = Worksheets("Progr").Range("D" & Rows.Count).End(xlUp).Row
If UR < 22 Then UR = 22
Rows("22:" & UR).Clear
UC = Worksheets("Progr").Range("IV7").End(xlToLeft).Column
For CC = 4 To UC Step 7
URD = Worksheets("Progr").Range("C" & Rows.Count).End(xlUp).Row + 1
If URD < 22 Then URD = 22
Range("C" & URD).Value = DateSerial(Mid(Cells(7, CC).Text, 7, 4), Mid(Cells(7, CC).Text, 4, 2), Mid(Cells(7, CC).Text, 1, 2))
CN = 0
For CCE = CC To CC + 4
For RRE = 8 To 17
UCE = Worksheets("Progr").Range("IV" & URD).End(xlToLeft).Column + 1
TN = 0
For CCN = 4 To UCE
If Cells(URD, CCN).Value = Cells(RRE, CCE).Value Then TN = TN + 1
Next CCN
If CCN = 25 Then GoTo SaltaE
If TN = 0 Then Cells(URD, CCN - 1).Value = Cells(RRE, CCE).Value
Next RRE
Next CCE
SaltaE:
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: EXCEL ricavare i numeri 10 e lotto da archivo lotto

Postdi Francesco53 » 29/07/10 09:57

Grazie tutto OK.
Francesco
P.S. Le righe sotto, da 21 a 25, sono una parte di come è l'archivio da cui volevo ricavare
i numeri. Adatterò la tua macro, e poi farò una copia dei numeri a partire dalla colonna
BI dell'archivio in base ad ogni estrazione.
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL ricavare i numeri 10 e lotto da archivo lotto":


Chi c’è in linea

Visitano il forum: Nessuno e 122 ospiti