Keypress event???? data validation on a userform in vba for spread

[Roundy]

I have a vba form I am using to have a user enter information into a
spreadsheet to do some calculations for me. One of the values is a length
value i.e. 164 and 3/8". What I am trying to accomplish is to have the user
not be able to enter a " mark in the textbox, because that value in my
spreadsheet breaks all of my formulas. My formulas just want a number, not
"text". The control I am using for them to enter into is a text box.
Someone said I should capture the kepress event and block it if it as a
quotation mark before writing the value to the field. So...I am struggling
with how to get this accomplished. Any help would be appreciated.

[Doug Glancy]

Roundy,

I think this would work. I added the message to to reduce user
confusion/frustration:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 34 Then
MsgBox "Sorry, no quotes (" & Chr(34) & ") allowed."
KeyAscii = 0
End If
End Sub

hth,

Doug


"Roundy" <[email protected]> wrote in message
news:[email protected]...
>I have a vba form I am using to have a user enter information into a
> spreadsheet to do some calculations for me. One of the values is a length
> value i.e. 164 and 3/8". What I am trying to accomplish is to have the
> user
> not be able to enter a " mark in the textbox, because that value in my
> spreadsheet breaks all of my formulas. My formulas just want a number,
> not
> "text". The control I am using for them to enter into is a text box.
> Someone said I should capture the kepress event and block it if it as a
> quotation mark before writing the value to the field. So...I am
> struggling
> with how to get this accomplished. Any help would be appreciated.

[Roundy]

Thank you so much for your response, it works great.

"Doug Glancy" wrote:

> Roundy,
>
> I think this would work. I added the message to to reduce user
> confusion/frustration:
>
> Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> If KeyAscii = 34 Then
> MsgBox "Sorry, no quotes (" & Chr(34) & ") allowed."
> KeyAscii = 0
> End If
> End Sub
>
> hth,
>
> Doug
>
>
> "Roundy" <[email protected]> wrote in message
> news:[email protected]...
> >I have a vba form I am using to have a user enter information into a
> > spreadsheet to do some calculations for me. One of the values is a length
> > value i.e. 164 and 3/8". What I am trying to accomplish is to have the
> > user
> > not be able to enter a " mark in the textbox, because that value in my
> > spreadsheet breaks all of my formulas. My formulas just want a number,
> > not
> > "text". The control I am using for them to enter into is a text box.
> > Someone said I should capture the kepress event and block it if it as a
> > quotation mark before writing the value to the field. So...I am
> > struggling
> > with how to get this accomplished. Any help would be appreciated.
>
>
>