Hücre İçerisindeki Boşlukları İptal Etmek

[mustafa1205]

Ekte gönderdiğim örnekte de açıklama yapmaya çalıştım. Hücre içerisindeki verinin önünde ve sonunda boşluklar bulunmakta. Bunları iptal ederek sadece veriyi almak istiyorum. Teşekkür ederim.

 

[doukan84]

Ekte gönderdiğim örnekte de açıklama yapmaya çalıştım. Hücre içerisindeki verinin önünde ve sonunda boşluklar bulunmakta. Bunları iptal ederek sadece veriyi almak istiyorum. Teşekkür ederim.

=YERİNEKOY(A1;" ";"")

Dosya indiremiyorum ama bu formül ile çözebiliriniz

 

[Mahir64]

Merhaba,
İlgili alanı seçtikten sonra,CTRL +H tuşlarına basın.
Aranan değer kısmına bir boşluk verin ve tümünü deiştir ile işlemi bitirin.

 

[mustafa1205]

Sayın doukan84 çok teşekkür ederim. Bugün gündüz denedim bu formülü bazı hatalar oldu. Sayım Mahir Çümen in dediği yöntemi de denediğimde hata verdi. Şuan ki örnek dosyada bu işlemde sıkıntı olmuyor. Sağlıklı bir şekilde çalışıyor. İşyerimdeki dosyada problem oluyor. İş yerindeki dosya da bir bozulma olduğunu düşünüyorum. İlginize çok teşekkür ederim.

 

[numan şamil]

Ekte gönderdiğim örnekte de açıklama yapmaya çalıştım. Hücre içerisindeki verinin önünde ve sonunda boşluklar bulunmakta. Bunları iptal ederek sadece veriyi almak istiyorum. Teşekkür ederim.

Merhaba
Kodları dener misiniz

Sub BoşluklarıTemizle()
    Dim Hücre As Range
    Application.ScreenUpdating = False
    For Each Hücre In Range("A1:A" & [A65536].End(3).Row)
    Hücre.Value = Trim(Replace(Trim(Hücre.Value), Chr(160), ""))
    Next Hücre
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[lider22]

Kırp fonksiyonunu da kullanabilirsiniz. Yine biçimden dolayı olmuyorsa metni sütunlara dönüştür diyerek, sınırlandırılmıştan boşluk seçeneğini seçebilirsiniz.

 

[mustafa1205]

Merhaba
Kodları dener misiniz

Sub BoşluklarıTemizle()
    Dim Hücre As Range
    Application.ScreenUpdating = False
    For Each Hücre In Range("A1:A" & [A65536].End(3).Row)
    Hücre.Value = Trim(Replace(Trim(Hücre.Value), Chr(160), ""))
    Next Hücre
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sayın Numan Şamil çok teşekkür ederim. Kodlar çok güzel çalıştı. Üstte verilen formül ve diğer fonksiyonları işyerimdeki dosyamda denedim. İşe yaramadı. Normal sıfırdan yeni dosyada oluyor. Sanırım bendeki dosyada sıkıntı var. Ancak sizin kodları az önce denedim. Çok güzel sonuç aldım. Formülün yapamadığını sağlıklı bir şekilde yaptı. Çok teşekkür ederim.

 

[mustafa1205]

Kırp fonksiyonunu da kullanabilirsiniz. Yine biçimden dolayı olmuyorsa metni sütunlara dönüştür diyerek, sınırlandırılmıştan boşluk seçeneğini seçebilirsiniz.

Sayın lider22 dediğiniz gibi biçimden kaynaklanan bir problem olduğunu gördüm. Metni sütunlara dönüştür şeklinde de harika oldu. Çok teşekkür ederim.