[ 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!
[ Ivek33 @ 06.08.2008. 09:51 ] @
Citat:
Kolins Balaban: koji ce mi promjeniti boju celije, kad u nju unesem negativan broj. ............ da se boja promjeni, kad unesem neg. broj, i pritisnem ENTER.
Koristi Conditional Formating ( Uvjetno oblikovanje )


[ Kolins Balaban @ 06.08.2008. 09:59 ] @
HVALA Ivek33 :) ja bio ubjeden da se bez programiranja ne moze rijesiti :D