Textbox Question

[will2learn]

I have a userform with various textboxes on it, which inturn feeds the data into a spreadsheet. One of the boxes is used to record messages/notes and is causing a problem as the users sometimes enter data with a ",".

Is there away in which I can stop the user entering a "," as they are typing?

 

[Haratio]

Will2learn,

what about something like this,

Private Sub TextBox1_Change()
If TextBox1.Text = "," Then
MsgBox "please dont do that"
TextBox1 = Null
End If
End Sub

or if not this then something along these lines.

Haratio

 

[will2learn]

Your suggestion works if only "," is entered in the text box. I need it to throw up an error if something like this is entered "hello, everyone". As the user enters the "," I need away to stop them entering the ",".

 

[Norie]

Why do you need to prevent the user entering a comma?

 

[will2learn]

The data needs to be used in a csv file. If the "," is entered then the data is out of sync.

 

[blazonQC]

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 188 Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

This isn't a fantastic way of doing it..... but it works. And 1 real drawback is that if a user holds the ',' key down then it won't work properly.... but who's going to do that?

I'll try to come up with a better method for you that updates faster. Or you could just go ahead and parse the strings before moving them.

Chad

 

[will2learn]

Chad,

Thanks for your code That seems to have done the trick. I've added a warning message so that the user knows not to use the comma.

 

[al_b_cnu]

Hi,

This will cater for the event that the user pastes in text with a comma:

Private Sub TextBox1_Change()
If InStr(TextBox1.Text, ",") <> 0 Then
    With Application
        .EnableEvents = False
        TextBox1.Text = Replace(TextBox1.Text, ",", " ")
        .EnableEvents = True
    End With
End If
End Sub