combobox'a yazdığım verilerin benzerlerini combobox'a listeleyebilir mi?

[mücahitayan]

Sayın hocam son göndermiş olduğunuzdan ilham alarak kendime uyarladım ekte gönderiyorum. Istediğim gibi oldu.

Fakat ufak bir sorunum var...

"a" yazdığımda döngüyü uzatıpta aynı dosyadan baya bir ekliyor combobox listesine...

Onu düzeltebilir miyiz? Teşekkür ederim.

 

[halit3]

bu gönderdiğin eskisiyle aynı a harfini yazdığın zaman a harfiyle başlayan ilk değeri verir ondan sonraki a harfiyle başlayanları vernez gönderdiğim kodları kullan o gayet güzel çalışıyor

 

[halit3]

birde bunu denemisiniz.

Private Sub ComboBox1_Change()
Dim i As Long
AG = UCase(ComboBox1.Text)
'ComboBox1.Clear
For j = ComboBox1.ListCount + 1 To 0 Step -1
On Error Resume Next
ComboBox1.RemoveItem (j)
Next j
ComboBox1.Text = AG
deg = UCase(Replace(Replace(AG, "ı", "I"), "i", "İ"))
For i = 1 To Sheets("SAYFA1").Cells(65536, "A").End(xlUp).Row
If UCase(Replace(Replace(Sheets("SAYFA1").Cells(i, "A").Value, "ı", "I"), "i", "İ")) Like "*" & deg & "*" Then
ComboBox1.AddItem (Sheets("SAYFA1").Cells(i, 1))
End If
Next i
End Sub

 

[mücahitayan]

Hocam süpersiniz. çok teşekkür ederim. Ellerinize sağlık. Allah razı olsun. Tam istediğim oldu.

 

[halit3]

iyi çalışmalar