Satır başındaki Boşluk karakterini silmek.

[sabeyn]

Merhaba,
Bir kolondaki yüzlerce isim başındaki boşluk karakterini nasıl sildirebiliriz.
bu isimler excele bir program üzerinden aktarıldığı için bundan sonra sürekli olarak karşımıza çıkacak ve isimleri tek tek ayıklamak çok zor olacak.

 

[Ali]

=KIRP(A1) fonksiyonunu deneyiniz.

 

[baydeniro]

Ben de İngilizcesini yazayım :

=TRIM(A1)

 

[Orion1]

Merhaba .
Makro ile A sütununda 1nci satırdan son satıra kadar olan verilerin başındaki boşluk karakterleri atılıyor.İsterseniz siz kendi dosyanıza göre uyarlayabilirsiniz.

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

 

[sabeyn]

Teşekkür ederim.

Merhaba .
Makro ile A sütununda 1nci satırdan son satıra kadar olan verilerin başındaki boşluk karakterleri atılıyor.İsterseniz siz kendi dosyanıza göre uyarlayabilirsiniz.

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

Hocam makro süper çalıştı. bütün boşlukları kaldırım tertemiz yaptı satırları.
Herkese çok teşekkür ederim.

 

[Necdet]

Sayın Sezar tarafından gönderilen kodları kısaltmak gerekirse :

Sub boslukat()
For i = 1 To [A65536].End(xlUp).Row
Cells(i, "A") = WorksheetFunction.Trim(Cells(i, "A"))
Next
MsgBox "Başlardaki boşluklar atıldı.", vbOKOnly
End Sub

İlk karakter de boşluk var sa ortalarda da hücre sonundada olabilir, o yüzden kontrolsüz trim yapmak gerek

 

[Seyit Tiken]

Bende Makrosuz bir çözüm öneriyorum. Yapılan basit bir denemeden sonra, sonuç olumlu çıktı. Yöntemi açıklıyorum. Bilinen bir yöntemdir... Önce boşluğu alınacak kolonu seçiyoruz. Veri > Metni Sütunlara Dönüştür > İleri > Boşluk > Son.

 

[xlsx]

boşlukları Replace ile kaldırmak

Hücre içinde yer alan kelimelerin başlarında boşluk bulunuyorsa tüm veri seçilip CTRL+H yani Replace penceresi açılıp ilk aranan bölümüne boşluk yapıp değiştirilecek bölümde de bir işlem yapmayıp Tümünü Değiştir'e basarak daha da kısa bir sürede sonuç verebilir.Alternatif çözüm..

 

[Necdet]

ve tümceler tek bir sözcük haline gelsin

 

[Seyit Tiken]

Necdet abimiz, yanılmıyorsam haklıdır. Veri > Metni Sütunlara Dönüştür, yöntemi bu sorunu telefi edecek özelliğe sahiptir. O da Şu : Veri > Metni Sütunlara Dönüştür > Sabit Genişlikli... > İleri > Veri Önizlemedeki oku sola kaydırırsak, sadece sol tarafta, metinlerin başında bulunan boşluk alınacaktır.

 

[dogkan75]

Birazda geliştirsek nasıl olur ?

Aynı makroyu Ad ve Soyadı bilgilerinin bulunduğu bir hücreyi düşünelim. hücrenin başındaki ve sonundaki boşlukları silerken iki kelime arasındaki olması gereken boşluğa dokunmayan bir makro nasıl yazılması gerekir ?

 

[mokajunyir]

Hocam makro süper çalıştı. bütün boşlukları kaldırım tertemiz yaptı satırları.
Herkese çok teşekkür ederim.

Benim tablom aşağıya doğru A sütununda 5378 satır var. Bu formül geçerlimi yada bu formülü tabloma göre özelliştirmelimiyim.

 

[assenucler]

Başlık altında önerilen tüm çözümleri denedim. Hiç bir sorunla karşılaşmadım.

Siz isterseniz, dosyanızın bir kopyasını işlem yapmadan önce alabilirsiniz.

 

[41AFU52]

Merhabalar, hücre içerisindeki gereksiz/fazla boşlukları silmek için aşağıdaki videodan yararlanabilirsiniz.