contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
26 Ara 2014

VBA ile iki yada daha fazla alan filtreleme

Bulunulan alanda filtre uygulamasi yapabileceginiz ve filtrenizde iki yahut daha fazla kriter kullanabileceginiz iki ornek paylasiyoruz,

ilk ornegimiz filtre icin kullanabileceginiz 2 kriter secebilme olacak ama genel anlamda ikinci ornegimize dikkatinizi cekmek isterim;

Sub iki_Alan_Icin()
    
Dim mtn_adres As String
   
Selection.AutoFilter

mtn_adres = ActiveCell.CurrentRegion.Address

ActiveSheet.Range(mtn_adres).AutoFilter Field:=2, Criteria1:="=Ankara", _
   Operator:=xlOr, Criteria2:="=Istanbul"
   
End Sub

Diger ornegimiz ise birden fazla filtre uygulayabileceginiz ve VBA’de genel olarak bir aralik vermek istediginizde gecerli olan array kullanimi uzerine olucak,

Sub Birden_Fazlasi_Icin()

Dim mtn_adres As String
   
Selection.AutoFilter

mtn_adres = ActiveCell.CurrentRegion.Address
ActiveSheet.Range(mtn_adres).AutoFilter Field:=2, Criteria1:=Array( _
        "Ankara", "Istanbul", "Bursa"), Operator:=xlFilterValues

End Sub

Cevap bırakın


6 + 6 =