textbox1e herzaman büyük harf ile yazılsın

[osmanfenerli1907]

selamlar
textbox1 herzaman büyük harf girilebilir mi.yani caps lock açıkta kapalı da olsa her zaman büyük harf girilsin
teşekkürler

 

[Ali]

http://www.excel.web.tr/showthread.php?t=1358

 

[Levent Menteşoğlu]

Türkçe karakterlerde sorun yaşamamak için (özellikle "ı" ve "i" harflerinde) aşağıdaki gibi deneyin.

Private Sub TextBox1_Change()
TextBox1 = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
End Sub

 

[osmanfenerli1907]

TeŞekkÜrler

 

[Ali]

Türkçe karakterlerde sorun yaşamamak için (özellikle "ı" ve "i" harflerinde) aşağıdaki gibi deneyin.

Verdiğim linkte bu kısım atlanmış sanırım.

Levent Bey'in verdiği kodlar daha kullanışlı

uzun yöntem ise aşağıdaki gibidir.

Private Sub TextBox1_Change()
Deger = Replace(TextBox1, "i", "İ")
Deger = Replace(Deger, "ı", "I")
TextBox1 = StrConv(Deger, vbUpperCase)
End Sub

 

[Haluk]

Alternatif:

Private Sub TextBox1_Change()
    x = Right(TextBox1, 1)
    TextBox1 = Replace(TextBox1, x, WorksheetFunction.Proper(x))
End Sub

 

[Recep İpek]

Diğer bir alternatif;

Private Sub TextBox1_Change()
TextBox1.Value = UCase(Replace(Replace((TextBox1.Value), "ı", "I"), "i", "İ"))
End Sub

 

[isfa67]

merhebalar bende bunu yapmak istiyorum kullandığım belgede ama kod yazmayı bilmiyorum nasıl yapabilirim?birde mesela i.erdem yazdım diyelim nokta ve öncesi yazılmasın vatandaş yazsa bile silinsin sadece erdem kısmı kalsın