Textbox on user form in Excel VBA

[Gimp]

I have what I think is an easy one, but yet the solution fails me. I
have three textboxes, 1, 2, 3. Textbox3 is set in the propteries as
visible = false. The code I wrote is quite basic:

if textbox2.value < textbox1.value then
Textbox3.visible = True
Else
if textbox2.value > textbox1.value then
textbox3.visible = false
End if
End if


I've tried other variations but nothing seems to work, work
consistantly that is. The code in within a Sub...end sub where based
on the entry, t1 and t2 is populated with their values. I've also
tried having the code in a commandbutton. Still, same result,
sometimes it works, some times it does not. Text1 and Text2 are both
dollar amounts, and text3 is text...'the total amount is less than the
subtotal amount...'


Thanks...

 

[Bob Phillips]

Textbox3.Visible = Val(Textbox2.Text) < Val(Textbox1.Text)

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)

 

[merjet]

Not sure of your goal, but deleting the 3rd line and one of the End If
lines might achieve it. (If textbox2.value = textbox1.value, then
textbox3 will be invisible.)

Merjet

 

[John Bundy]

Try with just this

Private Sub TextBox1_Change()
If TextBox2.Value < TextBox1.Value Then
TextBox3.Visible = True
Else: TextBox3.Visible = False

End If

End Sub

 

[Gimp]

Thanks Bob

Your suggestion lead me to this:

If CDbl(TextBox34.Text) < CDbl(TextBox30.Text) Then
TextBox44.Visible = True

Works like a champ!!