Getting TextBox value to change color on textbox based on a other textbox

[Wicked_]

Hi.

I'm trying to make a userform textbox to change color depending on the input value.
I managed to get one of my textboxes to display the correct color based of the value, but then i got a second texbox, that is going to change the color based on a calculation from the first textbox, and the input that is put in the textbox 2, then it shows the color at wrong values.

This is what i got:

Private Sub syl_20_tip1_rk1_Change()
On Error Resume Next
Select Case syl_20_tip1_rk1.Value
Case 11.185 - 0.02 To 11.185 + 0.02:
syl_20_tip1_rk1.BackColor = vbGreen

Case 11.155 To 11.165:
syl_20_tip1_rk1.BackColor = vbYellow

Case 11.205 To 11.215:
syl_20_tip1_rk1.BackColor = vbYellow

Case 11.155 - 11.155 To 11.215 + 20:
syl_20_tip1_rk1.BackColor = vbRed

Case Else:
syl_20_tip1_rk1.BackColor = vbWhite
End Select


End Sub






Private Sub syl_20_tip1_rk2_Change()
On Error Resume Next
Select Case syl_20_tip1_rk2.Value
Case syl_20_tip1_rk1.Text - 0.041 To syl_20_tip1_rk1.Text + 0.01:
syl_20_tip1_rk2.BackColor = vbGreen

Case syl_20_tip1_rk1.Text - 0.041 To syl_20_tip1_rk1.Text - 0.01:
syl_20_tip1_rk2.BackColor = vbGreen

Case syl_20_tip1_rk1.Text - 0.041 To syl_20_tip1_rk1.Text - 0.02:
syl_20_tip1_rk2.BackColor = vbYellow

Case syl_20_tip1_rk1.Text - 0.041 To syl_20_tip1_rk1.Text + 0.02:
syl_20_tip1_rk2.BackColor = vbGreen

Case syl_20_tip1_rk1.Text - 0.041 To syl_20_tip1_rk1.Text + 0.03:
syl_20_tip1_rk2.BackColor = vbRed

Case Else:
syl_20_tip1_rk2.BackColor = vbWhite
End Select
End Sub


The first one, works just fine, but when i try to (in textbox2(which is not called textbox 1 and 2, just easier to write so you understand )) set a value in textbox 2, the calculations are off.
How can i improve on this one?
Also tried .value instead of .text, but no changes.

 

[Fluff]

Try

CDbl(syl_20_tip1_rk1.Text)-0.041

 

[Wicked_]

Try

CDbl(syl_20_tip1_rk1.Text)-0.041

Hmm. i tried that, and CDbl(syl_20_tip1_rk1.Text)-0.041 To CDbl(syl_20_tip1_rk1.Text)+0,01: , but the the calculations is still off.

To explain a bit more, just incase i described it poorly.

On the first one, i got Case 11.185 - 0.02 To 11.185 + 0.02:

What i want with the second textbox, is if textbox1 is withtin these parameters, i want the textbox2 to show green if its "textbox1 - 0.041 to 0.01 " depending if both textbox 1 and 2 is withtin its parameters.

Kinda hard to explain really hehe.

If its to any help. I do the exact same with cells within conditional formatting, and with manage rules.

Is there a way to copy the rule from a cell to a spesific textbox? Example, if cell E4 = green, yellow or red, i want that spesific textbox to take the same color, with sub change. ?

 

[Fluff]

If you start with 11.185 in Txtbox1 then anything in txtbox2 from 11.144 to 11.195 will comply with the first case, which means that the 2nd & 3rd cases will never be checked.

 

[Wicked_]

If you start with 11.185 in Txtbox1 then anything in txtbox2 from 11.144 to 11.195 will comply with the first case, which means that the 2nd & 3rd cases will never be checked.

Got it working, thanks

Last question:

Case 0 + 0.03 To 0 + 0.05:
syl_20_tip1_pr1.BackColor = vbYellow


Case 0 - 0.03 To 0 - 0.05:
syl_20_tip1_pr1.BackColor = vbYellow



When i type example 0,03 or 0,04 or 0,05 it changes to yellow, but if i type -0,03 or -0,04 or -0,05 it dosent change color at all.
Any reason why negative numbers wont change?

 

[Fluff]

try

Case -0.05 To -0.03

 

[Wicked_]

try

Case -0.05 To -0.03

Wow.. i tried so many combinations, but it was that easy... just reverse it.

Thanks man

 

[Fluff]

You're welcome