trim

Katılım
23 Temmuz 2007
Mesajlar
21
Excel Vers. ve Dili
excel 2002
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...
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Kod:
Sub BoşlukSil()
Dim x As Range
For Each x In Selection
x.Value = Trim(x)
Next
End Sub
olarak deneyin.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,652
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub Makro2()
    For Each huc In Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
        huc.Value = Trim(huc.Value)
    Next
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodu denermisiniz.:cool:
Kod:
Sub Bosluk_at()
Range("A1:A65536").Select
Selection.Replace What:=" ", Replacement:=""
Range("A1").Select
End Sub
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
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
 
Katılım
23 Temmuz 2007
Mesajlar
21
Excel Vers. ve Dili
excel 2002
Çok teşekkürler hepinize gerkeçten, çok yardımcı oldunuz!!
saygılar
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,652
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub Makro2()
    For Each huc In Selection.EntireColumn.SpecialCells(xlCellTypeConstants, 23)
        huc.Value = Trim(huc.Value)
    Next
End Sub
 
Katılım
23 Temmuz 2007
Mesajlar
21
Excel Vers. ve Dili
excel 2002
SpecialCells(xlCellTypeConstants, 23)

tam olarak ne ifade ediyor??
 
Üst