Wrong number format

[bobkap]

I have a text field with entries like this: 001-2024. However, when I bring them over to another worksheet via VBA code I get the entry in scientific notation.
Any help would be greatly appreciated. I've tried reformatting the fields from and to but it still does not fix the problem.

 

[Michael M]

Have you tried putting an apostrophe in front of the text field ?
Can you post the code ?

 

[bobkap]

Have you tried putting an apostrophe in front of the text field ?
Can you post the code ?

Thanks. By declaring the field to be text doesn't that assume the apostrophe?

Here's the code that "tells" the entry to place it in a specific row and column:

worksheets("Report").Cells(toprow, Invordcol) = Worksheets("Main").Cells(finalrow, repordcol)

 

[Michael M]

Are you pasting to a blank cell ?
Also,try

• Select the cell
• Go to Data >> Data Tools >> Text to Columns
• Click Next button twice to reach Step 3 of 3
• In Step 3, select Text
• Click Finish

 

[bobkap]

Are you pasting to a blank cell ?
Also,try

• Select the cell
• Go to Data >> Data Tools >> Text to Columns
• Click Next button twice to reach Step 3 of 3
• In Step 3, select Text
• Click Finish

Thanks again. That did not work. It changed this "7.13679E+11" to "713679223131" it needs to be 033-2024.

 

[Akuini]

Probably:

worksheets("Report").Cells(toprow, Invordcol) = "'" & Worksheets("Main").Cells(finalrow, repordcol).Text

 

[bobkap]

Probably:

worksheets("Report").Cells(toprow, Invordcol) = "'" & Worksheets("Main").Cells(finalrow, repordcol).Text

Many thanks. I tried that but got this '713679223131 instead of the original entry of 033-2024.

 

[Michael M]

did you try the apostrophe ??

 

[bobkap]

did you try the apostrophe ??

Yes. No change then either.

 

[Michael M]

Ok, so maybe post all the code ??
Only because it seems nothing suggested is solving the issue.