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
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!
MyCoNfa:
CPU: AMD Phenom II X4 965 3,4GHz BOX
Maticna:Asus M4A89GTD PRO
RAM: Corsair 4x2GB 1600MHz, 9-9-9-24
Grafa: Diamond ATI 5870 1GB
HDD:3xWD 320GB AAKS, stripe raid
DVD/RW:LG,SATA
SilverStone SST-ST50F 500W
CoolerMaster CM690
LG 24" 2453TQ-PF
Tastatura A4Tech X7 G800
Stakor: A4Tech X7-755FS
CPU: AMD Phenom II X4 965 3,4GHz BOX
Maticna:Asus M4A89GTD PRO
RAM: Corsair 4x2GB 1600MHz, 9-9-9-24
Grafa: Diamond ATI 5870 1GB
HDD:3xWD 320GB AAKS, stripe raid
DVD/RW:LG,SATA
SilverStone SST-ST50F 500W
CoolerMaster CM690
LG 24" 2453TQ-PF
Tastatura A4Tech X7 G800
Stakor: A4Tech X7-755FS