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

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 1 =