Veri Süzme

[Metin55]

Günaydın;
ekteki örnek dosyada ComboBox.1'e göre istif numarasını;ComboBox.2'e göre parti numarasını nasıl süzdürebiliriz?

 

[bzace]

Hayırlı sabahlar,
İsteğinizi şu şekilde karşılayabilirsiniz.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ListFillRange = "Sayfa1!D8:D27"
End Sub

2. combobox içinde aynı işelemi yapınız hücre aralığınızı kendinize göre ayarlamayı unutmayınız.

 

[Metin55]

Sayın bzace benim istediğim bu şekilde değil ComboBox1'den d8:d27 arasındaki bir rakımı seçtiğim zaman sadece bu rakamı süzecek .yani filtre uygulayacak

 

[Emir Hüseyin Çoban]

. . .

Private Sub ComboBox1_Change()
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1
End Sub

Private Sub ComboBox2_Change()
Selection.AutoFilter Field:=3, Criteria1:=ComboBox2
End Sub

Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=3
End Sub

. . .

 

[Metin55]

Sayın Hüseyin bey range sınıfının autofilter yöntemi başarısız diyor

 

[Metin55]

Hüseyin bey birde butonsuz süzme filtre olabilir mi?.Yani comboboxun içeriği boş olursa filtr özelliği kalkabilir mi?

 

[Emir Hüseyin Çoban]

. . .

Sayın Hüseyin bey range sınıfının autofilter yöntemi başarısız diyor

Bu hatayı çözdünüz mü ?

Hüseyin bey birde butonsuz süzme filtre olabilir mi?.Yani comboboxun içeriği boş olursa filtr özelliği kalkabilir mi?

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox2 = "" Then
Selection.AutoFilter Field:=3
Else
Selection.AutoFilter Field:=3, Criteria1:=ComboBox2
End If
End Sub

. . .

 

[Metin55]

Hüsein bey Combobox1'den veri girdiğim zaman hata veriyor

 

[bzace]

Kusura bakmayın ben yanlış anlamışım
Alternatif olarak Hüseyin beyin verdiği örneğe göre listeden seçim yaparak.

 

[Emir Hüseyin Çoban]

Hüsein bey Combobox1'den veri girdiğim zaman hata veriyor

. . .

Bendeki işlem sonucu.

Düzeltme: Dosya eklendi.

. . .

 

[Metin55]

Hüseyin bey sizin dosyayı gönderebilirmisiniz