Textbox value change to Red if greater than 0

[Legacy 452653]

Hi,

I was sure that the following code below changes to Red if my Cell from E34 ( 1 ) and Cell (Q34) is ( 0 ) then please change my Textbox to "RED".

Can someone check please - cause it aint working.

Private Sub Textbox32_Change()
If Sheet5.Range("E34").Value > Sheet5.Range("Q34").Value Then

Me.Textbox32.Backcolor = vbRed
Else
Me.Textbox32.Backcolor = vbGreen
End If
End Sub

 

[My Aswer Is This]

Here you say:
if my Cell from E34 ( 1 ) and Cell (Q34) is ( 0 ) then please change my Textbox to "RED".

Looks like your saying if both are 0

But here you say:
If Sheet5.Range("E34").Value > Sheet5.Range("Q34").Value Then

Your saying if E34 is greater then Q34

Or Maybe E34 (1) means if it equals 1

 

[Legacy 452653]

OH yes sorry you are right should be greater than - but still nothing works

If Sheet5.Range("E34").Value < Sheet5.Range("Q34").Value

Steve

 

[My Aswer Is This]

< means less then

 

[Legacy 452653]

Then I was right
If Sheet5.Range("E34").Value > Sheet5.Range("Q34").Value Then
Me.Textbox32.Backcolor = vbRed
Else
Me.Textbox32.Backcolor = vbGreen
End If
End Sub

Even then it should turn green.

But nothing happens

 

[Legacy 452653]

Is there any way too change in Textbox color ...anything greater than 1 ...RED.

Steve

 

[My Aswer Is This]

Your script works for me.

I assume your using a Userform is that true?

What is happenings Is the textbox not changing to any color

 

[My Aswer Is This]

You said:

Is there any way too change in Textbox color ...anything greater than 1 ...RED.

What does that mean.?
anything

And I assume your putting this script in a button.
Or are you entering the script in the TextBox​

 

[Legacy 452653]

Hi,

All I need in the textbox in the userform. Textbox has the number 1. I have a cell that has a ZERO.

The formula that i have below regardless of less than or greater than I want it too change either red or green.

Private Sub Textbox32_Change()
If Sheet5.Range("E34").Value > Sheet5.Range("Q34").Value Then

Me.Textbox32.Backcolor = vbRed
Else
Me.Textbox32.Backcolor = vbGreen
End If
End Sub

 

[My Aswer Is This]

Well your script works for me.
But the script only runs when you enter something in The TextBox
So you must enter something in the TextBox for the script to run