Макрос для раскраски ячеек

[pautina13]

Здравствуйте. Требуется Ваша помощь.

Суть такая, есть отчёты, по строке R1C*n идут даты, ставятся они когда появляется данные. По столбцу R*nC1 идут названия, в ячейка к дате и названию забиваются числа. Нужно подкрасить ячейки, если меньше такого-то числа один цвет, если выше такого-то то другой цвет, если "-" то цвет должен совпадать с выше такого-то числа.
Т.е. например если числа равны или меньше 5 то например зелёный, если больше 5 то красный, если "-" то тоже красный. И при забивании числа или прочерка сразу применялся цвет (по возможности) что бы при замене на ходу, сразу видно было цветовую динамику.


Нашёл вот такой вот макрос

Sub Zalivka()
Dim x As Range, y As Range, z As Range
Application.ScreenUpdating = False: On Error Resume Next
Set x = Cells.SpecialCells(xlCellTypeConsta nts, xlNumbers)
Set y = Cells.SpecialCells(xlCellTypeFormul as, xlNumbers)
Set z = Union(x, y)
If x Is Nothing Then Set z = y
If y Is Nothing Then Set z = x
For Each Cell In z
If Cell.Value <= 10 Then Cell.Interior.ColorIndex = 6
If Cell.Value >= 11 Then Cell.Interior.ColorIndex = 3
Next
Set x = Nothing: Set y = Nothing: Set z = Nothing
End Sub

И вроде почти подходит, только как в нём прописать "-" и что бы при изменении числа в дальнейшем, цвет сразу менялся.
Спасибо

[IgorGO]

пишите что-нибудь в колонку 3... (без макросов, условное форматирование)

[pautina13]

Хотелось бы всё таки в автоматическом режиме без условного форматирования, когда много полей и много чисел и "-" (прочерков) не очень то и удобно.
можно и фильтрами условия задавать...
Макрос, который указан мною выше идеален, но как туда вставить "-"

есть
Sub Zalivka()

For Each Cell In Selection.Cells
If Cell.Value <= 10 Then Cell.Interior.ColorIndex = 0
If Cell.Value >= 11 Then Cell.Interior.ColorIndex = 22
If Cell.Value = "-" Then Cell.Interior.ColorIndex = 22
Next
ActiveSheet.Range("A:Z").Columns.Au toFit

End Sub

Но тут надо выделять области которые будут закрашены