VB for macro needed urgent

[sparq]

here's my problem i need a code so that the text is on the adjacent cell not on the same cell, if the cell is color red the message next to it is "out of parameter", and another color is green, and the message next to it should be "ok" the messages should be on the next column(F2:F50).



Sub ParameterCheck()
Set colorcheck = Range("E2:E50")
For Each Cell In colorcheck

If Cell.Interior.ColorIndex = 3 Then
Cell.Value = "Out of Parameter"
If Cell.Interior.ColorIndex = 10 Then
Cell.Value = "Ok"

End If
End Sub


as soon as i run the macro, it displays the message on the cell itself. Help pls. Thanks in advance.

 

[jasonb75]

Welcome to the board!

Try

Sub ParameterCheck()
Set colorcheck = Range("B2:B50")
For Each Cell In colorcheck
If Cell.Interior.ColorIndex = 3 Then
Cell.Offset(, 1) = "Out of Parameter"
If Cell.Interior.ColorIndex = 10 Then
Cell.Offset(, 1) = "Ok"
End If
End If
Next
End Sub

Can also be done without VB if preferred.

 

[sparq]

THANKS!! it works!!

 

[sparq]

how would be the code be if the its only used in a specific cell?
for example B2 would be the color then the color on C2?

 

[jasonb75]

Something like

Sub ParameterCheck()
If Range("B2").Interior.ColorIndex = 3 Then Range("C2") = "Out of Parameter"
If Range("B2").Interior.ColorIndex = 10 Then Range("C2") = "Ok"
End Sub

Also just noticed a problem with the previous code, there was an End If in the wrong place, corrected below.

Sub ParameterCheck()
Set colorcheck = Range("B2:B50")
For Each Cell In colorcheck
If Cell.Interior.ColorIndex = 3 Then
Cell.Offset(, 1) = "Out of Parameter"
End If
If Cell.Interior.ColorIndex = 10 Then
Cell.Offset(, 1) = "Ok"
End If
Next
End Sub