harf sorunu

[ismailuguz]

merhaba;
ekteki dosyada açılan formda arama yaptığım zaman excel sayfasında küçük hafle yazılmış olan isimleri listelemiyor İSMAİL 'i aradığım zaman buluyor ama ismail 'i aradığım zaman bulamıyor sayfada ikisi de var.ne şekilde ararsam arayayım tüm isimleri bulmak istiyorum bu sorunu nasıl giderebilirim.
teşekkürler

 

[Korhan Ayhan]

Selamlar,

ARA butonunda kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton5_Click()
    If TextBox18.Text = "" Then
    Msg = CreateObject("WScript.Shell").Popup("ARANACAK BİR İSİM GİRİN", 1, "UYARI")
    Else
    ListBox1.Clear
    Set sh = Sheets("KAYIT")
    sonsat = sh.Cells(65536, 2).End(xlUp).Row
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;150"
    For i = 2 To sonsat
    x = ListBox1.ListCount
    Kriter1 = Evaluate("=UPPER(""" & Cells(i, 2) & """)")
    Kriter2 = Evaluate("=UPPER(""" & TextBox18.Text & """)")
    If Kriter1 = Kriter2 Then
    ListBox1.AddItem
    ListBox1.List(x, 0) = Cells(i, 2)
    ListBox1.List(x, 1) = Cells(i, 3)
    End If
    Next i
    End If
    
    Set sh = Nothing
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    TextBox10.Text = ""
    TextBox11.Text = ""
    TextBox12.Text = ""
    TextBox13.Text = ""
    TextBox14.Text = ""
    TextBox15.Text = ""
    TextBox16.Text = ""
    TextBox17.Text = ""
    TextBox18.Text = ""
    TextBox19.Text = ""
    TextBox20.Text = ""
    TextBox21.Text = ""
    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False
End Sub

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.