Adding 0's before a text to make it 6 characters long

Hi

Please find below the code that copies the selected date data from sheet1 to sheet2. The column B in sheet1 has text datatype so whenver in the textbox in userform the user types 001091 then in the cell in column B it appears the same but when I write the following code to copy the certain date data from sheet1 to sheet2 then in sheet2 the column B trims all 0's before any number text so in sheet2 the cell in column B stores value like 1091.

Please Login or Register  to view this content.

Hi

I tried it but it didn't work. In sheet1 the column B stores everything right (that means 6 characters always" but when some data is copied from sheet 1 to sheet2 then the column B in sheet2 doesn't store the leading 0's. How can I change the column B in sheet2 so that if the text is less than 6 characters then place 0's before it to make it 7 characters long.or before printing the sheet2 how can we format column B.

Please suggest me.

Thanks

Hi snb

If I make changes to one cell then the code works fine but I have a whole column and I want to change the format of the whole column . Could you please help me in that. If I write the following code then it doesn't work.

Please Login or Register  to view this content.

Thanks

Thanks a lot snb for your help. It worked perfectly fine.