• DİKKAT

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

Metin Sonundaki Boşluk (Space) Karekterleri Sil

G

galkan

Katılım
22 Nisan 2005
Mesajlar
121
Excel Vers. ve Dili
xp
Günaydın Arkadaşlar,

Dos tabanlı muhasebe programından excele transfer yapıyorum.
Excele transfer yaptığımda hesap adlarının
sonuna boşluk(space) karekterleri ilave ediyor.
Ben bu boşlukları bir makro yardımı ile (seçili hücrelerdeki)
sildirmek istiyorum.

Ã?rnek :
"Renault Mais A.Þ."
Excele
"Renault Mais A.Þ.bbbbbbbbbb" şeklinde transfer ediyor.

buradaki "b" yi boşluk " " anlamında kullandım.

"Renault" ile "Mais" ve "Mais" ile "A.Þ." arasındaki boşlukları silmeden
A.Þ. den sonraki fazla boşlukları silsin istiyorum.

Makro olmasada

A kolonunda bulunan bu hesap isimlerini
B kolonuna fonksiyonlar yardımı ile yazdırabilirmiyiz.
Buda işimi görür.

Yardımcı olabilirmisiniz.
Tesekkurler
 
Sanırım KIRP fonksiyonu yeterli olur istediğinize

=KIRP(A1)
 
ingilizce fonksiyonu da ben yazayım
=TRIM(A1)
 
Tüm Sütunda ve uzun veri olduğunu düşünerek,
Metni Sütunlara Dönüştürden Diğer seçeneğiile bunu yapabilirsiniz.Kutucuğun içinde bir boşluk uygulayın.
 
Bu ne hız arkadaslar
cok tesekkur ediyorum.
problemim çözüldü.
makro olarakta çözümü
varsa öğrenmek isterim.
 
Sayın SGM020

Office XP Pro. Eng. kullanıyorum.
Dosyayı açamadım.

With Application.CommandBars("Worksheet Menu Bar").Controls("Araçlar").Controls.Add

satırında hata veriyor.
 
Hayır teknik hata yok. O dosya bir eklenti dosyası, Araçlar/Metin Dönüştürcü açıldığında karşınıza bir user form gelir. Bu formda boşluk al seçeneği var.
 
Kodu

With Application.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls.Add yaparsanız çalışır.
 
Tesekkur ederim çalıştı
Tools kullanırsak sanırım Türkçede de çalışır.
 
Hayır teknik hata yok. O dosya bir eklenti dosyası, Araçlar/Metin Dönüştürcü açıldığında karşınıza bir user form gelir. Bu formda boşluk al seçeneği var.
Genişletmek için tıkla ...
Pardon,Sayın SGM020, kendi eklentimi sizin dosya
zannetmişim. :oops:
 
Selamlar,

Sn. meyill,

Önceki yıllarda foruma yapılan saldırıda sanıyorum linkler uçmuş. Çünkü aradığınız dosya 2005 yılında açılan bir başlığa ait. Bu dosyayı arşivine alan bir arkadaşımız varsa foruma tekrar ekleyebilir.
 
İlginiz için teşekkür ederim

Banada böyle bir kod lazım acaba bulabilirmiyiz yada yeniden yazılabilir mi?
 
Selamlar,

Aşağıdaki linkte daha önce hazırladığım bir eklenti bulunmaktadır. Bu eklentide kelimedeki fazla boşlukları alan bir seçenek bulunmaktadır. İnceleyin. Eğer işinize yaramazsa yeni bir başlık açıp örnek dosya ekleyin. Dosyanız üzerinde çözüm arayalım.

Büyük-küçük harf uygulaması
 
Baştaki ve sondaki boşlukları siler, ortadaki birden fazla boşlukları ise tek boşluğu düşürür
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 "boşluklar kırpıldı"
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst