Combobox , bul özelliği

[igultekin2000]

iyi günler,
excel' de bul formülü çok fonksiyonel olarak bir harfi bile girsek verileri ona göre listeliyor. userform' da combobox ile bu işlemi yapamıyorum. ancak baş harflerini tutturursak açılır listeden seçebiliyoruz. kelimenin " mesela " boyalı raşel kumaş" ismini bulmak için " raşel " yazdığımda içinde " raşel " kelimesi geçenleri açılır pencerede görmemiz mümkün müdür. DropDown' ya yeterli gelmiyor.

 

[Mahmut Bayram]

Evren beyin kodlarıdır. (Orion)

Private Sub ComboBox1_Change()
Dim i As Long, sat As Long, deg As String, x As Long
sat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = ""
txtbx = UCase(Replace(Replace(ComboBox1.Text, "i", "İ"), "ı", "I"))
For i = 1 To sat
    deg = UCase(Replace(Replace(Cells(i, "A").Value, "i", "İ"), "ı", "I"))
    If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "*" & txtbx & "*" Then
        ListBox1.AddItem Cells(i, "A").Value
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "evrengizlen@hotmail.com"
sds = Sheets("Sayfa1").[a65536].End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A1:A" & sds
End Sub

 

[igultekin2000]

tam çözemedim

Evren beyin kodlarıdır. (Orion)

Private Sub ComboBox1_Change()
Dim i As Long, sat As Long, deg As String, x As Long
sat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = ""
txtbx = UCase(Replace(Replace(ComboBox1.Text, "i", "İ"), "ı", "I"))
For i = 1 To sat
    deg = UCase(Replace(Replace(Cells(i, "A").Value, "i", "İ"), "ı", "I"))
    If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "*" & txtbx & "*" Then
        ListBox1.AddItem Cells(i, "A").Value
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "evrengizlen@hotmail.com"
sds = Sheets("Sayfa1").[a65536].End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A1:A" & sds
End Sub

tam anlayamadım, hata vererek çalışmıyor. ben listbox kullanmıyorum. belli sayfanın H sütununda comboboxla seçtiğim ürün isimleri var.

 

[Korhan Ayhan]

Örnek dosyanızı ekleyiniz.

 

[igultekin2000]

örnek dosya

Örnek dosyanızı ekleyiniz.

örnek dosya

 

[Korhan Ayhan]

Dosyanızda gerekli düzeltmeyi yaptım. İnceleyiniz.

 

[igultekin2000]

sorunsuz çalışıyor

Dosyanızda gerekli düzeltmeyi yaptım. İnceleyiniz.

Teşekkür ederim, sorunsuz çalışıyor.

 

[sarigozoglu]

Combox'tan bir kere ürün seçebiliyorsunuz, yanlış seçmiş olsanız tekrar bastığınızda hep aynısı geliyor