Boşluk silme

[metin_0606]

4000 satırlık TC kimlik numarasını içeren bir tablom var. Bu TC kimlik numaralarının başındaki ve sonundaki boşlukları makro ile nasil silebilirim

 

[metin_0606]

Veriler A1:A5000 arasinda

 

[metin_0606]

Private Sub CommandButton1_Click()
Columns("A").Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart
MsgBox "boşluklar silindi...", vbInformation
End Sub

Kodu denedim ama maalesef olmadı örnek dosya ekledim

 

[YUSUF44]

Örnek dosyanızdaki verilerde boşluk görünmüyor.

 

[FatihOtlak]

+KIRP(A1) İşine Yararsa önündeki Arkasındaki Boşlukları Kaldırır

 

[YUSUF44]

Önceki mesajımda doşluk yok diye belirtmiştim ama yaptığım inceleme sonucunda verilerin sonunda ASCII kodu 13 olan bir karakter olduğunu gördüm. Aşağıdaki formülle o karakteri silebilirsiniz:

=YERİNEKOY(A2;DAMGA(13);"")

 

[metin_0606]

Örnek dosyanızdaki verilerde boşluk görünmüyor.

Yusuf hocam fonksiyon sekmesine fare ile tusladigimizda boşluk görünüyor

 

[metin_0606]

Önceki mesajımda doşluk yok diye belirtmiştim ama yaptığım inceleme sonucunda verilerin sonunda ASCII kodu 13 olan bir karakter olduğunu gördüm. Aşağıdaki formülle o karakteri silebilirsiniz:

=YERİNEKOY(A2;DAMGA(13);"")

Bunu makro ile silmek mümkün mü acaba

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub asciikod()
For i = 2 To Cells(Rows.Count, "A").End(3).Row
    If Cells(i, "A") <> "" Then
        Cells(i, "A") = Replace(Cells(i, "A"), Chr(13), "")
    End If
Next
End Sub

 

[metin_0606]

Aşağıdaki makroyu deneyiniz:

Sub asciikod()
For i = 2 To Cells(Rows.Count, "A").End(3).Row
    If Cells(i, "A") <> "" Then
        Cells(i, "A") = Replace(Cells(i, "A"), Chr(13), "")
    End If
Next
End Sub

Teşekkürler Yusuf hocam