Textbox ile filtrelenen listeyi comboboxa alma

[frtnamu]

textbox ile filtreleyip filtrelenen listeyi comboboxa almak istiyorum yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Burada verdiğiniz açıklama çok az bu açıklamaya ben ancak forumda arama yapınız şeklinde cevap verebilirim.

 

[frtnamu]

örnek dosyayı ekledim ilginize teşekkürler

 

[frtnamu]

pardon şimdi ekledim

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim sat As Long, adr As String, k As Range
Dim myarr(), a As Long, deg As String
If TextBox1.Text = "" Then
    deg = "*"
    Else
    deg = TextBox1.Text
End If

Sheets("FATURA_OZET").Range("A1").AutoFilter
sat = Sheets("FATURA_OZET").Cells(65536, "H").End(xlUp).Row
Set k = Sheets("FATURA_OZET").Range("H2:H" & sat).Find(deg, , xlValues, xlPart)
ComboBox1.RowSource = vbNullString
ReDim myarr(1 To 1, 1 To sat)
If Not k Is Nothing Then
    adr = k.Address
    Do
        a = a + 1
        myarr(1, a) = k.Value
        Set k = Sheets("FATURA_OZET").Range("H2:H" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    ReDim Preserve myarr(1 To 1, 1 To a)
    ComboBox1.Column = myarr
End If
End Sub

 

[frtnamu]

çok teşekkürler sayın Evren Gizlen.

 

[Orion1]

çok teşekkürler sayın Evren Gizlen.

Rica ederim.