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?
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?