Boşluk silme

Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
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
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Veriler A1:A5000 arasinda
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Örnek dosyanızdaki verilerde boşluk görünmüyor.
 

FatihOtlak

Altın Üye
Katılım
19 Ocak 2015
Mesajlar
28
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 - Türkçe
+KIRP(A1) İşine Yararsa önündeki Arkasındaki Boşlukları Kaldırır
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Ö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);"")
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Ö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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu deneyiniz:

PHP:
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
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Aşağıdaki makroyu deneyiniz:

PHP:
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
 
Üst