Want to apply only numbers in textboxes userform in simple way

[HaroonSid]

hi, everyone
i found a code for textoboxes pass only numbers to sheet

Please Login or Register  to view this content.

but i have 105 textboxes,

so i want a simple way to numbers only in textboxes


thanx

[Arkadi]

HaroonSid:

There are 2 ways...
#1: You still make a Exit event for every box, but each calls ONE sub that does the checking... You will need the same Exit for every box.

Please Login or Register  to view this content.

or #2: You add all the textboxes to a class, but you would need a class module and I suspect that is a bit advanced for now. If you want to post the file then I could see if I can make some time to do it for you, if you tell me which textboxes on which form need to behave this way.

[mike7952]

Add this to a Class Module. Change the class name from Class1 to clsNumericTextBox. Code only allows for Numeric keys to be entered into any textbox on userform.

Please Login or Register  to view this content.

Add this to your Userform Module

Please Login or Register  to view this content.

[Arkadi]

@mike, nice code

[HaroonSid]

Thanx A lot for the quick response both of you

@Arkadi
thanx a lot for quick and good knowledge for me of multiple method to do the same thing

@mike7952
your code is working as i need but there is one lose point that its not picking the .125 (decimals) otherwise if working

plz solve the decimals,

because i need to put sometime decimal vlaues

thanx a lot both of you once again

[mike7952]

In the Class Module just add 46

Please Login or Register  to view this content.

[HaroonSid]

Yes
perfectly

thanx, very very thanx
dear @mike7952