Number Value Put Into Cell Not Accepting Format

[Ark68]

I am trying to put a number value converted from a text value (Me.empl_no2.Value) into a cell with the format of "00000" with this line of code ...

.Cells(lr_orp, 22) = Format(CLng(Me.empl_no2.Value), "00000")

All I am getting in the cell is '0', not '00000'.

Where have I gone wrong.

 

[sadboy309]

It don't understand your value is Text. For, you need Format Cells to Text.

'Case 1:
.Cells(lr_orp, 22).NumberFormat = "000000"
.Cells(lr_orp, 22) = Format(CLng(Me.empl_no2.Value), "00000")

'Case 2:
.Cells(lr_orp, 22) = "'" & Format(CLng(Me.empl_no2.Value), "00000")

 

[Trebor76]

Try this:

With .Cells(lr_orp, 22)
    .Value = Me.empl_no2.Value
    .NumberFormat = "00000"
End With

Regards,

Robert

 

[Ark68]

Yep! That was what I was looking for. Thank you.

 

[Trebor76]

You're welcome and thanks for the Thanks and Likes