Şarta bağlı combobox da listeleme

[kandemir76]

Merhaba,
Anlatmam biraz zor olabilir. A sütününda isimler var. Userformdaki Textbox1 kutusuna Ahmet yazdığımda ilk rastladığı Ahmeti soyismiyle getiriyor. Benim istediğim ise ara butonuna basıldığında içinde ahmet geçen hücrelerin comboxta listelenmesi ve o listeden istediğim Ahmeti seçebilmek.
Umarım anlatabilmişimdir.
Ekteki dosya sıkıntımı daha iyi ifade edebilir.
Saygıalr.

 

[Huseyinkis]

Merhaba,
Anlatmam biraz zor olabilir. A sütününda isimler var. Userformdaki Textbox1 kutusuna Ahmet yazdığımda ilk rastladığı Ahmeti soyismiyle getiriyor. Benim istediğim ise ara butonuna basıldığında içinde ahmet geçen hücrelerin comboxta listelenmesi ve o listeden istediğim Ahmeti seçebilmek.
Umarım anlatabilmişimdir.
Ekteki dosya sıkıntımı daha iyi ifade edebilir.
Saygıalr.

ekteki kodu denermisiniz

Private Sub CommandButton1_Click()
 Dim ara As Range
    For i = 2 To Range("A65536").End(3).Row
    Set ara = Range(Cells(i, 1), Cells(i, 1)).Find(TextBox1)
    If ara Is Nothing Then
    Else
    ComboBox1.AddItem Cells(i, 1).Value
    End If
    Next
    
End Sub

 

[kandemir76]

Hocam elinize sağlık.Teşekkür ederim.