How to add zeros at the end

[timpepu]

Hi !

I have text like this 00000058 , I want add 0 so many times that it is 14 character long like this 00000058000000 .
How should I do it with VBA.

Br
Timo

 

[jiejenn]

only inserts leading 0's not trailing.

Hi Jason,

I just tried it on Excel 2007, it works though.

 

[Scott Huish]

This one will:
00000000"000000"

but this one won't:
00000000000000

which is the one jasonb was referring to.

 

[jasonb75]

It was also established at post #6 that the cell format option was unsuitable for the OP's needs.

Hotpepper, please correct me if I'm wrong.

Formatting the cell only changes the way you see the content of the cell, excel still retains the original value, meaning that the format is lost if the data is exported to another application.

 

[Scott Huish]

I don't know how the op is exporting the data, but I saved it out as a CSV file and the formatted cell retained its formatting in the output file.
At any rate, I also provided a macro.

 

[timpepu]

<P>Hi !</P>
<P> </P>
<P>Sub test()<BR>Dim c As Range<BR>For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)<BR>    c.NumberFormat = "@"<BR>    c = Format(c, String(8, "0")) & String(6, "0")<BR>Next<BR>End Sub</P>
<P> </P>
<P>This work fine but I want one thing , if the previous column value <> 02 this doesn't do this format and go to next row !</P>

 

[Scott Huish]

Since you mention a previous column, your numbers obviously aren't in column A.

Is that a text 02 or a 2 formatted that way?

 

[timpepu]

Since you mention a previous column, your numbers obviously aren't in column A.

Is that a text 02 or a 2 formatted that way?

It is text 02 , examble

Column A row 1 "02" Column B row 1 "58" This must format like 00000058000000
Column A row 2 "04" Jump this
etc.

 

[Scott Huish]

Sub test()
Dim c As Range
For Each c In Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    If c.Offset(, -1) = "02" Then
        c.NumberFormat = "@"
        c = Format(c, String(8, "0")) & String(6, "0")
    End If
Next
End Sub

 

[timpepu]

Sub test()
Dim c As Range
For Each c In Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    If c.Offset(, -1) = "02" Then
        c.NumberFormat = "@"
        c = Format(c, String(8, "0")) & String(6, "0")
    End If
Next
End Sub

Thanks ,it works fine but one thing what I didn't told ,how should it be if this "02" is like 0233456788 examble and I want to check that only first two characters are 02 ?

Br
Timo

 

[Scott Huish]

Are there any other conditions? I could then write the code once for all your conditions.