makro süzme sorunu

[bambilic]

Merhabalar Üstadlarım,
Basit bir makro yazıyorum. A B C Sütunlarında 100 er satırlık veriler var diyelim. Filtre koyuyorum ve A1 deki filtreden süzülecek veriyi seçiyorum ve işleme devam ediyorum. Ama eğer o veri yoksa işlem yapmamasını istiyorum. Örnek:
Columns("A:C").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=1555", Operator:=xlAnd
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:="=2555", Operator:=xlAnd
Sıradaki işlem vs vs vs
Buraya kadar sorun yok ama filtrede 1555 i bulamaz ise "Selection.AutoFilter Field:=1, Criteria1:="=1555", Operator:=xlAnd " bu komuttan sonraki işlemi yapmadan sıradaki Selection.AutoFilter Field:=1, Criteria1:="=2555", Operator:=xlAnd işleme devam etmesini istiyorum.
Teşekkürler

 

[Orion1]

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=1555", Operator:=xlAnd
If WorksheetFunction.Subtotal(103, Range("A2:A65536")) = 0 Then
    Selection.AutoFilter Field:=1, Criteria1:="=2555", Operator:=xlAnd
End If
Range("A2:C2").Select

Merhabalar Üstadlarım,
Basit bir makro yazıyorum. A B C Sütunlarında 100 er satırlık veriler var diyelim. Filtre koyuyorum ve A1 deki filtreden süzülecek veriyi seçiyorum ve işleme devam ediyorum. Ama eğer o veri yoksa işlem yapmamasını istiyorum. Örnek:
Columns("A:C").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=1555", Operator:=xlAnd
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:="=2555", Operator:=xlAnd
Sıradaki işlem vs vs vs
Buraya kadar sorun yok ama filtrede 1555 i bulamaz ise "Selection.AutoFilter Field:=1, Criteria1:="=1555", Operator:=xlAnd " bu komuttan sonraki işlemi yapmadan sıradaki Selection.AutoFilter Field:=1, Criteria1:="=2555", Operator:=xlAnd işleme devam etmesini istiyorum.
Teşekkürler

 

[bambilic]

Hocam emeğinize sağlık çok teşekkürler