textboxta giriþte otomatik büyük harf

[bistrobellman]

arkadaþlar textbox1 e giriþin her ne olursa olsun büyük harf giriþini nasýl otomatik saðlayabiliriz?

[xxrt]

TextBox2 Çift týklýyarak açýlan sayfaya
TextBox2 = StrConv(TextBox2, vbUpperCase) Yazýnýz.
Ayrýca ek olarak:Sayfa1'in Kod sayfasunada i ve ý Harflerini Ý ve I yapmak içinde Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$" & Target.Row Then
kelime = Replace(Target.Value, "i", "Ý")
kelime = Replace(kelime, "ý", "I")
Target.Value = StrConv(kelime, vbUpperCase)
End If
End Sub

[bistrobellman]

TextBox1 in Change olayýna yapmamýz lazým çift týklayarak deðil? içinde veri girerken otomatik büyük harf yapsýn

[xxrt]

Evet Aynen Þöye olacak.Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub
BU kodu yazdýktan sonra zaten kullanýcý küçük harf girse dahi büyük olacaktýr.
Yada;Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
[A1]=TextBox1.value
End Sub

Yazdýðýnýzda da ayný iþlemi yapacak ve A1 Hücresine Büyük olarak anýnda kaydedecektir.

[Haluk]

xxrt' nin önerisinde Türkçe harflerde problem çýkmamasý için aþaðýdakini deneyebilirsiniz.

Private Sub TextBox1_Change()
On Error Resume Next
[aa1] = "=büyükharf(""" & TextBox1 & """)"
[aa1] = "=upper(""" & TextBox1 & """)"
TextBox1 = [aa1]
End Sub


Veya;

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