textboxa sadece büyük harf girme

[heft]

Merhaba,
Textbox1 e sadece büyük harf girilmesini istiyorum.
Büyük harfi yaptım sanırım,TextBox1.Value = UCase(TextBox1.Value)
ama sadece harf girme şartını sağlayamadım.Nasıl yapabilirim?

 

[muhceli]

SUB SADECE HARF_GİR()
Select Case KeyAscii
Case Asc("A") To Asc("Z")
Case Asc("a") To Asc("z")
Case Asc("Ç")
Case Asc("ç")
Case Asc("Ş")
Case Asc("ş")
Case Asc("Ð")
Case Asc("I")
Case Asc("ı")
Case Asc("İ")
Case Asc("i")
Case Asc("Ö")
Case Asc("Þ")
Case Asc("Ü")
Case Asc("ü")
Case Else
KeyAscii = 0: MsgBox "Lütfen; Harf Değerleri, Giriniz ...!", vbExclamation, "İşlem Hatası ...!"
End Select
END SUB
Ben, formdan aldığım bu makroyu kullanıyorum. Belki işini görür.

 

[Skorpiyon]

Sayın heft,

EK'i inceleyiniz. 2 seçenekli çözüm mevcuttur. İstediğinizi kullanırsınız.