perfetto grazie a tutti sono riuscito in questo modo:

Sub Colore()
Dim r As Long
Dim myId
Dim myLastId
Dim Colore

myLastId = ""
For r = 2 To Cells(65536, 1).End(xlUp).Row
myId = Cells(r, 1).Value
If r > 1 Then myLastId = Cells(r - 1, 1).Value

If myId <> myLastId Or r = 1 Then
If Colore = 36 ...

cosimocs ha scritto: Inoltre non ho capito cosa deve fare la routine una volta
che trova il codice ad es. 21 quali e quante celle deve colorare ?

deve colorare tutte le righe con quel codice o indice, gli elementi della colonna A insomma

Ok. Ma gli indici da colorare saranno 10,20,30,100 ? Il colore diverso deve andare con l'indice diverso ? Dunque supponiamo che tu hai 30 indici, devi mettere 30 colori diversi ? Basterebbero due colori alternati ad esempio rosso e verde indipendente dal numero di indice ?
gli indici saranno 30 ma ...

scusate per la confusione.. io vorrei con un bottone unico poter applicare una colorazione alternata ad ogni gruppo(per gruppo intendo una serie di righe consecutive con il medesimo indice), io a priori non so se avrò prima il 20 o l'11 e non posso selezionare manualmente le righe perchè il numero ...

ho provato ma a me non serve usare le condizioni di minore o maggiore vorrei solo colorare in modo alternato in base all'indice..
magari esiste qualche funzione ma non saprei..
non sono molto pratico di excel scusate :oops:
Puoi usare sempre la formattazione condizionata aggiungendo una colonna ...

nono io vorrei solo applicare 2 colori alternati ad ogni gruppo con lo stesso indice per rendere migliore la leggibilità, spero di esser stato chiaro..

ho provato ma a me non serve usare le condizioni di minore o maggiore vorrei solo colorare in modo alternato in base all'indice..
magari esiste qualche funzione ma non saprei..
non sono molto pratico di excel scusate

Ciao a tutti sono nuovo del forum, sono uno studente di ing.biomedica e devo inserire una piccola macro per abbellire un minimo alcuni file di output..
la macro in questione dovrebbe colorare le celle dell'output in modo alternato in base all'indice, mi spiego meglio io ho un file di questo tipo ...