Hi all,

i have my userform pull up info from cell on initializing, so sometimes the
code below works and sometimes it doesn't. what i need to do is use a similar
code to delete the unwanted characters on the change event.


Private Sub txtItemFob_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 8 To 10, 13, 27 'Control characters
Case 45, 46 'negative and period
If KeyAscii = 45 Then 'hypen/negative
If Len(Trim(txtItemFob.Text)) > 1 Then
Beep
KeyAscii = 0
End If
End If
Case 48 To 57 'numbers
Case Else 'Discard anything else
Beep
KeyAscii = 0
End Select
End Sub

--
help a friend help you

What is the exact problem? Do you need to delete a cell or are you just
getting error messages?

"ernie" wrote:

> Hi all,
>
> i have my userform pull up info from cell on initializing, so sometimes the
> code below works and sometimes it doesn't. what i need to do is use a similar
> code to delete the unwanted characters on the change event.
>
>
> Private Sub txtItemFob_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> Select Case KeyAscii
> Case 8 To 10, 13, 27 'Control characters
> Case 45, 46 'negative and period
> If KeyAscii = 45 Then 'hypen/negative
> If Len(Trim(txtItemFob.Text)) > 1 Then
> Beep
> KeyAscii = 0
> End If
> End If
> Case 48 To 57 'numbers
> Case Else 'Discard anything else
> Beep
> KeyAscii = 0
> End Select
> End Sub
>
> --
> help a friend help you

Hi Akphidelt,

thanks for the reply, i tried using the code below to validate user inputs
but i doesnt seem to work.. so i want to try it using the change event
procedure instead of the keypress.

thank you

--
help a friend help you


"AKphidelt" wrote:

> What is the exact problem? Do you need to delete a cell or are you just
> getting error messages?
>
> "ernie" wrote:
>
> > Hi all,
> >
> > i have my userform pull up info from cell on initializing, so sometimes the
> > code below works and sometimes it doesn't. what i need to do is use a similar
> > code to delete the unwanted characters on the change event.
> >
> >
> > Private Sub txtItemFob_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> > Select Case KeyAscii
> > Case 8 To 10, 13, 27 'Control characters
> > Case 45, 46 'negative and period
> > If KeyAscii = 45 Then 'hypen/negative
> > If Len(Trim(txtItemFob.Text)) > 1 Then
> > Beep
> > KeyAscii = 0
> > End If
> > End If
> > Case 48 To 57 'numbers
> > Case Else 'Discard anything else
> > Beep
> > KeyAscii = 0
> > End Select
> > End Sub
> >
> > --
> > help a friend help you