Otomatik süzde sıfırdan büyükse, büyük olandeğerleri kopyalama yapıştırma

[acemituncay]

Arkadaşlar aşağıdaki makro ile otomatik süzden sıfırdan büyük değerlerin bulunduğu A8:C10 arasındaki hücreleri seçtirip yapıştırmak istiyorum.

Sorun şu C sütünunda rakamlar bulunuyor ordaki rakamlardan otomatik süzle sıfırdan büyük olan değeri seçtirip yapıştırmak istiyorum ancak, otomatik süzde süzdürdüğüm değerler sıfır olduğu halde yapıştırıyor.

Aşağıdaki kodlarda nerde hata yapıyorum acaba?

Sub Makro1()
ActiveSheet.Range("$A$6:$C$10").AutoFilter Field:=3, Criteria1:=">0", _
Operator:=xlAnd
Range("A8:C10").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$6:$C$10").AutoFilter Field:=3
End Sub

 

[Orion1]

copyalama satırını aşağıdaki ile değiştiriniz.

Selection.CurrentRegion.Copy

 

[acemituncay]

Ustam öncelikle yardımınız için teşekkür ederim.
Kodu dediğiniz şekilde düzelttim ama olmadı internette proplemim var. Sık sık kesiliyo o yüzden geç döndüm bi yardımcı olurmusunuz.


Sub Makro1()
ActiveSheet.Range("$A$6:$C$10").AutoFilter Field:=3, Criteria1:=">0", _
Operator:=xlAnd
Range("A8:C10").Select
Selection.CurrentRegion.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$6:$C$10").AutoFilter Field:=3
End Sub

 

[Orion1]

Dosyanız ekte.

 

[acemituncay]

Yardımınız için teşekkür ederim.

 

[Orion1]

Yardımınız için teşekkür ederim.

Rica ederim.
İyi çalışmalar.