unexpected result from inputbox

[Guest]

Hi,

I have a piece of code that promts for an employee number which may or may
not have a leading zero. If I print out the employee number using msgbox it
has the leading zero, but when i place it on a worksheet, the leading zero
disappears.

dim empno as string

empno = inputbox("enter the employee number")
msgbox ">"+empno+"<"
worksheets("sheet1").cells(1,2).value = empno


Any suggestions ?

 

[Guest]

Hi,
Cell must be defined as Text not General - try the following :

Dim empno As String

empno = InputBox("enter the employee number")

Worksheets("sheet1").Cells(1, 2).NumberFormat = "@"
Worksheets("sheet1").Cells(1, 2).Value = empno

 

[Kris]

Hi,

I have a piece of code that promts for an employee number which may or may
not have a leading zero. If I print out the employee number using msgbox it
has the leading zero, but when i place it on a worksheet, the leading zero
disappears.

dim empno as string

empno = inputbox("enter the employee number")
msgbox ">"+empno+"<"
worksheets("sheet1").cells(1,2).value = empno


Any suggestions ?

Because Execel treats your result as a number and cuts leading zeros.

worksheets("sheet1").cells(1,2).value = "'" & empno