Pirmiausiai susitvarkyk datų stulpelį, ten pas Tamstelę datos surašytos kaip tekstas, na o tada... Sub Spalvos() GData = Cells(1, 11) IDX = 2 Do If Cells(IDX, 1) = Empty Then Exit Do If GData > Cells(IDX, 5) + Cells(IDX, 6) Then Range(Cells(IDX, 1), Cells(IDX, 8)).Interior.ColorIndex = 9 End If IDX = IDX + 1 Loop End Sub "b2b" <b2b@gmail.com> parašė naujienų 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. >