Satır Sonundaki Boşluklar

[tahsinanarat]

Bir sutunda, satırların sonlarında bulunan boşluk karakterlerini silecek bir makroya ihtiyacım var, yardımcı olacak olan arkadaşlara şimdiden teşekkür ederim. Not boşluk birden fazla olabilir.

 

[conari]

Bir sutunda, satırların sonlarında bulunan boşluk karakterlerini silecek bir makroya ihtiyacım var, yardımcı olacak olan arkadaşlara şimdiden teşekkür ederim. Not boşluk birden fazla olabilir.

Modül olarak ekleyip çalıştırınız A sütünu içindir.

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 "kırpıldı"
End Sub

 

[tahsinanarat]

çok teşekkürler

Conari arkadaşım ilgin ve cevabın için çok ama çok teşekkür ederim. İyi çalışmalar diliyorum. Sağolasın.
Aşağıdaki kod ise seçili hücrelerin satır başındaki boşlukları siliyor
Sub BoslukSil()
For Each c In Selection.Cells
c.Value = Application.Trim(c.Value)
Next c
End Sub