TextBox Change Event HELP

@ JieJenn, I have attached the file that I'm working (in the first post after I've edit). Forgive me if you see the code in mess, since I'm not a programmer.

@ MaczaQ, How would you do this then, if you were me. Basically, trying to accomplish these few things.
1. Instantaneously change the amount when user input.
2. User able to input with decimals (i.e. 25.2)
3. Show '%' sign after user have finish input the data in the textbox.

If the above 3 requirements are not able to met, then I'm willing to take out the '%' sign. Which means point 1 and 2 has to be met

Public oldvalue As Double

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

temp = TextBox1.Value
If Not IsNumeric(temp) Then temp = oldvalue
oldvalue = temp

TextBox1.Value = Format(oldvalue / 100, "0.00%")

End Sub

Private Sub UserForm_Activate()
If IsNumeric(TextBox1.Value) Then
oldvalue = TextBox1.Value
Else
oldvalue = 0: TextBox1.Value = Format(0, "0.00%")
End If
End Sub

@Mehmetcik. Thank for the help. Although I'm not an expert with VBA, however, from the 2nd code, it seems like you assume I'm using a form. But I don't. I'm using the ActiveX control TextBox. I have attached the spreadsheet for reference

No Spreadsheet Seen.

The following seems to work.

I created the textbox using "Developer - Insert - Textbox"

I opened the revelent macro module by clicking on Design Mode then right clicking on the text box and selecting view code.
Paste the text below into that window.

Deselect Design mode.

ENJOY.



Public oldvalue As Double
Private Sub TextBox1_Change()
temp = TextBox1.Value
If Right(temp, 1) = "%" Then temp = Left(temp, Len(temp) - 1)
If Not IsNumeric(temp) Then temp = oldvalue
oldvalue = temp

TextBox1.Value = Format(oldvalue / 100, "0.00%")
End Sub

Hi Mehmetcik,

Have tried copying the latest code and still doesn't work.

Did you really not see the attached file? It was on the very first post of this thread.

Ok I've modified your code for textbox1.

As follows:-

Private Sub TextBox1_Change()

If flag = True Then GoTo 200

temp = TextBox1.Value
If Right(temp, 1) = "%" Then temp = Left(temp, Len(temp) - 1)


If Len(Me.TextBox1) >= 1 And Not IsNumeric(temp) Then

MsgBox "Sorry, only numbers allowed"

TextBox1.Value = vbNullString
ActiveSheet.Label1.Caption = ""
ActiveSheet.Label12.Caption = ""
temp = 36

Else: flag = Not flag
If flag = True Then TextBox1.Value = Format(temp / 100, "0.00%")


20 End If

If Range("C16").Value = 0 Then
ActiveSheet.Label49.Caption = ""
ElseIf Range("C16").Value >= 50 Then
With ActiveSheet.Label49
.Caption = Format(Range("E16").Value, "$#,#.00")
.Font.Size = 48
End With
Else
With ActiveSheet.Label49
.Caption = "Min 50 Phones."
.Font.Size = 35
End With
End If

GoTo 300

200 flag = False

ActiveSheet.Label1.Caption = Range("D3")
ActiveSheet.Label12.Caption = Format(Range("E3").Value, "$#,#.00")
300 ' exit

End Sub

Hi Mehmetcik,

Sorry for not being clear...instead of TextBox1, is it possible to look at "TextBox_MCDDisc"? It is on that box, where users will be inputting the numerical (with decimals included) and then transform it to "%"...I've tried to change your code from TextBox1 to TextBox_MCDDisc and it doesn't work.

Ok

Try This

Hi mehmetcik,

Really appreciate your help.

Tried it, but give me the following errors.
1. Tried to type 2 digits (i.e. 30), result error.
2. Tried to type 4 digits with decimal (i.e. 25.25), result error.

Sorry About That.

I have modified the macro,so it only runs when you exit the text box. This simplifies the code and it seems to work.
The code is now in the Lostfocus event

Hi Mehmetcik,

Although I would like to have it in 'Change' instead of LostFocus, but I would consider this thread to be solved. Thanks for all your help. Please check your reputation as I've increased it.