Filtreleme Butonu Makro Yardım

[hedjaz]

Merhabalar,

Zamanında Korhan Bey'in paylaştığı dokümanı kendime göre uyarlama çalıştım ancak bir türlü olmadı.

Korhan Bey Textbox ile yapmış ancak ben Combobox ile yapmak istiyorum. Textbox'a göre hazırlanan kodu bir türlü Combobox'a göre uyarlayamadım. Nerede hata yapıyorum?

Teşekkürler

 

[Muzaffer Ali]

Merhaba.

Deneyin.

Private Sub ComboBox1_Change()
    FitreYap
End Sub

Private Sub ComboBox2_Change()
    FitreYap
End Sub

Private Sub ComboBox3_Change()
    FitreYap
End Sub

Private Sub ComboBox4_Change()
    FitreYap
End Sub


Sub FitreYap()
    Application.ScreenUpdating = False
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    Range("A1").AutoFilter Field:=2, Criteria1:="=*" & ComboBox1.Text & "*", Criteria2:="=*" & ComboBox2.Text & "*"
    If Not ComboBox3.Text = "" Then Range("A1").AutoFilter Field:=6, Criteria1:="=*" & ComboBox3.Text & "*"
    If Not ComboBox4.Text = "" Then Range("A1").AutoFilter Field:=7, Criteria1:="=*" & ComboBox4.Text & "*"
    Application.ScreenUpdating = True
End Sub

 

[hedjaz]

Öncelikle teşekkür ederim. Yalnız bu kodu 4 ayrı combobox'a uygulayamadım. Yani her bir combobox aynı field üzerinde etkili olsa bile filtreleme yapabilmeli. Bunu nasıl sağlayabilirim?

 

[hedjaz]

Belirtiğiniz kodu ekledim. Korhan Bey'in kodunu da kullandım ama bir türlü olmuyor. Her bir sütunda yer alan ComboBox'ların çalışmasını nasıl sağlarım. Yardımcı olursanız çok sevinirim.

 

[Muzaffer Ali]

2 numaralı mesajdaki kodu düzelttim tekrar deneyin

 

[hedjaz]

çok teşekkür ederim Muzaffer Bey.

aşağıdaki şekilde koda Textbox eklediğimde maalesef çalışmadı. Ayrıca bir de arama butonu yapmak istemiştim.

Private Sub ComboBox1_Change()
FitreYap
End Sub

Private Sub ComboBox2_Change()
FitreYap
End Sub

Private Sub ComboBox3_Change()
FitreYap
End Sub

Private Sub ComboBox4_Change()
FitreYap
End Sub

Private Sub TextBox1_Change()
FitreYap
End Sub

Sub FitreYap()
Application.ScreenUpdating = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A1").AutoFilter Field:=3, criteria1:="=*" & ComboBox1.Text & "*", criteria2:="=*" & ComboBox2.Text & "*", criteria3:="=*" & Me.TextBox & "*"
If Not ComboBox3.Text = "" Then Range("A1").AutoFilter Field:=9, criteria1:="=*" & ComboBox3.Text & "*"
If Not ComboBox4.Text = "" Then Range("A1").AutoFilter Field:=10, criteria1:="=*" & ComboBox4.Text & "*"
Application.ScreenUpdating = True
End Sub