userform içindeki textbox'a sadece büyük harf girilebilsin.

[soneryen]

Arkadaşlar. Ben aşağıdaki kodu kullanarak userform'da kullandığım bir textbox içine sadece büyük harf girilmesini sağladım fakat kullanırken şöyle bir problem ile karşılaştım. Büyük harfde olsa türkçe karakter varsa hata veriyor. Bu kodu düzeltebilen varsa yardımcı olursa sevinirim. Veya textbox içine sadece büyük harf girilmesini sağlayabilecek başka bir kod var mı? Birde bana textboxa boşluk girilemeyi sağlayan kod lazım. İlginize şimdiden teşekkür ederim.

Kod:


Private Sub cunvan_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/showthread.php?t=24862&highlight=b%FCy%FCk+harf

 

[soneryen]

teşekkür ederim eline sağlık

 

[korkut31]

buyrun

ilgili textın change olayına aşagodaki kodu yapıştırın ..

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub


bu sayede text box a girdiginiz yazılar otomatikman büyük oolucaktır.
iyi çalışmalar

 

[soneryen]

ilgili textın change olayına aşagodaki kodu yapıştırın ..

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub


bu sayede text box a girdiginiz yazılar otomatikman büyük oolucaktır.
iyi çalışmalar

Bu kodu yazdığımda textboxa firma ismi yazarken "ı" harfi varsa eğer aynen küçük "ı" olarak kalıyor. En güzeli ve kullanışlısı aşağıdaki kod diye düşünüyorum. Hepinize teşekkür edreim.

cunvan = Evaluate("=büyükharf(""" & cunvan & """)")
cunvan = Evaluate("=upper(""" & cunvan & """)")