Boşluk Al

[Yesilyurtlu]

Üstadlarım;
C2 :C504 Sütununda ad ve soyad yazılı.
Bu ad ve soyadın sonunda kiminde 3 boşluk kiminde 1 boşluk kiminde de hiç yok
bu adların sonunda yer alan boşlukları vba ile bir kerede nasıl alabilirim?

Yardımcı olabilir misiniz?

 

[halit3]

Üstadlarım;
C2 :C504 Sütununda ad ve soyad yazılı.
Bu ad ve soyadın sonunda kiminde 3 boşluk kiminde 1 boşluk kiminde de hiç yok
bu adların sonunda yer alan boşlukları vba ile bir kerede nasıl alabilirim?

Yardımcı olabilir misiniz?

Bunu denermisiniz.

Sub bosluk_al()
For i = 2 To Cells(Rows.Count, "c").End(3).Row
Cells(i, "c").Value = WorksheetFunction.Trim(Cells(i, "c").Value)
Next i
End Sub

 

[Yesilyurtlu]

Halit Abi olmadı
Hala boşluk var isimlerin sonunda

 

[halit3]

ben denedim işlem yapıyor

 

[Yesilyurtlu]

Üstadım vermiş olduğunuz kodu Modüle Kopyaladım ve çalıştırdım
ama olmadı. Hala ismin sonunda boşluklar duruyor

 

[halit3]

Örnek dosyayı senmi ekliyeceksin; yoksa ben ekleyimmi

 

[Yesilyurtlu]

Adapsızlık saymazsanız eğer sizin eklemenizi rica etmem mümkün mü? ÜSTAD

 

[halit3]

Ekli dosya

 

[uzmanamele]

merhaba

sizin boşluk olarak gördüğünüz başka bişey olabilir.
örnek dosyanızda bunun ne olduğunu görebilirdik.

bu şekilde deneyiniz.

Sub bosluk_al()
For i = 2 To Cells(Rows.Count, "c").End(3).Row
Cells(i, "c").Value = WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, "c"), Chr(10), ""), Chr(160), "")
Next i
End Sub

 

[Yesilyurtlu]

Halit Abi sizin örnek dosyada çalışan kod bende çalışmadı. Sizin dosyada deniyorum çalışıyor. Ma benim dosyada çalışmadı.

Uzmanamele üstadımın kodu ise tüm boşlukları aldı.

Yardımlarınızı esirgemediğiniz için Her iki üstadımada sonsuz teşekkürler ederim.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu da kullanabilirsiniz. Kelimeler arasında bir boşluk bırakarak düzeltme işlemi yapar.

Option Explicit
 
Sub BOŞLUKLARI_TEMİZLE()
    Dim X As Integer, Aranan As String
    
    With Range("C2:C504")
        For X = 10 To 2 Step -1
            Aranan = WorksheetFunction.Rept(" ", X)
            .Replace What:=Aranan, Replacement:=" ", LookAt:=xlPart
            Aranan = WorksheetFunction.Rept(Chr(10), X)
            .Replace What:=Aranan, Replacement:=" ", LookAt:=xlPart
            Aranan = WorksheetFunction.Rept(Chr(160), X)
            .Replace What:=Aranan, Replacement:=" ", LookAt:=xlPart
        Next
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Yesilyurtlu]

Korhan Abi Vermiş olduğunuz Kod için Teşekkür Ederim
Sonradan Gördüğüm için geç teşekkür ettim Özür dilerim Abi