Fernando Duran wrote:
When export to Excel most of the time I loose the leading zeros, I want to
know if someone have a macro to restore the zeros?

Thanks,

You should watch how the data is being imported to avoid in the future.
However, This should work to bring it back once you already have it
imported.

Sub LeadZeros()
Dim DLength As Integer
Dim xlCurrLen As Integer


DLength = 10 'Desired total length
Dim xlCell As Range

For Each xlCell In ActiveSheet.UsedRange
xlCurrLen = Len(Trim(xlCell.Value))
If xlCurrLen < DLength And xlCurrLen < 0 Then
'Have to prepend value with tick to retain the zeros
xlCell.Value = "'" & String(DLength - xlCurrLen, "0") &
xlCell.Value
End If
Next xlCell

End Sub


The weakness I see is that i's converted to text. So you will have to
deal with that if calcing the data. Not sure how to lead zeros and not
have it as text. I'll be watching this post to see if one of the gurus
post a better suggestion.

Regards,
Jamie