AD ile SOYAD arasındaki boşluk ayarlama

[mrttrn]

AD ile SOYAD arasındaki boşlukları ayarlama

Merhaba arkadaşlar;

Örneğin;
TextBox1.Value = Trim(" MURAT TANER ONGUN ")
verilsin.

Trim ile baştaki ve sondaki boşluk karakteri yok ediyoruz.
İstediğim şey ise MURAT, TANER ve ONGUN arasındaki boşluk sayısını teke düşürmek.
"MURAT TANER ONGUN" olsun istiyorum.Amacım boşlukları teke düşürmek.
Bu işlemi yapabilecek bir fonksiyon veya kod var mı?
Tabiki diğer farklı isimlere de uygulanabilsin.
Yardımlarınız bekliyorum.

 

[pcerdal]

merhaba
boşluk ayarlamayı
TextBox1.Value = Trim(" MURAT "+" "+"TANER "+" "+" ONGUN ")
şeklinde yapabilirsin

 

[hamitcan]

Not:İsim, [f14] hücresinde olsun.

Sub nn()
a = Split([f14], "  ")
For i = 0 To UBound(a) - 1
 ad = ad & " " & a(i)
Next
MsgBox ad
End Sub

 

[pcerdal]

hamit bey daha profosyonel açıklamaış teşekkürler

 

[Necdet]

Merhaba,

Excel'in Trim fonksiyonu bu konuda daha başarılı.

TextBox1.Value = Application.WorksheetFunction.Trim("    MURAT     TANER ONGUN    ")

 

[mrttrn]

Arkadaşlar çözümleriniz için teşekkür ederim. Problemim çözülmüş oldu.
Özellikle Necdet uzmanın çözümü tek bir komut. En pratiği o oldu.