|
Input box rounding
Hi,
Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
Input box rounding
It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot
hold decimal values. Try Dim'ming it as Double and see if that helps. Rick "Karen53" wrote in message ... Hi, Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
Input box rounding
Yes, Thank you, Rick!
-- Thanks for your help. Karen53 "Rick Rothstein (MVP - VB)" wrote: It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot hold decimal values. Try Dim'ming it as Double and see if that helps. Rick "Karen53" wrote in message ... Hi, Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
Input box rounding
Another question,
Is there a way I can set the password input box to mask the password with *? -- Thanks for your help. Karen53 "Rick Rothstein (MVP - VB)" wrote: It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot hold decimal values. Try Dim'ming it as Double and see if that helps. Rick "Karen53" wrote in message ... Hi, Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
Input box rounding
yes, view the properties of the textbox and look for password character.
-- Gary Keramidas "Karen53" wrote in message ... Another question, Is there a way I can set the password input box to mask the password with *? -- Thanks for your help. Karen53 "Rick Rothstein (MVP - VB)" wrote: It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot hold decimal values. Try Dim'ming it as Double and see if that helps. Rick "Karen53" wrote in message ... Hi, Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
Input box rounding
Thank you, Gary!
-- Thanks for your help. Karen53 "Gary Keramidas" wrote: yes, view the properties of the textbox and look for password character. -- Gary Keramidas "Karen53" wrote in message ... Another question, Is there a way I can set the password input box to mask the password with *? -- Thanks for your help. Karen53 "Rick Rothstein (MVP - VB)" wrote: It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot hold decimal values. Try Dim'ming it as Double and see if that helps. Rick "Karen53" wrote in message ... Hi, Could someone tell me why my value is rounding up to whole numbers, not allowing decimals, i.e. 1.50 or 1.75 etc? Sub EditAllowedVariance() Dim HasPswd As String Dim NuAllowance As Long HasPswd = InputBox("Enter Password", "Password") If HasPswd = "" Then 'do nothing Else If HasPswd = MyPassword Then NuAllowance = Val(InputBox("Enter desired allowed variance", "Enter Variance")) GrossUppg.Range("I2").NumberFormat = "00.00" GrossUppg.Range("I2").Value = NuAllowance Else MsgBox "Incorrect Password" End If End If End Sub -- Thanks for your help. Karen53 |
| All times are GMT +1. The time now is 12:29 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com