en Kolay vba ile yapabilirsiniz
size ekte sonucu ve yazdığım komutu gönderiyorum
sanırım aradığınız bu
i.hizliresim.com 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Data As Range
Dim cell As Range
Set currentsheet = ActiveWorkbook.Sheets("SAYFA1")
Set Data = currentsheet.Range("A2:A10")
For Each cell In Data
Select Case (cell.Value)
Case 1 To 10
cell.Interior.ColorIndex = 4
Case 11 To 20
cell.Interior.ColorIndex = 5
Case 21 To 30
cell.Interior.ColorIndex = 6
Case 31 To 40
cell.Interior.ColorIndex = 7
Case 41 To 50
cell.Interior.ColorIndex = 8
End Select
Next
End Sub
Yalnız unutmayın bunu vba modül sayfasında ilgili sayfayı seçerek yapacaksınız