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

 

[Scott Huish]

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

Sorry , it was the last one

 

[timpepu]

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

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 ?

Sorry ,this is the last one !!!!!


Br
Timo