Concatenate Long Numbers - 26 Digits

[Gos-C]

Hi all,

I would like to concatenate a 10-digit number located in column A, a number located in column F and a number located in column G. The resulting string must be a 26-digit number. The number in column F must be 10 digits in length by adding leading zeroes (if required) and the number in G must be 6 digits by adding leading zeroes (if required). I am unable to figure it out.

I am getting scientific numbers with I used the following lines:

For i = 5 To lRow
ActiveSheet.Cells(i, 16).Value = CStr(ActiveSheet.Cells(i, 1).Value & ActiveSheet.Cells(i, 6).Value & ActiveSheet.Cells(i, 7).Value)
Next i

Any help?

Thanks,
Gos-C

 

[shg]

  Range(Cells(5, "P"), Cells(lRow, "P")).NumberFormat = "@"
  For i = 5 To lRow
    Cells(i, "P").Value = Format(Cells(i, "A").Value, "0000000000") & _
                          Format(Cells(i, "F").Value, "0000000000") & _
                          Format(Cells(i, "G").Value, "000000")
  Next i

 

[Gos-C]

Thank you very much, Shg. I got it to work by modifying it as follows:

ActiveSheet.Range("P5:P" & lRow).NumberFormat = "@"
  For i = 5 To lRow
    ActiveSheet.Cells(i, 16).Value = Format(ActiveSheet.Cells(i, 1).Value, "0000000000") & _
                          Format(ActiveSheet.Cells(i, 6).Value, "0000000000") & _
                          Format(ActiveSheet.Cells(i, 7).Value, "000000")
  Next i

Cheers,
Gos-C

 

[shg]

You're welcome.