Textbox on user form in Excel VBA

G

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...
 
B

Bob Phillips

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

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
 
M

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
 
J

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
 
G

Gimp

Thanks Bob

Your suggestion lead me to this:

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

Works like a champ!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top