Rakamların önüne 0 ekleme

[fiko7474]

arkadaşlar rakamların önüne 0 eklemek istiyorum. Yardımcı olabilirmisiniz. örnek ektedir. ilginize teşekkürler.

http://s3.dosya.tc/server10/uezlho/ornek.xlsx.html

 

[sorucu]

yazdığınız hücrede ' (shift+2) ile başlayın

örnek 0007 yazmak icin '0007 yazmalisiniz

 

[çıtır]

=sağdan(eğer(uzunluk(d8)<10;"0000000000"&d8;d8);10)

 

[fiko7474]

teşekkür ederim sorunum birini çözdü. ancak şöyle bir sorunum daha var E sutununda isimler var. E sutunundaki Ali yazanların d sutunundaki rakamların 10 karakter olmasını istiyorum yani koşul var, bunun için makro örneği varmı, çünkü tablom 50000 satır

http://s3.dosya.tc/server10/ycx18i/ornek.xlsx.html

 

[bzace]

Merhabalar,
Dosyanızı incelemedim açıklamalarınıza göre alternatif olsun.

Sub Ekle()
Dim i As Integer
For i = 1 To Cells(Rows.Count, "E").End(xlUp).Row
 If Cells(i, "E") = "Ali" Then
  If Len(Cells(i, "D")) < 10 Then
   Cells(i, "D") = Application.WorksheetFunction.Rept("0", 10 - Len(Cells(i, "D"))) & Cells(i, "D")
  End If
 End If
Next i
End Sub

D sütunu hücre biçim ayarını METİN yapınız.

Saygılar,
Şeşen

 

[aerten]

Bir de bu seçenek var.

=EĞER(UZUNLUK(D8)<=10;YİNELE("0";10-UZUNLUK(D8))&D8;D8)