| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
2 If/Then statements in 1 sub not working correctly
I have messed around with this for a couple days. This should be so
simple, but I can’t get it right. When user hits the OK button, I want VBA to check the entry of TextBox2 VS the range value of Base_Pay. If the TextBox2 value is less, then execute 1 routine. If it’s more, then a different routine. It won’t seem to recognize if its less, so nothing happens. No error. If I take out the top part (less than), and just leave in the If More part, then it works fine. Why can’t I get the top section for If Less to work? Is there something about the less than < sign VBA doesn’t like? Do I need to make Declarations? Note: TextBox1 shows current date. Thanks for your help. j.o. Private Sub CommandButton2_Click() 'OK button ‘1st section checks to see if TextBox2 is less than range Base_Pay ‘ ***I’ve tried this statement both ways, neither works*** 'If Range("Base_Pay").Value (TextBox2.Value) Then If (TextBox2.Value) < Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 3).Select ‘Goes to Debt column 'ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value Else ‘ I’ve tried this with and without Else part ' ***this section works fine if the top section is disabled*** If (TextBox2.Value) Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 4).Select ‘Goes to Credit column ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value End If End If ‘AllocatePay ‘ this is where it goes after performing routine above. This works fine. I disabled this during testing. End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2 If/Then statements in 1 sub not working correctly
A textbox returns text not numbers. Try CDbl(TextBox2.Value)
-- Jim Cone Portland, Oregon USA http://www.mediafire.com/PrimitiveSoftware (free and commercial excel programs) "jeff" wrote in message ... I have messed around with this for a couple days. This should be so simple, but I can’t get it right. When user hits the OK button, I want VBA to check the entry of TextBox2 VS the range value of Base_Pay. If the TextBox2 value is less, then execute 1 routine. If it’s more, then a different routine. It won’t seem to recognize if its less, so nothing happens. No error. If I take out the top part (less than), and just leave in the If More part, then it works fine. Why can’t I get the top section for If Less to work? Is there something about the less than < sign VBA doesn’t like? Do I need to make Declarations? Note: TextBox1 shows current date. Thanks for your help. j.o. Private Sub CommandButton2_Click() 'OK button ‘1st section checks to see if TextBox2 is less than range Base_Pay ‘ ***I’ve tried this statement both ways, neither works*** 'If Range("Base_Pay").Value (TextBox2.Value) Then If (TextBox2.Value) < Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 3).Select ‘Goes to Debt column 'ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value Else ‘ I’ve tried this with and without Else part ' ***this section works fine if the top section is disabled*** If (TextBox2.Value) Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 4).Select ‘Goes to Credit column ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value End If End If ‘AllocatePay ‘ this is where it goes after performing routine above. This works fine. I disabled this during testing. End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2 If/Then statements in 1 sub not working correctly
On Mar 24, 9:27*am, "Jim Cone" wrote:
A textbox returns text not numbers. *Try CDbl(TextBox2.Value) -- Jim Cone Portland, Oregon USAhttp://www.mediafire.com/PrimitiveSoftware (free and commercial excel programs) "jeff" wrote in ... I have messed around with this for a couple days. This should be so simple, but I can t get it right. When user hits the OK button, I want VBA to check the entry of TextBox2 VS the range value of Base_Pay. If *the TextBox2 value is less, then execute 1 routine. If it s more, then a different routine. It won t seem to recognize if its less, so nothing happens. No error. If I take out the top part (less than), and just leave in the If More part, then it works fine. Why can t I get the top section for If Less to work? Is there something about the less than < sign VBA doesn t like? Do I need to make Declarations? Note: TextBox1 shows current date. Thanks for your help. j.o. Private Sub CommandButton2_Click() 'OK button 1st section checks to see if TextBox2 is less than range Base_Pay * ****I ve tried this statement both ways, neither works*** 'If Range("Base_Pay").Value (TextBox2.Value) Then If (TextBox2.Value) < Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" * * Selection.End(xlDown).Select * * ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 3).Select * Goes to Debt column 'ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value Else * I ve tried this with and without Else part * ' ***this section works fine if the top section is disabled*** If (TextBox2.Value) Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" * *Selection.End(xlDown).Select * * ActiveCell.Offset(1, 0).Range("A1").Select * ActiveCell.Value = TextBox1.Value * ActiveCell.Offset(0, 4).Select * Goes to Credit column ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value End If End If AllocatePay * this is where it goes after performing routine above. This works fine. I disabled this during testing. End Sub I'm more a novice than expert here. But, I've used numbers in Textboxes for calculations all the time. In fact, the If statement in the bottom section calculates just fine if the top section isn't there. I can't get the top If statement section to be recognized. I appreciate your reply. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2 If/Then statements in 1 sub not working correctly
I'm with Jim Cone in this one. The reason your IF statement doesn't
work is the numerical value of the text in the box is zero, rather than the dollar value. Did you try Jim Cone's suggestion, just so you could say you did? Doing arithmetics on a raw value in a textbox is one of those times when VB/VBA tries to guess what you meant and accommodate you. However, with the IF statement, it guesses that you probably meant the text in the box to be text. Some problems of this type can be prevented if you set Option Strict on and Option Infer Off--though I'd probably make one that would still come crashing through, especially if people were watching.. On Thu, 24 Mar 2011 07:56:36 -0700 (PDT), jeff wrote: On Mar 24, 9:27*am, "Jim Cone" wrote: A textbox returns text not numbers. *Try CDbl(TextBox2.Value) -- Jim Cone Portland, Oregon USAhttp://www.mediafire.com/PrimitiveSoftware (free and commercial excel programs) "jeff" wrote in ... I have messed around with this for a couple days. This should be so simple, but I can t get it right. When user hits the OK button, I want VBA to check the entry of TextBox2 VS the range value of Base_Pay. If *the TextBox2 value is less, then execute 1 routine. If it s more, then a different routine. It won t seem to recognize if its less, so nothing happens. No error. If I take out the top part (less than), and just leave in the If More part, then it works fine. Why can t I get the top section for If Less to work? Is there something about the less than < sign VBA doesn t like? Do I need to make Declarations? Note: TextBox1 shows current date. Thanks for your help. j.o. Private Sub CommandButton2_Click() 'OK button 1st section checks to see if TextBox2 is less than range Base_Pay * ****I ve tried this statement both ways, neither works*** 'If Range("Base_Pay").Value (TextBox2.Value) Then If (TextBox2.Value) < Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" * * Selection.End(xlDown).Select * * ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 3).Select * Goes to Debt column 'ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value Else * I ve tried this with and without Else part * ' ***this section works fine if the top section is disabled*** If (TextBox2.Value) Range("Base_Pay").Value Then Application.Goto Reference:="Account_1" * *Selection.End(xlDown).Select * * ActiveCell.Offset(1, 0).Range("A1").Select * ActiveCell.Value = TextBox1.Value * ActiveCell.Offset(0, 4).Select * Goes to Credit column ActiveCell.Value = Range("Base_Pay").Value - TextBox2.Value End If End If AllocatePay * this is where it goes after performing routine above. This works fine. I disabled this during testing. End Sub I'm more a novice than expert here. But, I've used numbers in Textboxes for calculations all the time. In fact, the If statement in the bottom section calculates just fine if the top section isn't there. I can't get the top If statement section to be recognized. I appreciate your reply. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| AutoSum not working correctly | Excel Discussion (Misc queries) | |||
| Filters not working correctly | Setting up and Configuration of Excel | |||
| WorksheetFunction not working correctly | Excel Discussion (Misc queries) | |||
| Code not working correctly | Excel Programming | |||
| Formulas not working correctly | Excel Worksheet Functions | |||
Linear Mode
