Copying numeric text with leading zeros
 

XL2003 on XP

Im using a Ron de Bruin macro to merge all data from workbooks in a
folder(1), but it converts numeric text with leading zeros into numbers when
it copies the data. The relevant portion of code is:

Set destRange = BaseWks.Range("A" & rnum)

'we copy the values from the sourceRange to the destRange
With sourceRange
Set destRange = destRange.Resize(.Rows.Count, .Columns.Count)
End With
destRange.Value = sourceRange.Value

Can I prevent that from happening, or do I need another macro to add the
zeros back?

--
Al C

Copying numeric text with leading zeros
 

Try:
destRange.Value = sourceRange.Text

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Al" wrote:

XL2003 on XP

Im using a Ron de Bruin macro to merge all data from workbooks in a
folder(1), but it converts numeric text with leading zeros into numbers when
it copies the data. The relevant portion of code is:

Set destRange = BaseWks.Range("A" & rnum)

'we copy the values from the sourceRange to the destRange
With sourceRange
Set destRange = destRange.Resize(.Rows.Count, .Columns.Count)
End With
destRange.Value = sourceRange.Value

Can I prevent that from happening, or do I need another macro to add the
zeros back?

--
Al C

Copying numeric text with leading zeros
 

You may have to format your destination cell also:
With SourceRange
.NumberFormat = "@"
End With
destRange.Value = SourceRange.Text

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Michael" wrote:

Try:
destRange.Value = sourceRange.Text

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Al" wrote:

XL2003 on XP

Im using a Ron de Bruin macro to merge all data from workbooks in a
folder(1), but it converts numeric text with leading zeros into numbers when
it copies the data. The relevant portion of code is:

Set destRange = BaseWks.Range("A" & rnum)

'we copy the values from the sourceRange to the destRange
With sourceRange
Set destRange = destRange.Resize(.Rows.Count, .Columns.Count)
End With
destRange.Value = sourceRange.Value

Can I prevent that from happening, or do I need another macro to add the
zeros back?

--
Al C

Copying numeric text with leading zeros
 

Using

destRange.Value = SourceRange.Text

doesn't work in my case since my source workbooks columns with regular text
and numbers as well as numeric text.
Preformatting the appropriate columns of the destination workbook as you
suggest and using my original

destRange.Value = sourceRange.Value

statement does the trick.

Thanks, Michael.
--
Al C


"Michael" wrote: