conta righe e colora cella

[miko]

salve,
sto cercando di realizzare una macro che, partendo dalla cella A3, conti un preciso numero di righe, ad esempio 50, colori in rosso la cella A52, colori in giallo la cella A53;
successivamente a partire dalla cella A53 compresa, conti nuovamente 50 righe, colori in rosso la cella A102, in giallo la cella A103, e così via fino all'ultima cella della colonna A.
fino ad ora sono riuscito a trovare argomenti relativi al conto o al colore delle celle, che però non mi hanno aiutato a risolvere il problema.
credo che dovrei impostare un contatore, ma poi come faccio a far variare le variabili?
ciao, grazie

[Anthony47]

Ad esempio in una colonna libera, supponiamo la F, in riga 1 (F1) segni il "passo" tra le righe (50, nel tuo caso); poi in riga 3 (F3) metti la formula

Codice: Seleziona tutto

=RESTO(RIF.RIGA(A1);$F$1)

che copi verso il basso.
Poi usi la formattazione condizionale per colorare in rosso se il risultato e' 0 e in gialo se il risultato e' 1.

Se invece vuoi farlo con macro, allora usa un ciclo del tipo

Codice: Seleziona tutto

For I=2 to Cells(Rows.count,1).end(xlup).Row
IC=I Mod 50  '<<< 50 e' il passo che vuoi impostare
If IC=0 then Range("A3").offset(I-1,0).Interior.Colorindex=3
If IC=1 then Range("A3").offset(I-1,0).Interior.Colorindex=6
Next I


Ciao

[ricky53]

Ciao,
mi inserisco dopo le du epropsote di Anthony volendo dare anche il mio contributo alla soluzione e, non sapendo se le celle della colonna "A" siano vuote o piene, ti propongo un codice che riempe tutte le celle della colonna "A" con le regole che hai scritto tu indipendentemente dal fatto che vi siano o meno dei dati in colonna "A"
Ho ipotizzato di lavorare sul "Foglio1", in caso cambia, nel codice, Foglio1 con il tuo foglio.

Codice: Seleziona tutto

Sub Colora_Sfondo()
    Passo = 50
    UR = Rows.Count
    Riga_Inizio = 3
    For I = (Riga_Inizio - 1 + Passo) To UR Step Passo
        Sheets("Foglio1").Cells(I, 1).Interior.ColorIndex = 3
        Sheets("Foglio1").Cells(I + 1, 1).Interior.ColorIndex = 6
    Next I
End Sub

[miko]

salve,
grazie ad entrambi per il vostro contributo, le macro eseguono quello che cercavo di realizzare.
saluti