Soru kodlamanın sonundaki değerin artarak gitmesi

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
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.
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
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
 
Son düzenleme:
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Formülle çözüm.C1 Hücresine kopyalayınız.Sağa çekerek çoğaltınız.
Kod:
=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)
 
Üst