alttaki kodda sadece ">0" olanlar geliyor.iyi çalışmalar

[f_alkan]

Sub AKTAR()
Range("A1:G1").Select
Range("G1").Activate
Selection.AutoFilter
Range("G2").Select
Selection.AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd
Columns("A:G").Select
Range("G1").Activate
Selection.Copy
Sheets("Sayfa2").Select
Cells.Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=7
Range("H1").Select
MsgBox ("Aktarma işlemi tamamlanmıştır ! ")
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu başlıktan ne anlamalıyız?

alttaki kodda sadece ">0" olanlar geliyor.iyi çalışmalar