değeri 4 digit göstermedeki hata?

[Kemal Demir]

Arkadaslar Merhaba,

Biryerde yanlıs yapıyorum ama farkına varamadım.

Örnek: a1=12 , b1=0012 gibi

Sub DOrtDigit()
for x=1 to 100
Cells(x,2).value=Right("0000"&Cells(x,1),4)
Next
End Sub


Kod Çalışmıyor nasıl duzeltebiliriz.

Teşekkur Ederim.

 

[Levent Menteşoğlu]

B sütununu metin olarak biçimlendirin ve aşağıdaki kodu çalıştırın.

Sub DOrtDigit()
For x = 1 To 100
Cells(x, 2) = Format(Cells(x, 1), "0000")
Next
End Sub

 

[Ali]

Sub DOrtDigit()
For x = 1 To 100
Cells(x, 2).NumberFormat = "0000"
Cells(x, 2).Value = Right("0000" & Cells(x, 1), 4)
Next
End Sub

şeklinde deneyin

 

[Kemal Demir]

Sn.Leventm,ve Fructose teşekkur Ederim.