Change the font color if the value exceeds the specfifcation

[Shi6oonz]

Hello all

i am using this code to change the font color to red color if ( Textbox3.value < textbox22.value ) see the code below please ...

Private Sub TextBox3_Change()
If TextBox3.Value < TextBox22.Value Then
        TextBox3.ForeColor = RGB(0, 0, 0)
    Else
        TextBox3.ForeColor = RGB(255, 0, 0)
    End If
End Sub

the value of Textbox22 is "200" , if i enter value of "39" in Textbox3 the red color will present also !
that means the value of textbox22 is "2" not "200"

any help ? please

thanls

 

[hond70]

See https://www.extendoffice.com/documents/excel/4477-excel-change-textbox-color-based-on-value.html

 

[Fluff]

How about

Private Sub TextBox3_AfterUpdate()
If Val(TextBox3.Value) < Val(TextBox22.Value) Then
        TextBox3.ForeColor = RGB(0, 0, 0)
    Else
        TextBox3.ForeColor = RGB(255, 0, 0)
    End If
End Sub

 

[Shi6oonz]

How about

Private Sub TextBox3_AfterUpdate()
If Val(TextBox3.Value) < Val(TextBox22.Value) Then
        TextBox3.ForeColor = RGB(0, 0, 0)
    Else
        TextBox3.ForeColor = RGB(255, 0, 0)
    End If
End Sub

Thank you So Much i really appreciated
work like a charm !

 

[Shi6oonz]

How about

Private Sub TextBox3_AfterUpdate()
If Val(TextBox3.Value) < Val(TextBox22.Value) Then
        TextBox3.ForeColor = RGB(0, 0, 0)
    Else
        TextBox3.ForeColor = RGB(255, 0, 0)
    End If
End Sub

what does Val Mean ?

 

[Fluff]

You're welcome & thanks for the feedback.

Val converts the textbox value (which is a string) into a number.

 

[Shi6oonz]

You're welcome & thanks for the feedback.

Val converts the textbox value (which is a string) into a number.

Thank You again For the information

 

[Fluff]

You're welcome