ComboBoxta Türkçe Krakter Sorunu

[class37]

Merhaba
Aşağıdaki kodla sayfadaki verileri comboboxa alıyorum I harfi ve İ harfinde düzgün çalışmıyor.Acaba nasıl düzeltebiliriz?.İyiçalışmalar.

Private Sub ad_Change()
Static yeri
blok = Me.ad.SelStart
If yeri < blok Then
ARA = Left(Me.ad, blok)
On Error Resume Next
Sonuc = ActiveSheet.Range("A1:A65536").Find(ARA)
On Error Resume Next
If Not IsEmpty(Sonuc) Then Me.ad = Sonuc
Me.ad.SelStart = blok
Me.ad.SelLength = Len(Me.ad) - blok
Else
End If
yeri = Me.ad.SelStart
ad.ListRows = 10
ad.DropDown

End Sub

 

[class37]

Aşağıdaki kod hatasız çalıştı sorun çözüldü. :hihoho:

Private Sub ad_Change()
On Error Resume Next

Dim Bul As Range

With Worksheets("Sayfa1").Range("A1:A1000")
Set Bul = .Find(ad, LookAt:=xlWhole)

End With
End Sub