unexpected result from inputbox

[HRman]

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 ?

[Toppers]

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

"HRman" wrote:

> 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 ?

[Kris]

HRman wrote:
> 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