Error message when a numeric char is entered in userform

[Dinictus]

Hey,

Got a userform in which people can submit certain codes. The data from the different textboxes is copied to certain cells in the integer format. (I have to import this data in SAS later on so I need this format)

If I type a letter, I get a type mismatch and the debugger starts. I just want an error message like: only numeric values are allowed.

Here is the syntaxt for 1 textbox:
Anyone who can give me a clue?

Private Sub TBpanel_Change()
Worksheets("sheet1").Range("A2").Value = Int(TBpanel)

This doesn`t work:
'If Not IsNumeric(TBpanel.Value) Then
' MsgBox "Alleen numerieke data is toegestaan", vbExclamation, "Invalid Entry"
'End If

End Sub

Cheers,

Dinictus.

 

[dk]

Hello,

The problem is because you're trying to convert the TBPanel's value to an integer before you've checked whether or not it is numeric. Check first, and then assign it to the worksheet and you'll be fine.

Private Sub TBpanel_Change()
If IsNumeric(TBPanel.Value) = True Then
    Worksheets("sheet1").Range("A2").Value = Int(TBPanel)
Else
    MsgBox "Alleen numerieke data is toegestaan", vbExclamation, "Invalid Entry"
End If
End Sub

 

[Dinictus]

DK!!

Thanks for taking the time to read my issue. You were defenitely right.

great, it is much appreciated.

Cheers,

 

[Andrew Poulsom]

You need to change the order of your code because it is failing when you try to put a non integer value on sheet1.

This will work:

Private Sub TBpanel_Change()
If Not IsNumeric(TBpanel.Value) Then
MsgBox "Alleen numerieke data is toegestaan", vbExclamation, "Invalid Entry"
Exit Sub
End If
Worksheets("sheet1").Range("A2").Value = Int(TBpanel)
End Sub

However, this is putting the value on sheet1 one character at a time. It would probably be better to move the validation to the OK Button Click event handler.