• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
1 Aralık 2008
Mesajlar
244
Excel Vers. ve Dili
Microsoft Excel 2016 TR 32 Bit
[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]
 
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
 
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.,

C++:
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
 
Ömer hocam eliğine sağlık on numara olmuş ve çalışıyor.
 
Ömer hocam eliğine sağlık on numara olmuş ve çalışıyor.
eline, bileğinenin kısaltması galiba.

Kod:
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
 
Veysel hocam öyle olsun o zaman :)
 
Geri
Üst