Sutundaki öğenin rengini değiştirmek

[reload]

Sutundaki öğenin rengini değiştirmek


For a = 1 To 500
If Cells(a, "E") = "Stok Miktarı" Then GoTo 2
If Cells(a, "E") < Cells(a, "H") Then MsgBox "min stok değeri" And Rows(a, "H").Font.ColorIndex = 46
If Cells(a, "E") > Cells(a, "I") Then MsgBox "Max stok değeri"
If Cells(a, "F") > 0 Then Cells(a, "E") = Cells(a, "E") - Cells(a, "F") - Cells(a, "G")
If Cells(a, "E") <= 0 Then Cells(a, "E") = ""
2 Next
MsgBox "stokdan düşülmüştür"


e sutunundaki değer H dan küçükse H sutunundaki o değeri kırmızı renge boyatmak istiyorum
yardımcı olurmusunuz?

 

[alpi]

Koşullu biçimlendirme yapmanız gerekiyor aşağıdaki linkteki başlıkları inceleyiniz.

http://excel.web.tr/search.php?searchid=69956

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[COLOR=black]cells(a, "H").Font.ColorIndex = 46
[/COLOR]

 

[reload]

çok teşekkürler aradığım şey buydu