ComboBoxta Türkçe Krakter Sorunu

Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
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.
Kod:
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
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Aşağıdaki kod hatasız çalıştı sorun çözüldü. :hihoho:
Kod:
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
 
Üst