excel 2003: formattazione condizionata su colonna

[karug64]

Salve a ttti.

E' possibile impostare una formattazione condizionale per un range di celle ?

Mi spiego: colonna L (da L20 a Lx)
Vorrei che tutti i valori uguali nella colonna venissero colorati dello stesso colore.

L20 = 1000
L21 = 1
L22 = 23
L23 = 1000
L24 = 2
L25 = 1000
L26 = 4
L27 = 23
L28 = 3

Le celle L20,L23,L25 tutte rosse (per esempio)
Le celle L22, L23 gialle
Le altre nessun colore.

Grazie

[Flash30005]

Entri in formattazione condizionale e inserisci il L20 la condizione "se uguale" e inseirisci 1000 (nell'apposito box)
formato fondo rosso
aggiungi una seconda condizione se uguale a 23 formato fondo giallo
copi il formato da L20 e selezioni tutte le celle interessate (incollando il formato)

ciao

[karug64]

Ciao e grazie.
In effetti io non so in anticipo quali valori sono inseriti nelle celle quindi non posso scrivere 1000 nella formattazione. Eventualmente potrei adattare il foglio aggiungendo una nuova colomba in cui con formula "se" indicare in corrispondenza delle righe con valori uguali un numero. Per esempio accanto ai mille (1) accanto ai 23(2) e così via, se la soluzione e' più facile da trovare. Grazie.

[Flash30005]

Con una macro potresti fare così

Codice: Seleziona tutto

Sub colora()
UR = Range("L" & Rows.Count).End(xlUp).Row
For RR = 20 To UR
Range("L" & RR).Interior.ColorIndex = Range("L" & RR).Value Mod 53
Next RR
End Sub


Il colore però è determinato dal valore contenuto nella cella

ciao

[karug64]

Ciao. Le celle sono tutte non colorate. Ed in ogni caso non saprei come lanciare automaticamente la macro ad ogni cambiamento delle celle ... la soluzione con colonna di appoggio non sarebbe malvagia ...grazie

[Flash30005]

La macro la potrai avviare con un tasto di scelta rapida (opzioni macro)
oppure inserendo questo codice nel vba del foglio interessato

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
UR = Range("L" & Rows.Count).End(xlUp).Row
CheckArea = "L20:L" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Target <> "" Then
Call Colora
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

Ciao