Ciao
-Gli intervalli sono solo indicativi, poi io li cambio in base al confronto che mi serve fare, (infatti ho cambiato"A1"con "B1"perché avevo sbagliato a scrivere.
-Coloro di giallo la cella di riferimento per la ricerca così mi basta un'occhiata per capire di cosa si tratta e evito di dare nomi lunghi e simili ai fogli che poi mi confondo.
-Nella tua macro ho cambiato Riga=24 con Riga=4 perché invece che nel range "B2:BD4" faceva la ricerca nel range "B2:BD24"
- Ho provato a cambiare la tua macro per avviarla ogni 4 righe con For w = 1 To 1835 Step 4/ Next w ma ho ottenuto solo di far sfarfallare le caselle.
(Com'é che questa cosa "For contatore = inizio To fine [Step incremento]"funziona o non funziona a seconda di come è scritta la macro?)
-Ho commentato i msgBox perché se riuscivo ad avviarla ogni 4 righe diventavo scema. (La prossima volta li lascio per scaramanzia)
- Codice: Seleziona tutto
Sub Trova_Uguali()
Dim I As Integer, J As Integer, Riga As Integer, Colonna As Integer
For w = 1 To 1835 Step 4
'Trovato = 0
Riga = 4
Colonna = 55 ' Corrisponde alla colonna "BD"
Range("B1").Interior.ColorIndex = xlNone ' <<====== Toglie i colori dello sfondo
Range(Cells(2, "B"), Cells(Riga, Colonna)).Interior.ColorIndex = xlNone ' <<====== Toglie i colori dello sfondo
For I = 2 To Riga ' <<==== Cicla sulle righe
For J = 2 To Colonna ' <<==== Cicla sulle colonne
If Cells(I, J) = Range("B1") Then
' Trovato = Trovato + 1
Cells(I, J).Interior.ColorIndex = 3 ' <<===== ROSSO nelle celle con lo stesso valore della cella "B1"
End If
Next J
Next I
'If Trovato > 0 Then
Range("B1").Interior.ColorIndex = 6 ' <<===== GIALLO in "B1"
'MsgBox "Trovate: '" & Trovato & "' celle con lo stesso valore della cella 'B1", vbInformation
' Else
'MsgBox "NON sono state trovate celle con lo stesso valore della cella 'B1", vbCritical
'End If
Range("B1").Select
Next w
End Sub