Metin Sonundaki Boşluk (Space) Karekterleri Sil

[bilselli]

Baştaki ve sondaki boşlukları siler, ortadaki birden fazla boşlukları ise tek boşluğu düşürür
Sub kırp()
sat = [A65536].End(3).Row
For i = 1 To sat
Range("a" & i).Value = WorksheetFunction.Trim(Range("a" & i).Value)
Next
MsgBox "boşluklar kırpıldı"
End Sub

bu yukarıdakini makro olarak gönderebilir misiniz.(xla olarak)

 

[Korhan Ayhan]

Selamlar,

Sn. bilselli,

Bahsettiğiniz mesaj içeriği zaten makro kodudur. Sanırım siz tüm excel dosyalarınızda kullanmak istiyorsunuz.

Bunun için koda gerek yok. Bu başlığın 2. ve 3. mesajlarındaki fonksiyonu kullanabilirsiniz.

 

[bilselli]

Selamlar,

Sn. bilselli,

Bahsettiğiniz mesaj içeriği zaten makro kodudur. Sanırım siz tüm excel dosyalarınızda kullanmak istiyorsunuz.

Bunun için koda gerek yok. Bu başlığın 2. ve 3. mesajlarındaki fonksiyonu kullanabilirsiniz.

İngilizce olduğundan 3. mesajı deniyorum olmuyor neden olabilir.
İsterseniz datayı atabilirim.

 

[Korhan Ayhan]

Selamlar,

İngilizce versiyon için TRIM fonksiyonunun işinize yaraması gerekir. Eğer sonuç alamıyorsanız küçük bir örnek dosya ekleyin.