Textbox - Easy One (Hopefully)

[RWinfield]

I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

 

[Russell Hauf]

On 2002-02-26 12:38, RWinfield wrote:
I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

Try this:

TextBox3.Value = Range("d4").Text

HTH,

Russell

 

[gplhl]

On 2002-02-26 12:38, RWinfield wrote:
I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

TextBox3.Value = Int(Range("D4").value)

 

[gplhl]

My last post didn't take into account the fact that if you have set the cell format to not show any numbers after the decimal point, the number in the sheet may be rounded up.

Try this:

MyInteger = Range("D4").Text ' Converts to text
MyInteger = Int(MyInteger) ' converts back to an integer.
TextBox1.Value = MyInteger

 

[RWinfield]

Works perfect Gary, thanks!