süz hk.

[qwertylion]

Merhaba arkadaşlar;
aşağıdaki kod ile b 24 hücresi değiştiğinde a119:g188 aralığında süzme işlemi yapabiliyorum. Ancak altına a198:f267 aralığında da süzme işlemi yapmak istediğimde bu sefer a119:g188 aralığında süzme işlemi yapmıyor. İki aralığı aynı anda nasıl süzebilirim acaba?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B24]) Is Nothing Then Exit Sub
Call AKIN
End Sub

Sub AKIN()
Range("A119:G188").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd

Range("A198:f267").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
   Sheets("rapor").Range("b24").Select
End Sub

 

[Huseyinkis]

Bildiğim Kadarı ile excel çift süzme işlemi yapamıyor aynı sayfada..


gördüğüm kadari ile aynı sutunda yani c sutununda 0 dan farklı olanları istemişsiniz.

Range("A119:F267").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd

olarak kullanırsanı aynı işlemi yapıcaktır.

 

[qwertylion]

teşekkür edrim sayenizde hallettim