VBA trova duplicati con data uguale

Ciao a tutti,
ringrazio fin da subito per il vostro supporto.
Premettendo che non sono un grande espero di VBA (però mi sto documentando), ho creato un codice che mi permette di trovare delle righe duplicate facendo il check su due valori e tenere tra tutte quella con data più recente (mentre nelle altre scrive nella colonna 31 VALORE DUPLICATO).
La mia difficoltà è la seguente: a volte ho delle righe duplicate, con la stessa data, ma con il codice che ho scritto riesco ad individuare i duplicati e tenere solo quelli con data più recente.
Quindi riassumendo, vorrei scrivere (o modificare il codice che trovate di seguito), in modo tale che mi permetta di individuare se sono presenti delle righe duplicate che hanno la stessa data (sempre facendo il check su due variabili) ed in caso di riscontro positivo scivere per un solo duplicato nella colonna numero 31 la dicitura "DUPLICATO CON UGUALE DATA", in modo che qualora supponendo che le righe duplicate fossero due, in una non voglio scritto nulla nella colonna 31 mentre nella seconda riga duplicata la dicituta "DUPLICATO CON UGUALE DATA".
Spero di essere stato chiaro.
Grazie mille

il codice è il seguente:

Sub DOPPIONI()


xRiga = Cells(Rows.Count, 1).End(xlUp).Row 'Conto le righe occupate alla colonna A perche ho sicuramente un valore

For i = 2 To xRiga
For x = 2 To xRiga
Data = Cells(i, 2) 'determino la colonna data (B)
CODICE1 = Cells(i, 10) 'determino la colonna CODICE1 (F)
If CODICE1 = Cells(x, 10) And Data > Cells(x, 2) Then 'controllo se il CODICE1 (colona J) si ripete e la data/ora della cella colonna B è più recente'
Cells(x, 31) = "" 'Se quanto riga sopra si verifica allora aggiungo dicitura NIENTE nella colonna 31
End If
Next x
Next i

xRiga = Cells(Rows.Count, 1).End(xlUp).Row 'Conto le righe occupate alla colonna A
For i = 2 To xRiga
For x = 2 To xRiga
Data = Cells(i, 2) 'determino la colonna data (B)
CODICE2 = Cells(i, 3) 'determino la colonna CODICE2 (C)
If CODICE2 = Cells(x, 3) And Data > Cells(x, 2) Then 'controllo se IL CODICE2 (colona C) si ripete e la data/ora della cella colonna B è più recente'
Cells(x, 31) = "DUPLICATO DA ELIMINARE" 'Se quanto riga sopra si verifica allora aggiungo dicitura DUPLICATO DA ELIMINARE nella colonna 31
End If
Next x
Next i

'FINE LOOP
MsgBox "Completed"

allega un file di esempio da testare

Si, anche perchè ci sono delle incongruenze in quello che scrivi nel codice, es:

CODICE1 = Cells(i, 10) 'determino la colonna CODICE1 (F)

10 non è la col. F ma col. J

etc etc

saluti

Ciao,
ecco il file in allegato.
ho evidenziato in verde le righe per le quali il codice attuali funziona, invece in giallo le righe che sono duplicate con la stessa data e vorrei creare il codice che mi permetta di identificarle.
Grazie mille

Ciao a tutti
Allora se esistono doppioni scriviamo in AE. Però dici anche Di tenere la riga con la data più recente.
Tu hai fatto due cicli For con due ricerche diverse (solo la seconda parte funziona)
Credo che Tu desideri fare un controllo sulle colonne C e J Se i CODICI sono uguali controllare la DATA (casomai tenere quella recente)
Giusto così o sbaglio ...., il nome in colonna D non c'entra nulla?

Ciao Raffaele i due cicli for che ho scritto funzionano e li vorrei tenere.. vorrei aggiungere una parte aggiuntiva a questo codice in modo da tenere un solo duplicato con data più recente (quello che gia fanno i due cicli for), ed inoltre legare un controllo duplicati anche con la stessa data.. perche non riesco ad individuarli.. Quindi se ho due righe duplicate (Con stesso CODICE1 E CODICE2) MA con la stessa data, vorrei tenere soltanto una riga mentre nell' altra scrivere in colonna AE "duplicato con data uguale" .. spero di essermi spiegato bene grazie mille

>>>i due cicli for che ho scritto funzionano
Si, solo con determinate condizioni
Ti allego un files, dove ho messo in colonna AG una formula (trascinala fino desideri ex riga 100.000)
Il VBA prima riordina la tabella con le date in ordine, poi esegue un solo ciclo for

Ciao,
Forse non sono riuscito a spiegarmi bene e chiedo scusa se non utilizzo termini tecnici.
La mia necessità è trovare un codice per controllare se ci sono righe doppioni (facendo check su CODICE1 e CODICE2) a prescindere la data..
Quindi se CODICE1 e CODICE2 SONO uguali, vorrei che nella colonna AE venisse scritto "DUPLICATO CON STESSA DATA"..
Potresti aiutarmi?

E in caso di due righe duplicate me ne dovrebbe segnare soltanto una, così una riga resta nel file principale invece la seconda poi la sposto in un altro file

Prova in questo modo, comunque il mio era più veloce in caso di 100.000 righe

Ciao Raffaele,
Ho provato la macro ma non funziona del tutto.. non riesce ad identificarmi ancora una quindicina di righe che sono duplicate con la stessa data (stesso CODICE1 e CODICE2).. ma non riesco a capire il perche ;(.. mi potresti dare una mano? c'è qualcosa che non va?
Forse perchè non arriva fino in fondo? ci sono più di 5000 righe.. scusa se non sono ferrato in materia e faccio domande stupide ma è la prima volta che mi approccio ad una macro

Secondo me hai allegato un files del cavolo, oppure dopo CODICE1 ed CODICE2 ci sono dei spazi
Sul Tuo esempio il VBA funziona, oppure "forse" non ho capito nulla.

Ciao,
Ho allegato il file con lo stesso format di quello originale, ho controllato e non ci sono spazi vuoti nel CODICE1 e CODICE2, ho anche ordinato in modo da lasciare eventuali spazi vuoti alla fine..
Il codice funziona e i duplicati che trova sono giusti.. ma è come se non li riuscisse a trovare tutti.. infatti ne trova soltanto 18 quando in realta dovrebbero essere 25.
Io ho copiato il codice cosi come lo hai scritto, dovevo apportare qualche modifica magari?

>>>Ho allegato il file con lo stesso format di quello originale
Forse il "format" di sicuro non le righe???
Originale = 5000 righe il Tuo solo 10 righe

Per me il VBA funziona sul Tuo allegato.
Non conosco le Tue problematiche dell'originale, sul codice non devi far nulla (spero solo di non sbagliare)

Mi sapresti dire quali potrebbero essere le problematiche secondo te cosi magari tento di risolverle?
Perche nel mio file usando i due cicli For mi trova 172 DULICATI DA ELIMINARE invece usando il codice nuovo me ne trova soltanto 135.
Non ho potuto fare il paragona con DUPLICATO CON STESSA DATA perchè non presente nel mio vecchio codice.
è strano il fatto e mi dispiace non poter risolverlo perche hai scritto un codice davvero bello ed utilissimo, e ti ringrazio per questo

Scusa, perchè TU non prendi una copia del TUO foglio dati.
Cancelli tutto, tranne colonna B+C+J ed alleghi. Solo per verificare (casomai se noti un'errore gli metti un colore???)...

EDIT pure colonna A