Süzle sıfırdan büyük değerleri seçip kopyalama

[acemituncay]

Arkadaşlar aşağıdaki makro kodu ile sıfırdan büyük değerler var ise o değerlerin bulunduğu hücreyi ve yanındaki hücreyi seçip istediğim yere yapıştırmak istiyorum ancak sıfır olduğu halde seçip yapıştırıyor ne yapmam lazım dosya ektedir. Yardımlarınızı bekliyorum

Sub Makro1()
ActiveSheet.Range("$A$9:$B$12").AutoFilter Field:=2, Criteria1:=">0", _
Operator:=xlAnd
Range("A10:B12").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[acemituncay]

Çok teşekkür ederim istediğim şekilde çalışıyor.
İyi Akşamlar.
"Bana Bir Harf Öğretenin Kırk Yıl Kölesi Olurum"