TextBox1 de yazan değere göre ComboBox1 de seçim yapma

[Murat_Caka]

Merhaba,
TextBox1 de yazan değere göre ComboBox1 de seçim yapmam gerekiyor. Yani B stununda yazan herşeyi Combobox ile seçmek istemiyorum. A stunundaki tekrarlayan değerlerin karşılığında B stununda seçmem gereken farklı değerler var. TextBox1 de yazdığım değer ile A stununda tekrarlayan her bir satırdaki değerin B stunundaki karşılığını ComboBox1 ile seçebiliyor olmak istiyorum. Bu konu ile ilgili yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Merhaba,

En basit haliyle aşağıdaki döngüyü kullanabilirsiniz.

Option Explicit

Private Sub TextBox1_Change()
    Dim X As Long
    
    ComboBox1.Clear
    
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If UCase(Replace(Replace(Cells(X, 1), "ı", "I"), "i", "İ")) = _
            UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
            ComboBox1.AddItem Cells(X, 2)
        End If
    Next
End Sub