Koşullu rakam ekleme

[fiko7474]

Değerli arkadaşlar

E Sutunundaki Ali olanların D sutunundaki rakam karakter sayısı 10 olması gerekiyor. Eksik olanların önüne 0 eklenerek I sutunundaki gibi 10 karakter olmasını istiyorum. Tablomda bu şekilde 50000 verim var. Bunu nasıl bir formül veya makro ile düzenleyebilirim yardımlarınız için şimdiden teşekkür ederim




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

 

[muygun]

Merhaba;
I sütununu metin olarak düzenleyin ve sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Sayfa1").Range("ı8:j65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
For i = 8 To s1.Range("d65536").End(xlUp).Row
If s1.Cells(i, "e") <> "ALİ" Then
s1.Cells(i, "ı") = s1.Cells(i, "d")
s1.Cells(i, "j") = s1.Cells(i, "e")
End If
If s1.Cells(i, "e") = "ALİ" Then
say = "0000000000" & s1.Cells(i, "d")
sayı = Right(say, 10)
s1.Cells(i, "ı") = sayı
s1.Cells(i, "j") = s1.Cells(i, "e")
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.

İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/vxrxx0/fiko7474-ornek.zip.html