TextBox Addition

rockchalk33

Board Regular
Joined
Jan 12, 2016
Messages
103
Hey all,

Using a button to open a Userform. I need the values in TextBox1 and TextBox2 to be 0. I have a TextBox3 and using TextBox3_Change if the letter "A" is typed into TextBox3 I need to keep a running total in TextBox1 (0+1+1+1+1...each time the letter A is typed) and if the letter "B" is typed it keeps a running total in TextBox2.

Thanks for the help, should be an easy fix I believe!

Devin
 

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,440
You would need these two script:

Code:
Private Sub TextBox3_Change()
If TextBox3.Value = "A" Then TextBox1.Value = TextBox1.Value + 1
If TextBox3.Value = "B" Then TextBox2.Value = TextBox2.Value + 1
TextBox3.Value = ""
End Sub


Private Sub UserForm_Initialize()
TextBox1.Value = 0
TextBox2.Value = 0

End Sub
 

Forum statistics

Threads
1,085,691
Messages
5,385,203
Members
401,936
Latest member
stephenpoff

Some videos you may like

This Week's Hot Topics

Top