İlk harfler büyük olsun

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodla İlk harfleri büyük yazdırabiliyorum. Şöyle bir sorunum var. Çoğu zaman textboxların içinde
aralarında boşluk olma kaydıyla iki veya üç kelime olabiliyor. Atıyorum Ali Veli İnşaat Turizm gibi. Derdim TextBox1 içinde 1 den fazla kelime varsa onların da ilk harflerinin büyük olması. Ali Veli İnşaat Turizm gibi. İlgilenen arkadaşlara şimdiden teşekkürler.

TextBox1 = UCase(Left(TextBox1, 1)) & LCase(Right(TextBox1, Len(TextBox1) - 1))

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = WorksheetFunction.Proper(TextBox1.Value)
End Sub

 

[excellcan]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = WorksheetFunction.Proper(TextBox1.Value)
End Sub

Hocam teşekkürler

 

[ycl15]

merhablar kodu nereye yazacagım

 

[dEdE]

Merhaba,
Forumumuza hoşgeldiniz.
Yeni üye olmasaydınız yanıt:Nerede kullanacaksanız oraya olacaktı.

Sorunuz açık değil, ne yapmak istediğiniz anlaşılmıyor.
Ne yapmak istediğinizi açıkça belirterek örnek dosya ekleyip sorarsanız mutlaka yanıt alırsınız.
Hoşçakalın.