Seçili Kritire Göre Rapor

[Kemal Demir]

İyi Tatiller

Değerli Arkadaslar bundan 1 hafta evvel Sn. Danersinle yardımıyla sorunum vardı hallettım sımdı değişik biraz farklı bir verigirişi yaptım ama kriterlere göre rapor alamıyorum kodlar daki hatayı bulmamadım

Comboboxlar Seçili Olmayanca calsıyor ama biri seçildiğinde çalışmıyor yardımlarınızı beklıyorum

 

[danersin]

@rakkas autofilter daki field karşısında yazan rakamlar sayfanızın sütun sayıları ile uyumlu olmalı.


Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("Rapor").Range("a1:k65536").ClearContents
Range("A1").Select
Selection.AutoFilter
If ComboBox1.Value <> "" Then Selection.AutoFilter Field:=2, Criteria1:=ComboBox1.Value
If ComboBox2.Value <> "" Then Selection.AutoFilter Field:=3, Criteria1:=ComboBox2.Value
If ComboBox3.Value <> "" Then Selection.AutoFilter Field:=6, Criteria1:=ComboBox3.Value
If ComboBox4.Value <> "" Then Selection.AutoFilter Field:=7, Criteria1:=ComboBox4.Value
If ComboBox5.Value <> "" Then Selection.AutoFilter Field:=11, Criteria1:=ComboBox5.Value

Selection.CurrentRegion.Copy
Sheets("Rapor").Range("A1").PasteSpecial
Selection.AutoFilter
End Sub