VBA convert all single code numbers into 2 digits.

[motilulla]

Hello,

Column "D" how I have codes with single and double digits, i want a VBA which can covert all single digit into 2 digits as per result column E

Example file...

Book1
	D	E
1
2
3
4
5
6
7
8
9
10
11	Orignal Code	Required Result
12	6 | 4 | 4 + 10 | 0 | 0 - 0 | 0 | 1	06 | 04 | 04 + 10 | 00 | 00 - 00 | 00 | 01
13	6 | 4 | 4 + 10 | 0 | 0 - 0 | 0 | 2	06 | 00 | 00 + 10 | 00 | 00 - 00 | 00 | 02
14	6 | 4 | 4 + 11 | 0 | 0 - 0 | 0 | 3	06 | 04 | 04 + 11 | 00 | 00 - 00 | 00 | 03
15	6 | 5 | 3 + 0 | 0 | 1 - 0 | 0 | 13	06 | 05 | 03 + 00 | 00 | 01 - 00 | 00 | 13
16	6 | 5 | 33 + 0 | 0 | 10 - 1 | 0 | 0	06 | 05 | 33 + 00 | 00 | 10 - 01 | 00 | 00
17	6 | 5 | 3 + 0 | 0 | 11 - 3 | 0 | 0	06 | 05 | 03 + 00 | 00 | 11 - 03 | 00 | 00
18	6 | 5 | 3 + 0 | 0 | 12 - 0 | 0 | 1	06 | 05 | 03 + 00 | 00 | 12 - 00 | 00 | 01
19	0 | 0 | 27 + 2 | 0 | 0 - 9 | 0 | 0	00 | 00 | 27 + 02 | 00 | 00 - 09 | 00 | 00
20	0 | 0 | 24 + 3 | 0 | 0 - 0 | 0 | 1	00 | 00 | 24 + 03 | 00 | 00 - 00 | 00 | 01
21	0 | 0 | 18 + 3 | 0 | 0 - 0 | 0 | 10	00 | 00 | 18 + 03 | 00 | 00 - 00 | 00 | 10
22	0 | 0 | 84 + 3 | 0 | 0 - 0 | 0 | 64	00 | 00 | 84 + 03 | 00 | 00 - 00 | 00 | 64
23	0 | 0 | 19 + 3 | 0 | 0 - 0 | 0 | 2	00 | 00 | 19 + 03 | 00 | 00 - 00 | 00 | 02
24	0 | 0 | 37 + 3 | 0 | 0 - 0 | 0 | 3	00 | 00 | 37 + 03 | 00 | 00 - 00 | 00 | 03
25	0 | 0 | 54 + 3 | 0 | 0 - 0 | 0 | 4	00 | 00 | 54 + 03 | 00 | 00 - 00 | 00 | 04
26	0 | 0 | 36 + 3 | 0 | 0 - 0 | 0 | 5	00 | 00 | 36 + 03 | 00 | 00 - 00 | 00 | 05
27	6 | 5 | 3 + 0 | 0 | 1 - 0 | 0 | 12	06 | 05 | 03 + 00 | 00 | 01 - 00 | 00 | 12
28	6 | 5 | 3 + 0 | 0 | 1 - 0 | 0 | 77	06 | 05 | 03 + 00 | 00 | 01 - 00 | 00 | 77
29	6 | 5 | 3 + 0 | 0 | 1 - 0 | 0 | 2	06 | 05 | 03 + 00 | 00 | 01 - 00 | 00 | 02
30	6 | 5 | 3 + 0 | 0 | 1 - 0 | 0 | 3	06 | 05 | 03 + 00 | 00 | 01 - 00 | 00 | 03
31	2 | 6 | 6 + 2 | 0 | 0 - 7 | 0 | 0	02 | 06 | 06 + 02 | 00 | 00 - 07 | 00 | 00
32	2 | 6 | 6 + 2 | 0 | 0 - 8 | 0 | 0	02 | 06 | 06 + 02 | 00 | 00 - 08 | 00 | 00
33	2 | 6 | 6 + 2 | 0 | 0 - 9 | 0 | 0	02 | 06 | 06 + 02 | 00 | 00 - 09 | 00 | 00
34	2 | 6 | 6 + 3 | 0 | 0 - 0 | 0 | 1	02 | 06 | 06 + 03 | 00 | 00 - 00 | 00 | 01
35	2 | 6 | 6 + 3 | 0 | 0 - 0 | 0 | 10	02 | 06 | 06 + 03 | 00 | 00 - 00 | 00 | 10
36	2 | 6 | 6 + 3 | 0 | 0 - 0 | 0 | 11	02 | 06 | 06 + 03 | 00 | 00 - 00 | 00 | 11
37	2 | 6 | 6 + 3 | 0 | 0 - 0 | 0 | 2	02 | 06 | 06 + 03 | 00 | 00 - 00 | 00 | 02
38	2 | 6 | 6 + 3 | 0 | 0 - 0 | 0 | 3	02 | 06 | 06 + 03 | 00 | 00 - 00 | 00 | 03
39	2 | 6 | 6 + 3 | 0 | 0 - 1 | 0 | 0	02 | 06 | 06 + 03 | 00 | 00 - 01 | 00 | 00
40	2 | 6 | 6 + 3 | 0 | 0 - 99 | 0 | 0	02 | 06 | 06 + 03 | 00 | 00 - 99 | 00 | 00
41	2 | 6 | 6 + 3 | 0 | 0 - 19 | 0 | 0	02 | 06 | 06 + 03 | 00 | 00 - 19 | 00 | 00
42	2 | 6 | 6 + 3 | 0 | 0 - 2 | 0 | 0	02 | 06 | 06 + 03 | 00 | 00 - 02 | 00 | 00
Sheet99

Thank you all

Excel 2000
Regards,
Moti

 

[Steve_]

This should get ya there..

Sub Double_Up()
    For i = 2 To Sheets("Sheet1").UsedRange.Rows.Count
        curStr = Split(Cells(i, 1))
        For t = LBound(curStr) To UBound(curStr)
            If IsNumeric(curStr(t)) And Len(curStr(t)) < 2 Then
                curStr(t) = "0" & curStr(t)
            End If
            curOutput = curOutput & curStr(t) & " "
        Next t
        Cells(i, 3) = rTrim(curOutput)
        curOutput = Empty
    Next i
End Sub

 

[motilulla]

This should get ya there..

Sub Double_Up()
    For i = 2 To Sheets("Sheet1").UsedRange.Rows.Count
        curStr = Split(Cells(i, 1))
        For t = LBound(curStr) To UBound(curStr)
            If IsNumeric(curStr(t)) And Len(curStr(t)) < 2 Then
                curStr(t) = "0" & curStr(t)
            End If
            curOutput = curOutput & curStr(t) & " "
        Next t
        Cells(i, 3) = rTrim(curOutput)
        curOutput = Empty
    Next i
End Sub

Steve_, astutely amazing this is what I wanted, thank you for your help</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti </SPAN></SPAN>