Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
making code more efficient
After getting a procedure to large error I have finally got around to
reducing my code instead of just having what works. I have 5 text boxes in a form and at the moment I evaluate each box exactly the same way but I have sections of code for each box when I could just have a loop stepping by one. The boxes are called rider1 through to rider 5. I am having trouble with this code at the moment If Rider5.Value < 100 Or IsNumeric(Rider5) = False Then I have now got For Box = 5 to 1 step -1 If "Rider" & box.Value < 100 Or IsNumeric("Rider" & box) = False Then This does not work. I have also posted this at the bottom of my procedure to large post but thought more people might see it here. Any ideas. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
making code more efficient
In what module is the code posted? Module1, UserForm, Sheet?
"NDBC" wrote in message ... After getting a procedure to large error I have finally got around to reducing my code instead of just having what works. I have 5 text boxes in a form and at the moment I evaluate each box exactly the same way but I have sections of code for each box when I could just have a loop stepping by one. The boxes are called rider1 through to rider 5. I am having trouble with this code at the moment If Rider5.Value < 100 Or IsNumeric(Rider5) = False Then I have now got For Box = 5 to 1 step -1 If "Rider" & box.Value < 100 Or IsNumeric("Rider" & box) = False Then This does not work. I have also posted this at the bottom of my procedure to large post but thought more people might see it here. Any ideas. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
making code more efficient
Hasn't this already been posted and answered?
"NDBC" wrote: After getting a procedure to large error I have finally got around to reducing my code instead of just having what works. I have 5 text boxes in a form and at the moment I evaluate each box exactly the same way but I have sections of code for each box when I could just have a loop stepping by one. The boxes are called rider1 through to rider 5. I am having trouble with this code at the moment If Rider5.Value < 100 Or IsNumeric(Rider5) = False Then I have now got For Box = 5 to 1 step -1 If "Rider" & box.Value < 100 Or IsNumeric("Rider" & box) = False Then This does not work. I have also posted this at the bottom of my procedure to large post but thought more people might see it here. Any ideas. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
making code more efficient
The OP said he couldn't get it to work. I am wondering where he has the
code. If it is behind the user form then: For box = 1 To 2 MsgBox Me.Controls("rider" & box).Text Next If he is trying it from the project module then he will need to make the form modeless. "Barb Reinhardt" wrote in message ... Hasn't this already been posted and answered? "NDBC" wrote: After getting a procedure to large error I have finally got around to reducing my code instead of just having what works. I have 5 text boxes in a form and at the moment I evaluate each box exactly the same way but I have sections of code for each box when I could just have a loop stepping by one. The boxes are called rider1 through to rider 5. I am having trouble with this code at the moment If Rider5.Value < 100 Or IsNumeric(Rider5) = False Then I have now got For Box = 5 to 1 step -1 If "Rider" & box.Value < 100 Or IsNumeric("Rider" & box) = False Then This does not work. I have also posted this at the bottom of my procedure to large post but thought more people might see it here. Any ideas. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
making code more efficient
Check your other post.
NDBC wrote: After getting a procedure to large error I have finally got around to reducing my code instead of just having what works. I have 5 text boxes in a form and at the moment I evaluate each box exactly the same way but I have sections of code for each box when I could just have a loop stepping by one. The boxes are called rider1 through to rider 5. I am having trouble with this code at the moment If Rider5.Value < 100 Or IsNumeric(Rider5) = False Then I have now got For Box = 5 to 1 step -1 If "Rider" & box.Value < 100 Or IsNumeric("Rider" & box) = False Then This does not work. I have also posted this at the bottom of my procedure to large post but thought more people might see it here. Any ideas. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
making code more efficient | Excel Discussion (Misc queries) | |||
Efficient Code | Excel Programming | |||
More Efficient code than this | Excel Programming | |||
Making code more efficient | Excel Programming |