Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reducing Code
I have hundreds of text boxes on a user form.
For each text box I need to run the following traps on Exit and BeforeUpdate to check user input and reset to old input if new input does not meet requirements. I know I can run these traps as private subs. By returning True or False I can trap the user or allow user to continue inputting in the next text box. This all works.. ________ Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = Chkinp(TextBox1) End Sub _________ ________ Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = Chkinp(TextBox1) End Sub ________ Must I duplicate the code for every TextBox? Or is a way to use "For Each" or a variable? If this code exists where would I put this so it would be valid for the entire user form. (ie without creating two new Private Subs for every text box). Garry Jones Sweden |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reducing Code
For each textbox, for the exit and beforeupdate events, you would need
separate events for each textbox. -- Regards, Tom Ogilvy "Garry Jones" wrote in message ... I have hundreds of text boxes on a user form. For each text box I need to run the following traps on Exit and BeforeUpdate to check user input and reset to old input if new input does not meet requirements. I know I can run these traps as private subs. By returning True or False I can trap the user or allow user to continue inputting in the next text box. This all works.. ________ Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = Chkinp(TextBox1) End Sub _________ ________ Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = Chkinp(TextBox1) End Sub ________ Must I duplicate the code for every TextBox? Or is a way to use "For Each" or a variable? If this code exists where would I put this so it would be valid for the entire user form. (ie without creating two new Private Subs for every text box). Garry Jones Sweden |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reducing the size. | Excel Discussion (Misc queries) | |||
Reducing balance | Excel Discussion (Misc queries) | |||
Reducing Spreadsheet | Excel Discussion (Misc queries) | |||
Reducing Code | Excel Programming | |||
help reducing lines of code | Excel Programming |