Sayı tamamlama

[xlomba]

Arkadaşlar 11.0.0.1.23 gibi bir sayıyı 11.00.00.01.23 e çevirmek istiyorum. Noktalar arası 2haneli olanlar kalacak tek haneli olanlar (rakam ne olursa olsun) başına sıfır gelecek. Dosyayı hata verdiği için ekleyemedim. Uğraşacak arkadaşlara şimdiden teşekkür ederim.

elimde olan istediğim
11.2.5.0.0 11.02.05.00.00
23.8.8.1.23 23.08.08.01.23
1.2.3.4.5 01.02.03.04.05

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon ile çözüm hazırlanmıştır.

Hücrede kullanım şekli;

=BICIMLENDIR(Hücre)

Function BICIMLENDIR(Veri As Range) As String
    Dim Data As Variant, X As Integer
    
    Application.Volatile True
    
    Data = Split(Veri.Text, ".")
    
    For X = 0 To UBound(Data)
        If BICIMLENDIR = "" Then
            BICIMLENDIR = IIf(Len(Data(X)) <> 2, Format(Data(X), "00"), Data(X))
        Else
            BICIMLENDIR = BICIMLENDIR & "." & IIf(Len(Data(X)) <> 2, Format(Data(X), "00"), Data(X))
        End If
    Next
End Function

 

[xlomba]

Teşekkür ederim. Çok işime yarayacak.