[userform] insert texbox data in a cell AS INTEGER

[Dinictus]

Hi, I got a userform that works okay.

Under 1 texbox the following code is nested:

Private Sub TBL1_Change()
Worksheets("sheet1").Range("B2").Value = TBL1
End Sub

So the data (numeric) from the textbox is pasted in B2.
It is however very irritating that the data gest pasted in the 'variant' format I want it to be integer (I need to import the excel file in SAS later on.

Can anyone tell me how to add this condition?? Perhaps this is a real easy one.

[Mark O'Brien]

On 2002-04-25 08:14, Dinictus wrote:
Can anyone tell me how to add this condition?? Perhaps this is a real easy one.

Yup and it is:

Private Sub TBL1_Change()

    Worksheets("sheet1").Range("B2").Value = Int(TBL1)

End Sub

HTH

[Dinictus]

Ooh thanks so much man!

cheers

Din.