ComBobox Çalışması İle İlgili

[akmes]

Merhaba,

Ekte eklemiş olduğum dosyada belirtiğim gibi ComBobox a veri aktarıp süzme işlemi yaptırmak istiyorum konu hakkında yardımlarınızı rica ediyorum.

http://s3.dosya.tc/server3/9jjudg/Ornek.xlsx.html

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Data sayfanızın kod bölümüne uygulayınız.

Private Sub ComboBox1_Change()
    Dim Veri As String
    On Error Resume Next
    Sheets("Data").ShowAllData
    Veri = ComboBox1.Column(1)
    On Error GoTo 0
    If ComboBox1 <> "" And Veri <> "" Then Sheets("Data").Range("A2").AutoFilter 1, Veri
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ColumnCount = 2
    ComboBox1.ColumnWidths = "100;0"
    ComboBox1.ListFillRange = "Sayfa1!A5:B65000"
End Sub

 

[akmes]

Aşağıdaki kodu deneyiniz.

Data sayfanızın kod bölümüne uygulayınız.

Private Sub ComboBox1_Change()
    Dim Veri As String
    On Error Resume Next
    Sheets("Data").ShowAllData
    Veri = ComboBox1.Column(1)
    On Error GoTo 0
    If ComboBox1 <> "" And Veri <> "" Then Sheets("Data").Range("A2").AutoFilter 1, Veri
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ColumnCount = 2
    ComboBox1.ColumnWidths = "100;0"
    ComboBox1.ListFillRange = "Sayfa1!A5:B65000"
End Sub

Üstadım emeğinize sağlık, çok teşekkür ederim.