dovrei modificare questa parte di una macro
fatta da Anthony47,questa dopo aver trovato un numero conta alla prima occorrenza gli altri,
dal basso in alto,vorrei farla funzionare dal alto al basso,nel senso che dopo aver trovato il numero spia,trova la prima occorrenza in basso,ho modificato
- Codice: Seleziona tutto
For J = Vett(I, 0) - 1 To 2 Step -1
con
For J = Vett(I, 0) + 1 To 2 Step -1
funziona quasi bene ma non del tutto
- Codice: Seleziona tutto
For I = [I3] To 1 Step -1
FlDue = 0
For J = Vett(I, 0) + 1 To 2 Step -1
FlUno = 0
For k = 4 To 0 Step -1
For L = 0 To 8
Cells(J, 3 + k).Select
If Cells(J, 3 + k) = Cells(9, 10 + L) Then
Cells(J, 3 + k).Interior.ColorIndex = L + 3
FlUno = 1:
Vett(I, L + 1) = Vett(I, L + 1) + 1
End If
Next L
Next k
If FlUno > 0 Then FlDue = FlDue + 1
If FlDue = 1 Then GoTo NextRng
Next J
NextRng:
Next I