Combobox'tan Listbox'a Aktarma

[Ridan]

Merhaba,
Aşağıdaki kod ile veriler ComboBox1'de süzme sonucu, yani girilen ilk harfe göre Listbox'ta listleniyor, ancak büyük küçük harflerde sorun çıkarıyor. Yardımlarınızı bekliyorum.

Private Sub ComboBox1_Change()
Dim s As Long, k As Byte
ListBox1.ColumnCount = 3
'ListBox3.Clear
ListBox1.RowSource = ""
ListBox1.ControlSource = ""
ReDim myarr(0 To 3, 1 To 1)
For SUZ = 1 To Sheets("FATURA").Cells(65536, "B").End(xlUp).Row
If Sheets("FATURA").Range("b" & SUZ) Like ComboBox1 & "*" Then
s = s + 1
ReDim Preserve myarr(0 To 3, 1 To s)
For k = 0 To 3
myarr(k, s) = Sheets("FATURA").Cells(SUZ, k + 1).Value
Next k
End If
Next
ListBox1.Column = myarr
End Sub

 

[Orion1]

Buyurun.

Dim deg As String
deg = Sheets("FATURA").Range("b" & SUZ).Value
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like _
        UCase(Replace(Replace(ComboBox1.Value, "i", "İ"), "ı", "I")) & "*" Then

 

[Ridan]

Kod hangi araya konulacak

 

[Orion1]

Kod hangi araya konulacak

İlgili yere konulacak.

 

[Ridan]

Olmadı ya da ben beceremedim.

http://www.dosyayukle.net/download/c607214bf982bb3c0beb7f21faa07808.html

 

[Orion1]

dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

..........

 

[Ridan]

Teşekkürler

 

[Orion1]

Teşekkürler

Rica ederim.
İyi çalışmalar.