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

 

[omarsener]

Teşekkür ederim