Küçük Harfi Büyük Harfe Çevirmek

[yavuz829]

Merhaba Arkadaşlar
Eklediğim kodlarla TextBox1 de küçük harfleri büyük harflere çeviriyorum. büyük I harfini TextBox1 yazamıyorum. I harfini yazdığım zaman İ harfine çeviriyor.

Bu konuda yardımlarınıza ihtiyacım var.

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

 

[Korhan Ayhan]

Deneyiniz.

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

 

[yavuz829]

Hocam sizin eklediğiniz kodu ekledim. Gine I yazdığım zaman İ ye çeviriyor. Benim istediğim I yazıyorsam I olarak kabul etsin. İ yazıyorsam İ olarak kabul etsin. harf değişmesin.

 

[Korhan Ayhan]

Ben ofis 2010 sürümde deniyorum ve olumlu sonuç alıyorum. Sizde belki güncellemeler eksik olabilir.

Alternatif;

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

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık. Son eklediğiniz kod ile oldu.

 

[izcik]

Ben ofis 2010 sürümde deniyorum ve olumlu sonuç alıyorum. Sizde belki güncellemeler eksik olabilir.

Alternatif;

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

Uzmanım 2010 un kaç numaralı sürümünü kullanıyorsunuz. (Hani 11 haneli rakam olarak yazıyor ya..)

 

[Korhan Ayhan]

Bende ki sürüm bilgileri şu şekilde;

 

[izcik]

Bende ki sürüm bilgileri şu şekilde;

Ekli dosyayı görüntüle 217794

Uzmanım resmi açamadım ne yazık ki

 

[Korhan Ayhan]

İnceleyiniz.

1589275919271.png

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl