e ho scritto il codice nel seguente modo
- Codice: Seleziona tutto
Windows("Origine").Activate
Sheets("TEMP").Select
RigheListaTemp = Cells(Rows.Count, 1).End(xlUp).Row
Windows("ListaCompleta").Activate
Sheets("Foglio1").Select
RigheListaCompleta = Cells(Rows.Count, 1).End(xlUp).Row
J = 2
JJ = 2
For J = J To RigheListaCompleta
Windows("ListaCompleta").Activate
Sheets("Foglio1").Select
RigTot = Cells(J, 8) & Cells(J, 9) & Cells(J, 10) & Cells(J, 11) & Cells(J, 12)
Windows("Origine").Activate
Sheets("TEMP").Select
For JJ = JJ To RigheListaTemp
RigTemp = Cells(JJ, 8) & Cells(JJ, 9) & Cells(JJ, 10) & Cells(JJ, 11) & Cells(JJ, 12)
If RigTot = RigTemp Then Cells(JJ, 1).EntireRow.Delete
JJ = JJ-1
Next JJ
JJ = 2
Next J
in pratica spulcia ad uno ad uno l'unione delle colonne 8, 9, 10, 11, 12 del file "ListaCompleta" "foglio1"con l'unione delle stesse colonne sul file "Origine" foglio "TEMP", se trova doppioni elimina l'intera riga del foglio Temp
il codice sembra funzionare correttamente ma è tremendamente lento specialmente quando si parla di verificare anche 40000 righe per ogni lista,
c'è la possibilità di velocizzare il tutto con qualche sistema più professionale?
Grazie