textboxta türkçe karakter sorunu

[hayri tekin]

merhaba arkadaşlar,herkese tekrar iyi bayramlar dilerim.
Ekli tablomda textbox1'e gelen metinlerde "ı" harfleri "i" olarak geliyor.Bunu nasıl düzeltebilirim acaba ?

 

[Emir Hüseyin Çoban]

Merhaba.

Textboxın yazı karakterini Tahoma olarak değiştirerek deneyiniz.
Office 2003 ve 2007 de istediğiniz sonucu verecektir. Ancak office 2010 da olmayabilir.

 

[Orion1]

kodu aşağıdaki kodla değiştiriniz.

Dim k As Range
TextBox1.Value = ""
[A2] = ComboBox1.Value
Set k = Sheets("DATA").Range("C2:C" & Sheets("DATA").Cells(65536, "C"). _
End(xlUp).Row).Find(Range("A2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox1.Value = [B][COLOR="Red"]UCase(Replace(Replace(k.Offset(0, 1).Value, "ı", "I"), "i", "İ"))[/COLOR][/B]

 

[hayri tekin]

Üstadım ilginiz ve emeğiniz için çok teşekkürler.Yalnız texboxtaki yazılar büyük harf görünüyor;bunu nasıl düzeltiriz ?

 

[hayri tekin]

"LCase" yapınca eski sorun karşımıza çıkıyor...

 

[Orion1]

"LCase" yapınca eski sorun karşımıza çıkıyor...

[B][COLOR="Red"]lcase[/COLOR][/B](Replace(Replace(k.Offset(0, 1).Value, [B][COLOR="Red"]"I", "ı"), "İ", "i"[/COLOR][/B]))

 

[hayri tekin]

Maalesef üstadım, sorun çözülmedi.Dediğim gibi "ı" 'lar "i" olarak görünüyor.

 

[Necdet]

Merhaba,

2007 de denedim fontu değiştirmek sorunu çözmedi, ancak, textboxtaki görünüm i ama tıklayınca ı olarak görünüyor.

Textboxtaki değeri bir hücreye aktardığımda normal değer olarak aktarıyor. Sanırım görüntüde bir sorun var.

 

[hayri tekin]

Merhaba,

2007 de denedim fontu değiştirmek sorunu çözmedi, ancak, textboxtaki görünüm i ama tıklayınca ı olarak görünüyor.

Textboxtaki değeri bir hücreye aktardığımda normal değer olarak aktarıyor. Sanırım görüntüde bir sorun var.

Üstadım haklı olabilirsiniz.Bende bazen oluyor bazen olmuyor.Bu durumu anlamaya çalışıyorum.Ama bir türlü nedenini çözemedim.Ben 2003 kullanıyorum.

 

[hayri tekin]

Birde şu geliyor aklıma.Acaba textboxta kaydırma çubuğu haricinde müdahele edilemese,yani sadece okunur olsa nasıl olur ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod geçici bir çözüm sağlıyor.

Private Sub ComboBox1_Change()
    Dim k As Range
    TextBox1.Value = ""
    [A2] = ComboBox1.Value
    Set k = Sheets("DATA").Range("C2:C" & Sheets("DATA").Cells(65536, "C"). _
    End(xlUp).Row).Find(Range("A2").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        TextBox1.Value = k.Offset(0, 1).Value
        TextBox1.Activate
    End If
End Sub

 

[hayri tekin]

Merhaba Korhan üstadım.
Sanırım başka çaresi yok gibi.
Emeği geçen herkese çok teşekkür ederim.
Saygılar