Combobox ile Veri Süzme Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Ekteki örnek çalışmada verileri filtrelemek için 4 adet Combobox kullandım. Combobox3 ile filtreleme işlemini yapamıyorum ve nedenini bulamadım. Uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ


Örnek Dosyaya Erişim Linki;
http://s3.dosya.tc/server18/k27h1i/ORNEK_COMBOBOX.rar.html

 

[Muzaffer Ali]

Merhaba.

"Database" sayfasındaki bütün kodları silin, aşağıdakileri kopyalayın.

Private Sub ComboBox1_Change()
    Filtrele ComboBox1.Text, 3
End Sub

Private Sub ComboBox2_Change()
    Filtrele ComboBox2.Text, 4
End Sub

Private Sub ComboBox3_Change()
    Filtrele ComboBox3.Text, 6
End Sub

Private Sub ComboBox4_Change()
    Filtrele ComboBox4.Text, 2
End Sub

Sub Filtrele(Kriter As String, Kolon As Integer)
    Dim Alan As Range
    Dim SatirSay As Long
    SatirSay = Cells(Rows.Count, "A").End(3).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    Set Alan = Range("A4:BE" & SatirSay).Find(What:=Kriter)
    Application.Goto Reference:=Range(Alan.Address), Scroll:=False
    Selection.AutoFilter Field:=Kolon, Criteria1:=Kriter & "*"
    If Kriter = "" Then Selection.AutoFilter Field:=Kolon
End Sub

 

[Believing]

Sayın Dalgalikur,

Konuya gösterdiğiniz ilgi ve çözümünüz için size ne kadar teşekkür etsem azdır.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınız helal ediniz lütfen.
Kolay gelsin.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Muzaffer Ali]

Ben de teşekkür ederim. Bu güzel dualarınız için Allah sizden de razı olsun.