Büyük harf denetimi hk.

[meric68]

Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
TextBox2.Text = bharf(Mid(TextBox2.Text, 1, 1)) & Mid(TextBox2.Text, 2, Len(TextBox2.Text))
End If
SelStart = Len(TextBox2.Text)
End Sub

bu kısma ne yapmalıyımda o hücre hep BÜYÜK harfle yazsın ve kaydetsin.

 

[Mustafa MUTLU]

Private Sub TextBox2_Change()
On Error Resume Next
TextBox2 = Evaluate("=büyükharf(""" & TextBox2 & """)")
TextBox2 = Evaluate("=upper(""" & TextBox2 & """)")
End Sub

Bunu Dene..

 

[meric68]

teşşekkür ederim ellerine salık
ama türkçe karekter olmuyor

 

[Mustafa MUTLU]

teşşekkür ederim ellerine salık
ama türkçe karekter olmuyor

Nasıl olmuyor anlamadım.
ü = Ü
u = U
ı = I
i = İ
ö = Ö
o = O
Şeklinde yazar.

Büyük Harfde noktaları koyar.
Sorun nerede sen türkce karakterde yazmasın mı istiyorsun...

 

[Orion1]

Aşağıdaki kod işinizi görecektir.

TextBox2.Text = UCase(Replace(Replace(TextBox2.Text, "ı", "I"), "i", "İ"))

 

[meric68]

çok teşşekkürler ellerinize sağlık