Alfabetik karakterlerde yaşadığım bir sorun hk.

[tamer42]

Merhabalar;

Uzun zamandır Yaşadığım fakat bir türlü çözemediğim bir problemi sizlerlede paylaşmak istedim.

Aşağıda yazılı olan kod;
Userform içerisindeki Textbox' a yazdığım değeri Sheets("DataSheet") içerisinde arayıp, aranan değerin bulunduğu hücre(ler)nin tam değerini ListBox1' a listemektedir,

Sheets("DataSheet") içerisindeki bilgiler her zaman sabittir, bu sheet' e hiçbir zaman müdahale etmiyorum.

Yalnız textbox içerisine salt nümerik değerler (1,2,3...) girdiğimde her zaman sorunsuz çalışmaktatır,

fakat harfler (alfabetik) devreye girdiğinde (a,b,c,d ....) bazen çalışmıyor, bu bazı zamanları bir türlü tespit edemedim.

Ã?rn:
Hücre değeri 456ADCE gibi bir değer olsun,

Text box' a "456" yazdığım da listbox'a 456ADCE gelirken, "456" nın devamına "A" karakteri yazdığımda (456A) listbox temizleniveriyor,

Bu bazı durumlarda, ilk baştan "ADC" yazdığımda da bir şey gelmiyor,

Bazende ne yazarsam yazayım (nümerik, alfanümerik, alfabetik) hiç sorunsuz çalışıyor.

Bu durum neden kaynaklanabilir, eğer öğrenebilirsem inanın çok mutlu olacağım,

Þimdiden teşekkür ederim...

Private Sub TextBox3_Change()
Dim MyRng As Range
Dim i, uz As Integer
Dim tanim As String

If Not CheckBox1.Value = True Then GoTo sona


For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then GoTo atla
Next i
ListBox1.Clear

atla:

If Len(TextBox3.Text) > 1 Then

TextBox2.Value = ""
TextBox4.Value = ""
For Each MyRng In Sheets("DataSheet").Range("B1:B1080")
If LCase(MyRng.Text) Like "*" & TextBox3.Text & "*" Then ListBox1.AddItem MyRng
Next
End If
sona:
End Sub

Herkese İyi Kandiller dilerim...

 

[danersin]

Bu bazeni textbox'a büyük harfler ve küçük harfler ile giriş yaparak deneyebilirmisiniz.

 

[tamer42]

Gerçekten size nasıl teşekkür edeceğimi bilemiyorum,

Günlerdir bununla uğraşıyordum.

Sorun; büyük-küçük harf ayrımındaymış gibi görünüyor.

İlk denememde büyük harflarde sorun çıkartıyor, aynı anda küçük harflerde sorun çıkmadı,


bunu aşmanın bir yolu varmıdır,

İyi Çalışmalar...

 

[danersin]

If LCase(MyRng.Text) Like "*" & TextBox3.Text & "*"

Hücreden gelen metni LCase() ile hep küçük yapıyorsunuz.
Aynı şekilde sağ tarafıda Lcase(Textbox3.text) şeklinde yazarsanız sorun
çözülür.

 

[tamer42]

Çok Teşekkürler...