ComboBox la Filitre yapmak

[taseraydin]

Değerli üstad arladaşlar ;
Sayfa1 deki ComboBox tan secilen değere göre
Sayfa2 de " C " Stununda filitre yaptırabilmek için örnek bir makroya ihtiyacım var
Hepinize iyi geceler diliyorum

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
On Error GoTo HATA
Sheets("Sayfa2").[C1].AutoFilter FIELD:=1, Criteria1:=ComboBox1 & "*"
HATA:
End Sub
Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "Sayfa2!c1:c" & Sheets("Sayfa2").Cells(65536, "c").End(3).Row
End Sub

 

[taseraydin]

İlgİnİze TeŞekÜr Ederİm
GÖnderdİĞİnİz Kodu Üzerİnde ÇaliŞtiĞim Dosyada Bİr TÜrlÜ Uygulayamadim Dosyanin Bİr ÖrneĞİnİ GÖnderİyorum İlgİlenİrsenİz Çok Mennun Olurum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox2_Change()
On Error GoTo HATA
Sheets("tahakkuklistesi").[I1].AutoFilter FIELD:=9, Criteria1:=ComboBox2 & "*"
HATA:
End Sub
Private Sub Worksheet_Activate()
ComboBox2.ListFillRange = "tahakkuklistesi!I1:I" & Sheets("tahakkuklistesi").Cells(65536, "I").End(3).Row
End Sub