colorazione righe in base al numero della stringa

[cd7019]

salve a tutti,
il mio problema consiste nell'alternare il colore nella riga in base alla numerazione della 1° cella (colonna A)
Bisogna considerare solo la variazione del numero prima del punto e alternare il colore

Esempio:
A1: 2.0 (COLORE GIALLO)
A2: 2.1 (COLORE GIALLO)
A3: 2.2 (COLORE GIALLO)
A4: 3.1 (COLORE VERDE)
A5: 3.2 (COLORE VERDE)
A6: 12.4 (COLORE GIALLO)
A7: 12.5 (COLORE GIALLO)

ecc...

Grazie

[Flash30005]

Dovresti usare una macro così

Codice: Seleziona tutto

Sub ColoraRighe()
UR = Range("A" & Rows.Count).End(xlUp).Row
Col1 = 6
Col2 = 43
ColoS = Col2
For RR = 2 To UR
MyPos = InStr(Range("A" & RR).Value, ".")
MyStr = Mid(Range("A" & RR).Value, 1, MyPos - 1)
If MyStr <> MMyStr Then
If ColoS = Col1 Then
ColoS = Col2
Else
ColoS = Col1
End If
MMyStr = MyStr
End If
Range("A" & RR).Interior.ColorIndex = ColoS
Next RR
End Sub


Ciao

[cd7019]

GRAZIE MILLE.

MOLTO GENTILI.