• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre içindeki boşlukları silme

Katılım
12 Ağustos 2006
Mesajlar
41
Excel Vers. ve Dili
2007 Tr
Arkadaşlar merhaba,

büyük bir sıkıntım var. Bir programdan kopyalayıp excel'e yapıştırdığım hücrede hem önde hem de arkada bir boşluk oluyor. Ben o veriyi alıp başka bir yere daha kopyalamak sorunda olduğum için o bolukların silinmesi gerekiyor. Tek tek elle silmek saatlerimi alıyor.
Ekteki dosyada da görebileceğiniz üzere E ve F sütünundaki sayıların hem önünde hem arkasında boşluklar var. Bunları nasıl silebilir en kısa yoldan?
Değiştir ile silinmiyor. Sağdan al soldan al ile de çok uğraştırıyor
 

Ekli dosyalar

Şöyle yapın:

Herhangi bir hücrenin içine girin ve o boşluklardan birini seçip kopyalayın
Hücreden çıkın
CTRL+H ile bul/değiştir menüsünü açın
Aranan kısmına kopyaladığınız boşluğu yapıştırın
Yeni değer kısmını boş bırakın/hiçbir şey yazmayın
Tümünü değiştir deyin.
 
Öncellikle çok teşekkür ederim.
Fakat şöyle bir sorunum oldu. E Sütununa uygaladığımda tam istediğim gibi oluyor fakat F Sütununda 0'ları ve aralarındaki noktaları siliyor. Biçimlendirerek denedim ama doğru olanı bulamadım. Ekte dediğinizi uygulayıp aldığım sonucu gönderiyorum. Bir daha bakabilirseniz çok sevinirim.
 

Ekli dosyalar

Merhaba,

Verileriniz sayısal biçime dönüştüğü için görüntüsü bozuluyor. İşlemi formülle yaparsanız sorun ortadan kalkar.

"F" sütunundan sonra iki boş sütun ekleyin.

G1 hücresine;
Kod:
=YERİNEKOY(E1;DAMGA(160);"")

H1 hücresine;
Kod:
=YERİNEKOY(F1;DAMGA(160);"")

Daha sonra oluşan değerleri E-F sütunlarına değer olarak yapıştırırsanız sorununuz çözülür.
 
Maalesef bu da çözüm değil. Hücre içindeki boşlukların silinmesi gerekiyor. Sildiğimde yine aynı sorunla karşılaşıyorum :(
 
Kusura bakmayın. Formülü foruma aktarırken boşluk yerine yıldız karakteri oluşmuş. Üstteki mesajımdaki formülü güncelledim. Tekrar deneyiniz.
 
şunu deneyin..

Sub daylight()
a = InputBox("Hangi sutun için çalıştırmak istiyorsunuz?")
For x = 1 To Cells(Rows.Count, a).End(3).Row
Cells(x, a) = Right(Cells(x, a), Len(Cells(x, a)) - 1)
Next x
End Sub
 
Merhabalar, hücre içerisindeki gereksiz boşlukların silinmesi ile ilgili aşağıdaki video işinizi görecektir.

 
Geri
Üst