unexpected result from inputbox

  • Thread starter Thread starter Guest
  • Start date Start date
G

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 ?
 
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 said:
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 ?
Click to expand...

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

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