Isim soyisim yazımlarında,soyisimin son karakterinden sonra bulunan boşlukları silme

[hrryet]

Herkese Merhaba,
Benim ihtiyacım olan boşluk alacak bir makro.Forumun makro bölümünü son sayfasına kadar araştırdım fakat işimi görebilecek bir makro bulamadım. Bu yüzden yardımlarınızı beklemekteyim.

Yapmak istediğim şey şudur:

Alt alta isim-soyisim yazılı bir listem bulunmakta. Fakat soyisimin son karakterinden sonra bir veya birden fazla boşluk var. her isim için boşluk sayısı değişiyor. Örneğin;

Ayşe ince isminin sonunda "e" harfinden sonra bir yada birden fazla imleç hareketi kadar boşluk var. bu boşlukların silinmesini istiyorum..

Yardımcı olursanız çok memnun olurum. Şimdiden teşekkür ederim.
Herkese iyi çalışmalar.

 

[peleryn]

Merhabalar;

Aşağıdaki kodları bir module'e yerleştirerek dener misiniz?

Sub Kırp()
For i = 2 To 100
Cells(i, "A").Value = Trim(Cells(i, "A").Value)
Next i
MsgBox "Kırpma işlemi tamamlandı."
End Sub

NOT:Verdiğim kodları forumlarda arama yaparak buldum.

 

[Necdet]

Merhaba,

=KIRP(A1)
=TRIM(A1)

 

[hrryet]

Merhabalar;

Aşağıdaki kodları bir module'e yerleştirerek dener misiniz?



NOT:Verdiğim kodları forumlarda arama yaparak buldum.

Forumda arama yaparken ben kodları bulamamıştım. Belki de yeterli bilgim olmadığından gözden kaçırmış olabilirim.

Necdet Bey ve Peleryn, yardımlarınız için çok çok teşekkür ederim. Verdiğiniz kodlar işime yaradı.
Bilginize ve emeğinize sağlık. iyi çalışmalar.