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

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.

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

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" wrote in message
...
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.

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

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" wrote in message
...
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.