Seçilen hücre aralığındaki boşlukları kırp

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın sayfasında değişik sütunlarda isimler mevcut,
butona bastığımda seçmiş olduğum hücre aralığındaki isimlerin
başlarında, sonlarında ve aralarındaki fazla boşlukları kırpmak istiyorum.

Yardımcı olur musunuz?
.

 

[Ömer BARAN]

Merhaba.

[B]Sub KIRP()[/B]
For Each brn In Selection: brn.Value = WorksheetFunction.Trim(brn.Value): Next
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey, süper olmuş ellerinize sağlık, tam istediğim gibi çalışıyor.

Örneğin B15:B50 arası hücreler için kodu nasıl düzenlemek gerekir.

Yardımcı olur musunuz?

 

[Ömer BARAN]

Selection yerine Range("B15:B50") veya [B15:B50] yazın.
.

 

[ASLAN7410]

Sayın Ömer Bey çok teşekkür ediyorum, tam istediğim gibi çalıştı.

Hayırlı geceler diliyorum.