başına sıfır ekleme

[igultekin2000]

iyi günler;
sıra no dökümü sayısal değer olarak gelen listeyi makro ile sayıyı 3 sayı olacak şekilde başına sıfır koymak istiyorum. Teşekkürler.

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub yeni_sırano()
Application.ScreenUpdating = False
On Error Resume Next
Range("b2:b65536").ClearContents
For i = 2 To Range("A65536").End(xlUp).Row
Cells(i, "b") = Right("000" & Cells(i, "a"), 3)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirip bir butona bağlayın.
İyi çalışmalar.

 

[igultekin2000]

Merhaba;
Sayfanın kod bölümüne;

Sub yeni_sırano()
Application.ScreenUpdating = False
On Error Resume Next
Range("b2:b65536").ClearContents
For i = 2 To Range("A65536").End(xlUp).Row
Cells(i, "b") = Right("000" & Cells(i, "a"), 3)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirip bir butona bağlayın.
İyi çalışmalar.

Teşekkür ederim, sorunsuz çalışıyor, iyi çalışmalar.