na kad ir taip:

Sub spalvinti()


Dim lr As Range
Set lr = Range("K1")
Dim i As Integer

For i = 2 To 6
    If Range("E" & i).Value < lr.Value Then
        Range("A" & i & ":H" & i).Interior.ColorIndex = 3 ' raudona
    Else
        Range("A" & i & ":H" & i).Interior.ColorIndex = 2 ' balta
    End If
Next i
End Sub


"b2b" <b2b@gmail.com> wrote in message 
news:iceehc$84g$1@trimpas.omnitel.net...
> Sveigi gudrociai :)
>
> gal kas pades, pasufleruos kaip pasidaryti excelyje lenteles eiluciu
> spalvinima pagal tam tikros joje esancios celes reiksme arba tam tikra
> formule ? Pridedu xls faila. Tikiuosi suprasite ko noriu.
>