- Katılım
- 12 Şubat 2009
- Mesajlar
- 451
- Excel Vers. ve Dili
- 2010 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub boslukal()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To [b65536].End(3).Row
Cells(i, "b") = Trim(Cells(i, "b"))
Next i
Application.ScreenUpdating = True
End Sub
Buda makrosuz çözüm alternatif olsun..
Dosya ekte kolay gelsin. İnş. yararı dokunur.
Not: B sütunu gizlenmiştir İsim ekleyeceğiniz yada değiştireceğiniz zaman B sütunu üzerinden değiştiriniz.
=EĞER(PARÇAAL(B2;1;1)<>" ";B2;EĞER(PARÇAAL(B2;2;1)<>" ";PARÇAAL(B2;2;UZUNLUK(B2));EĞER(PARÇAAL(B2;3;1)<>" ";PARÇAAL(B2;3;UZUNLUK(B2)-2);PARÇAAL(B2;4;UZUNLUK(B2)-3))))
=KIRP(B2)
Öğrenmenin yaşı yoktur teşekkür ederim.Sayın citiboyy,
C2 hücresine yazdığınız formül:
Kod:=EĞER(PARÇAAL(B2;1;1)<>" ";B2;EĞER(PARÇAAL(B2;2;1)<>" ";PARÇAAL(B2;2;UZUNLUK(B2));EĞER(PARÇAAL(B2;3;1)<>" ";PARÇAAL(B2;3;UZUNLUK(B2)-2);PARÇAAL(B2;4;UZUNLUK(B2)-3))))
Bunu kısaltmak olası :
Kod:=KIRP(B2)
Bu tip boşlukları silmek için alternatif bir yol daha var.
boşlukların olduğu kolonu seçin. Metni Sütunlara Dönüştür' e tıklayın. Sabit genişlikli'yi seçin. İleri tekrar ileri ve Son a basın. Bütün boşluklar hallolacaktır.
Nasıl yani?
Necdet Hocam,
Boşlukların bulunduğu kolonu seçelim.
Veri/Metni Sütunlara dönüştür den Sabit Genişlikli bölümünü tikleyelim. Sonrada Son' a basalım. Yazı içersinde bulunan ve istenmeyen boşluklar yok olacaktır.
Necdet Hocam,
Boşlukların bulunduğu kolonu seçelim.
Veri/Metni Sütunlara dönüştür den Sabit Genişlikli bölümünü tikleyelim. Sonrada Son' a basalım. Yazı içersinde bulunan ve istenmeyen boşluklar yok olacaktır.