Soru kodlamanın sonundaki değerin artarak gitmesi

[KMLZDMR]

Merhaba,
A1 hücre değeri 157.001.01 gibi bir kodlamam var.
C1 hücresinde 157.001.02
D1 hücresinde 157.001.03
E1 hücresinde 157.001.04
F1 hücresinde 157.001.05
H1 hücresinde 157.001.06
""
o1 hücresinde 157.001.15
P1 hücresinde 157.001.16
kodlamanın sonundaki noktadan sonraki 01,02,03 gibi değerlerin
157.001. sabit olarak kalıp sonundaki .01 sayısı A1 hücresindeki değeri c1 hücresine sağa doğru bazı sütunlarda boş olabilecek şekilde .02 ..., .05, .09, 12 biçimleri gelebilecek şekilde nasıl formüle edebilirim. Tabiki biçim de buna uygun olacak.

 

[alicimri]

Aşağıdaki kodu deneyin

Sub Makro12()
Kod = "157.001."
ilk = 1
son = 5
For i = ilk To son
If i <> 2 And i <> 4 Then ' Boş kalacak sütunlar
Cells(1, i).Value = Kod & Format(i, "00")
End If
Next
End Sub


 

[çıtır]

Formülle çözüm.C1 Hücresine kopyalayınız.Sağa çekerek çoğaltınız.

=SOLDAN(YERİNEKOY($A$1;".";"")+SÜTUN(A1);3)&"."&PARÇAAL(YERİNEKOY($A$1;".";"")+SÜTUN(A1);4;3)&"."&PARÇAAL(YERİNEKOY($A$1;".";"")+SÜTUN(A1);7;2)

 

[KMLZDMR]

Sayın Çıtır teşekkür ederim.

 

[çıtır]

Sayın Çıtır teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.