Ho questa macro NATIVA 2003 adattata e trasportata in un file 2007 e diventa lentissima , inoltre se ho in linea il file 2007 e quello 2003 anche quest'ultimo (che da solo è veloce) diventa lentissimo perché??
Sub CercaScarto()
Dim NumUsc(31) 'N° di uscite nell'intervallo
Dim Ultimo(31) 'Ultima uscita di ciascun numero SCARTO
For nu = 1 To 30 'per 30 numeri
NumUsc(nu) = 0 '
Ultimo(nu) = 100 'per 100 RIGHE
For tiri = 4 To 103 'per 100 tiri che cominciano dalla riga 4 e finiscono alla riga103
For col = 3 To 7 'le 5 colonne cominciano dalla 3 e finiscono alla 7 comprese
If Cells(tiri, col) = nu Then
NumUsc(nu) = NumUsc(nu) + 1
Ultimo(nu) = 103 - tiri
End If
If NumUsc(nu) = 4 Then Ultimo(nu) = 103
Next
Cells(nu + 4, 14) = Ultimo(nu)
Cells(nu + 4, 13) = NumUsc(nu)
Next
Next
End Sub