Condividi:        

Identificare record ripetuti

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

Identificare record ripetuti

Postdi Lucio P. » 19/04/09 00:46

Buona Domenica a tutti voi. Avrei un altro quesito da porre sempre sulla medesima metodologia; gentilmente e con il tempo dovuto.

Chiedo: è possibile applicare a questa macro che “Tribuno” gentilmente ha fatto (post di riferimento 16/04/09 00:52) una modifica che, quando vi è un numero diverso inizi di nuovo il conteggio escludendo i doppioni come già essa fa?
Premetto che i record da un numero all’altro sono all’incirca 2.000-2.400; e in pratica, pur non completando l’ultimo ciclo di ogni numero, dovrebbe proseguire il cammino con il numero successivo ripartendo per l’appunto con quest’ultimo.

Esempio pratico:

11 Na 7989
11 Ba 7991
11 Mi 7995
11 Ca 7996
11 Ro 8003
11 Ve 8005
11 Fi 8007
11 Ge 8017
11 To 8017 ************* ciclo terminato con 9 record
11 Pa 8021
11 Ge 8022
11 Ro 8024
11 To 8028
11 Ca 8032
11 Ba 8034
11 Fi 8042
11 Pa 8047 ************* ciclo non terminato con 8 record ma la macro dovrebbe continuare con il nuovo numero
12 Mi 3957
12 Na 3959
12 Ve 3967
12 Ca 4002
12 Pa 4003
12 Ge 4009
12 Ro 4020
12 Fi 4027
12 Ba 4030 ************* ciclo terminato con 9 record
12 Ca 4030
12 Na 4030
12 Mi 4031
12 Ge 4034
12 Ro 4041
12 To 4042
12 Ba 4045
12 Pa 4049
12 Ve 4049 ************* in questo caso il ciclo è terminato con 9 record ma la macro dovrebbe continuare con il nuovo numero
13 Ge 3951
13 To 3960
13 Ba 3996
13 Pa 3997
13 Fi 3998
13 Ca 3999
13 Mi 3999
13 Na 4000
13 Ve 4005 ************* ciclo terminato con 9 record


Così facendo, potrei inserire tutti i 90 numeri e ottenere la ricerca in un sol colpo.

Grazie, Lucio
Lucio P.
Utente Junior
 
Post: 82
Iscritto il: 15/04/09 08:53

Sponsor
 

Re: Identificare record ripetuti

Postdi Lucio P. » 19/04/09 08:04

Chiedo scusa, mi sono reso conto che probabilmente ho sbagliato nell'aprire un nuovo topic con nome identico.

Ancora saluti e buona Domenica
Lucio P.
Utente Junior
 
Post: 82
Iscritto il: 15/04/09 08:53

Re: Identificare record ripetuti

Postdi ricky53 » 19/04/09 19:24

Ciao,
qualche spiegazione in più?

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Identificare record ripetuti

Postdi Lucio P. » 19/04/09 20:16

Sinceramente non so cosa possa aggiungere. Così com'è, la macro esclude i record doppioni riferiti alle ruote e lo fa tenendo conto di nove ruote diverse l'una dall'altra. In pratica ogni ciclo è composto di nove ruote.
Partendo quasi sempre da un record ipotetico riga 1 appartenente per l'appunto d'all'estrazione 3950 o gi di li, e che può finire dopo circa 2300 record,; quante sono le righe prima di aver scartato le ruote doppione.
Avendo a disposizione 90 numeri, ogni ciclo copleto finale andrà per ogni numero da 1 a supponiamo 2300. Finito questo, inizia un altro numero che partirà anch'esso dalla 3950= estrazione ma come record, partendo dalla riga 1 avremo già inserito il primo numero ed eliminate le ruote eccedenti, ci troveremo con meno record. A questo punto la macro, individuato un numero diverso dal precedente, inizia il conteggio da qui; con il nuovo numero che incontra.

Ciao Lucio
Lucio P.
Utente Junior
 
Post: 82
Iscritto il: 15/04/09 08:53

Re: Identificare record ripetuti

Postdi Anthony47 » 19/04/09 22:42

Si, forse era meglio accodare alla precedente discussione (vedi viewtopic.php?f=26&t=79696)...
Prova a modificare
Parte iniziale:
Codice: Seleziona tutto
While I <= Ur
If OldN<>Cells(I,1) then  '<<< Aggiunta
Ruote=9 : I=I-1 : Goto NewN    '<<< Aggiunta
Select Case Cells(I, 2)


Verso la fine:
Codice: Seleziona tutto
End Select
NewN:                  '<<< Aggiunta
If Ruote = 9 Then
BA = 0: CA = 0: FI = 0: GE = 0: FI = 0: MI = 0: NA = 0: PA = 0: RO = 0: TOR = 0: VE = 0
Ruote = 0
End If
I = I + 1
OldN=Cells(I,1)     '<<< Aggiunta
Wend



La parte aggiunta e' qualle marcata <<<, le istruzioni prima e dopo sono inserite solo per localizzare il blocco da modificare.
Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Identificare record ripetuti

Postdi Anthony47 » 19/04/09 23:20

Vedere ANCHE post di Statix, riepilogativo delle modifiche proposte nel post subito sopra (gestione del cambio estratto) e nel thread simile (gestione righe >32000):
viewtopic.php?f=26&t=79696&p=453726#p453726

SI CONTINUA LI, QUESTA DISCUSSIONE E' CHIUSA.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Identificare record ripetuti":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti