vba problem with isnumeric
Hi,
I have a simple question for the following code: Private Sub OnlyNumbers(ctl As Object) With ctl If Not IsNumeric(.Value) And .Value < vbNullString Then MsgBox "Sorry, alleen getallen toegestaan" .Value = vbNullString .SetFocus MsgBox "numtest" End If End With End Sub This code checks if the input in a txt box is numeric. It works fine ! My problem: I only want to check if the left first character of the input is numeric ! I thought it should be possible to change the line If Not IsNumeric(.Value) And .Value < vbNullString Then so it only looks at the first character that is input by the user. Can anyone help me please? Thanks, Pierre -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200508/1 |
vba problem with isnumeric
Hi Jean-Pierre,
If Not IsNumeric(Left(.Value, 1)) And .Value < vbNullString Then --- HTH, David McRitchie, Microsoft MVP - Excel My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm "Jean-Pierre D via OfficeKB.com" wrote in message ... Hi, I have a simple question for the following code: Private Sub OnlyNumbers(ctl As Object) With ctl If Not IsNumeric(.Value) And .Value < vbNullString Then MsgBox "Sorry, alleen getallen toegestaan" .Value = vbNullString .SetFocus MsgBox "numtest" End If End With End Sub This code checks if the input in a txt box is numeric. It works fine ! My problem: I only want to check if the left first character of the input is numeric ! I thought it should be possible to change the line If Not IsNumeric(.Value) And .Value < vbNullString Then so it only looks at the first character that is input by the user. Can anyone help me please? Thanks, Pierre -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200508/1 |
vba problem with isnumeric
use LEFT
IsNumeric(LEFT(.Value,1)) Mangesh "Jean-Pierre D via OfficeKB.com" wrote in message ... Hi, I have a simple question for the following code: Private Sub OnlyNumbers(ctl As Object) With ctl If Not IsNumeric(.Value) And .Value < vbNullString Then MsgBox "Sorry, alleen getallen toegestaan" .Value = vbNullString .SetFocus MsgBox "numtest" End If End With End Sub This code checks if the input in a txt box is numeric. It works fine ! My problem: I only want to check if the left first character of the input is numeric ! I thought it should be possible to change the line If Not IsNumeric(.Value) And .Value < vbNullString Then so it only looks at the first character that is input by the user. Can anyone help me please? Thanks, Pierre -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200508/1 |
All times are GMT +1. The time now is 10:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com