ho bisogno di modificare questa macro,
la macro in oggetto mi evidenzia in colore la prima occorrenza di ogni numero,in questo caso 5 numeri (Range("Q2:AS2")
e fin quì è tutto ok.
il problema che ho è che ad ogni occorrenza deve cambiare anche il range di selezione.
i range di selezione sono 5
D8:M100
N8:W100
X8:AG100
AH8:AQ100
AR8:BA100
la macro mi deve evidenziare la prima occorrenza di un numero per ogni range di selezione,faccio un esempio della sequenza giusta
ho 5 numeri 1-2-3-4-5 faccio partire la macro
trova il numero 2 nel range AH8:AQ100
trova il numero 3 nel range D8: M100
trova il numero 5 nel range X8:AG100
trova il numero 1 nel range N8:W100
ed infine trova l'ultimo numero 4 nel range AR8:BA100,
quindi un numero per ogni range,questa è la sequenza giusta.
la macro in oggetto invece mi trova anche 3/4 numeri in un solo range vedi foto quella nel quadrato e giusta
- Codice: Seleziona tutto
Sub Bari/Cagliari()
Sheets("BiRuote").Select
i = 3
On Error Resume Next
For Each Ambo In Range("Q2:AS2")
Ambo.Offset(1, 0).Interior.ColorIndex = i
Ambo.Interior.ColorIndex = 3
Range("D8:M100").Select
Selection.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
AAA = ActiveCell.Address
If ActiveCell.Address <> "$D$8" Then
ActiveCell.Interior.ColorIndex = i
Ambo.Interior.ColorIndex = 2
End If
i = i + 1
Next Ambo
Range("A2").Select
End Sub