Ciao

[VisitorsVBA]

Si lo so ma a me serve che colori tutta la riga dell'intervallo. In questo modo. Che ne dite?

Sub FormattaCompreso()

Range("A2:E10000").Interior.ColorIndex = 0

indi = 2 'riga partenza
ComVal = 0 'valore iniziale della cella
CONDI1 = Range("J1") 'condizione 1
CONDI2 = Range("J2") ' condizione 2

'eseguie il ciclo finchè il valore della cella
'della colonna A non è vuota. Quando la cella
'è vuota esce dal ciclo.
Do Until Range("D" & indi) = ""

'Condizione: se il valore della cella è compresa
'tra il valore della cella C1 e la cella C2
'colora di rosso la cella altrimenti colora di bianco
'e aumenta il valore "indi" di 1 (scalando di cella)
If Range("D" & indi).Value >= CONDI1 And _
Range("D" & indi).Value <= CONDI2 Then

'assegna il valore della cella
ComVal = Range("D" & indi).Value

Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 8
Else
Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 0
End If

indi = indi + 1 ' aumenta di una riga

Loop 'esci dal ciclo
End Sub

[Alexsandra]

........ Che ne dite? :

Dico che intanto dovresti mettere titoli più significativi, racchiudere il codice entro i tag ed esporre il tuo problema in maniera chiara ed esplicita.

[Anthony47]

Penso che sia la continuazione di questa richiesta:

ho bisogno [....... ] di scrivere un codice che cerca in una determinata colonna ("A") i valori compresi tra due date indicate dentro due celle ("G1" e "G2") e colora di rosso lo sfondo della cella.

(vedi http://www.pc-facile.com/forum/viewtopic.php?t=54709)

Anche cambiando la richiesta, la mia proposta e’: facciamolo con la formattazione condizionata.

Rispetto alla risposta precedente, selezioni la cella D2, attivi la formattazione condizionata; selezioni “La formula è” e inserisci la formula =E($D2>=$C$1;$D2<=$C$2)

Poi copi questa cella e fai Incolla Speciale/Formato su tutte le colonne che vuoi evidenziare, al limite su tutto il foglio se vuoi colorare come dici tutta la riga.

Se proprio vuoi usare una macro, ti suggerirei di identificare l’ ultima riga utilizzata con l’ istruzione

Codice: Seleziona tutto

LastRow = Range("D65536").End(xlUp).Row

E poi, invece del Do Until fare un ciclo For/Next con

Codice: Seleziona tutto

For indi = 2 to LastRow

con le tue istruzioni di verifica e formattazione.

Ciao,

[cassioli]

Continuate di la', qui chiudo.