Soru Rakamların Başına Sıfır Getirmek

[husocan005]

[TR][TD]
Merhaba,

Aşağıdaki konu için yardımcı olur musunuz.

Raporda Olan
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
5.1.2.0.0
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
5.1.2.0.24
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
5.1.2.0.46
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
5.1.2.4.0

Olmasını İstediğim

05.01.02.00.00

05.01.02.00.24

05.01.02.00.46

05.01.02.04.00

[/TD]
[TD]

[/TD][/TR]

 

[husocan005]

Kısacası eğer noktalar arasında iki sayı var ise onlara herhangi bir işlem yapılmayacak. Ama tek sayıvar ise başına sıfır gelmesini istiyorum

 

[ÖmerFaruk]

Formülle çok zorladım, çok uzun formül oluyordu, sevmedim.

Aşağıdaki kodları module ekleyip çalıştırabilirsin.
İlk verilerinizin A1 den başlayarak A sütununda olduğunu varsaydım.
Sonuç listesini B1 den itibaren listeledim.,

Sub Sıfırlar()
Dim Veri As Variant
Dim Metin As Variant
Son = Range("A" & Rows.Count).End(3).Row
Veri = Range("A1:A" & Son).Value
ReDim Liste(1 To UBound(Veri), 1 To 1)
    For i = LBound(Veri, 1) To UBound(Veri, 1)
        Metin = Split(Veri(i, 1), ".")
        ReDim Preserve Metin(0 To UBound(Metin))
        Say = Say + 1
        For k = 0 To 4
        Liste(Say, 1) = Liste(Say, 1) & Format(Metin(k), "00") & "."
        Next k
        Liste(Say, 1) = Left(Liste(Say, 1), Len(Liste(Say, 1)) - 1)
    Next i
 Range("B1").Resize(Say) = Liste
End Sub

 

[husocan005]

Ömer hocam eliğine sağlık on numara olmuş ve çalışıyor.

 

[veyselemre]

Ömer hocam eliğine sağlık on numara olmuş ve çalışıyor.

eline, bileğinenin kısaltması galiba.

Sub test()
    Dim cell, bl, i%
    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
        bl = Split(cell, ".")
        For i = 0 To UBound(bl)
            bl(i) = Format(bl(i), "00")
        Next i
        cell.Offset(, 2).Value = Join(bl, ".")
    Next
End Sub

 

[husocan005]

Veysel hocam öyle olsun o zaman