Sayfada bulunan metin girdilerinin son harfinden sonra bırakılan bir boşluk ile alakalı..

[stirra_ej]

Arkadaşlar Ankara İstanbul diye girdiğim bir bilginin sonuna hata ile bir veya bir kaç boşluk bıraktığımda vba ile en son biten harfin sonunda kalan boşlukları nasıl silebilirim.. Önemli olan benim için ilk sorum ama şunuda sorayım ankara istanbul arasına fazladan bir boşluk bırakırsak veya cümlenin giriş kısmına yazarken yanlışlıkla ilk önce boşluk bırakırsak nasıl vba ile düzeltebiliriz.
Bunu şunun için soruyorum arkadaşlar, girdilerin çok olduğu ve koşullu bir çok formülü olan bir cetvel hazırladım sizinde sayenizde ama bırakılan fazla boşluklar koşulları etkiliyor.. Yardımcı olabilirmisiniz... Bir öneriniz var mı

 

[Muzaffer Ali]

Merhaba.
Koda gerek yok Kırp formülünü kullanabilirsiniz.
=Kırp(A1)
A1 hücresinde bulunan metindeki fazla boşlukları siler.

Mutlaka kod ile olsun isterseniz VBA da Trim fonksiyonunu kullanabilirsiniz.

 

[Haluk]

İlave bilgi:

Excel'in normal sayfa fonksiyonu(TRIM - KIRP) kelimelerin başındaki, sonundaki ve arasındaki tüm fazla boşlukları siler, ama VBA'nin "Trim" fonksiyonu kelimelerin arasındaki fazla boşlukları silmez.

Bu nedenle, işi eğer VBA ile yapacaksanız;

    Range("B2") = Trim(Range("A1"))

yerine, Excel'in sayfa fonksiyonunu kullanmanız gerekir.

    Range("B3") = WorksheetFunction.Trim(Range("A1"))

.

 

[stirra_ej]

İlave bilgi:

Excel'in normal sayfa fonksiyonu(TRIM - KIRP) kelimelerin başındaki, sonundaki ve arasındaki tüm fazla boşlukları siler, ama VBA'nin "Trim" fonksiyonu kelimelerin arasındaki fazla boşlukları silmez.

Bu nedenle, işi eğer VBA ile yapacaksanız;

    Range("B2") = Trim(Range("A1"))

yerine, Excel'in sayfa fonksiyonunu kullanmanız gerekir.

    Range("B3") = WorksheetFunction.Trim(Range("A1"))

.

Harikasınız hocam , konu ile ilgili olarak A3 ile R 500 arasını otomatik taraması için Range("B3") = WorksheetFunction.Trim(Range("A1")) nasıl yazarız

 

[stirra_ej]

Range("B3") = WorksheetFunction.Trim(Range("A1"))

bu formülü b3:b500 arasındaki verileri düzeltmesi için düzenlememe yardımcı olabilirmisiniz

 

[Erdem Akdemir]

Deneyiniz.

Sub deneme()

For Each deg In Range("B3:B500")

Range(deg.Address) = Application.Trim(deg)

Next deg

End Sub

 

[stirra_ej]

Teşekkür ederim. Ellerine sağlık