[ Kolins Balaban @ 06.08.2008. 08:16 ] @
Trazio sam po forumu, ali ne mogu naci :(:( znaci, treba mi dio koda, koji ce mi promjeniti boju celije, kad u nju unesem negativan broj. uspio sam to uraditi, ali preko button-a. znaci, kad kliknem na dugmic, on oboji sve celije sa neg. brojem u neku boju. meni treba, da se boja promjeni, kad unesem neg. broj, i pritisnem ENTER. evo koda koji sam ja koristio u kombinaciji sa button-om: Code: Private Sub CommandButton1_Click() Dim celija As Object For Each celija In Range("c3:c500") If celija.Value < 0 Then celija.Interior.ColorIndex = 45 Else celija.Interior.ColorIndex = 0 End If Next End Sub Unaprijed hvala na svakoj pomoci! |