trim

[namida]

Merhaba,
Bir kolon seçtikten sonra o kolondaki celleri trim edecek bir makro yazmaya çalışıyorum..
For Each cellValue In Selection.Cells ifadesiyle for döngüsü oluşturuyorum,
cell'in içindeki ifade trimlendikten sonra tekrar aynı cell'eyazmak istiyorum seçili kolonda arada boşluklarda var!!
yardımlarınız için teşekkürler...

 

[Recep İpek]

Sub BoşlukSil()
Dim x As Range
For Each x In Selection
x.Value = Trim(x)
Next
End Sub

olarak deneyin.

 

[veyselemre]

Sub Makro2()
    For Each huc In Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
        huc.Value = Trim(huc.Value)
    Next
End Sub

 

[namida]

Sub BoşlukSil()
Dim x As Range
For Each x In Selection
x.Value = Trim(x)
Next
End Sub

olarak deneyin.

sonsuz döngüye giriyor, nasıl engelliyebilirim?

 

[namida]

Sub Makro2()
    For Each huc In Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
        huc.Value = Trim(huc.Value)
    Next
End Sub

çok teşekkürler, bu sadece A kolonun yapıo aynı sayfada birden fazla kolonda yapcaksam bu işi nasıl yapmalıyım?

 

[Orion1]

Merhaba.
Aşağıdaki kodu denermisiniz.

Sub Bosluk_at()
Range("A1:A65536").Select
Selection.Replace What:=" ", Replacement:=""
Range("A1").Select
End Sub

 

[tahsinanarat]

Başka bir altarnatif
Sub boslukat()
Dim sonsat As Long, i As Long
'A sütununda ki verilerin birinci satırdan başlayarak başındaki boşluk karakterlerini atar.
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sonsat
If Left(Cells(i, "A").Value, 1) = " " Then
Cells(i, "A").Value = WorksheetFunction.Trim(Cells(i, "A").Value)
End If
Next
MsgBox "Başlardaki boşluklar atıldı.", vbOKOnly
End Sub

 

[namida]

Çok teşekkürler hepinize gerkeçten, çok yardımcı oldunuz!!
saygılar

 

[tahsinanarat]

satır başındaki ve satır sonundaki boşlukları siler
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

 

[veyselemre]

Sub Makro2()
    For Each huc In Selection.EntireColumn.SpecialCells(xlCellTypeConstants, 23)
        huc.Value = Trim(huc.Value)
    Next
End Sub

 

[namida]

SpecialCells(xlCellTypeConstants, 23)

tam olarak ne ifade ediyor??